summaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rw-r--r--t/basic.t4
-rw-r--r--t/callbacks.t6
-rw-r--r--t/extra-pty.t4
-rw-r--r--t/requires-tty.t6
4 files changed, 10 insertions, 10 deletions
diff --git a/t/basic.t b/t/basic.t
index 0aeef5a..0df6495 100644
--- a/t/basic.t
+++ b/t/basic.t
@@ -10,8 +10,8 @@ my $pty = IO::Pty::Easy->new(handle_pty_size => 0);
my $script = <<'SCRIPT';
use strict;
use warnings;
-use Term::Filter;
-my $term = Term::Filter->new;
+use Term::Filter::Callback;
+my $term = Term::Filter::Callback->new;
$term->run($^X, '-ple', q[last if /^$/]);
print "done\n";
SCRIPT
diff --git a/t/callbacks.t b/t/callbacks.t
index 05ac5f7..5197b32 100644
--- a/t/callbacks.t
+++ b/t/callbacks.t
@@ -9,8 +9,8 @@ use IO::Select;
my $script = <<'SCRIPT';
use strict;
use warnings;
-use Term::Filter;
-my $term = Term::Filter->new(
+use Term::Filter::Callback;
+my $term = Term::Filter::Callback->new(
callbacks => {
setup => sub {
my ($t, @cmd) = @_;
@@ -63,7 +63,7 @@ alarm 60;
$
}sx;
- is($ref, 'Term::Filter', "setup callback got a Term::Filter object");
+ is($ref, 'Term::Filter::Callback', "setup callback got a Term::Filter::Callback object");
$pty->write("fOo\n");
diff --git a/t/extra-pty.t b/t/extra-pty.t
index 97a6408..d9d73da 100644
--- a/t/extra-pty.t
+++ b/t/extra-pty.t
@@ -20,12 +20,12 @@ POSIX::mkfifo($writep, 0700)
my $script = <<SCRIPT;
use strict;
use warnings;
-use Term::Filter;
+use Term::Filter::Callback;
open my \$readfh, '<', '$readp'
or die "can't open pipe (child): \$!";
open my \$writefh, '>', '$writep'
or die "can't open pipe (child): \$!";
-my \$term = Term::Filter->new(
+my \$term = Term::Filter::Callback->new(
callbacks => {
setup => sub {
my (\$t) = \@_;
diff --git a/t/requires-tty.t b/t/requires-tty.t
index e574f67..81895c2 100644
--- a/t/requires-tty.t
+++ b/t/requires-tty.t
@@ -4,18 +4,18 @@ use warnings;
use Test::More;
use Test::Fatal;
-use Term::Filter;
+use Term::Filter::Callback;
my ($input, $output);
open my $infh, '<', \$input or die "Couldn't open: $!";
open my $outfh, '<', \$output or die "Couldn't open: $!";
like(
- exception { Term::Filter->new(input => $infh) },
+ exception { Term::Filter::Callback->new(input => $infh) },
qr/Term::Filter requires input and output filehandles to be attached to a terminal/,
"requires a terminal"
);
like(
- exception { Term::Filter->new(output => $outfh) },
+ exception { Term::Filter::Callback->new(output => $outfh) },
qr/Term::Filter requires input and output filehandles to be attached to a terminal/,
"requires a terminal"
);