From 0f6d95e7959d2978a869b373649fc5e49f733159 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 5 Mar 2012 22:56:18 -0600
Subject: factor out the callback stuff, make Term::Filter a role

---
 t/basic.t        | 4 ++--
 t/callbacks.t    | 6 +++---
 t/extra-pty.t    | 4 ++--
 t/requires-tty.t | 6 +++---
 4 files changed, 10 insertions(+), 10 deletions(-)

(limited to 't')

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"
 );
-- 
cgit v1.2.3-54-g00ecf