diff options
Diffstat (limited to 'gnu/usr.bin/perl/t/lib/Test/Simple/Catch.pm')
| -rw-r--r-- | gnu/usr.bin/perl/t/lib/Test/Simple/Catch.pm | 25 |
1 files changed, 6 insertions, 19 deletions
diff --git a/gnu/usr.bin/perl/t/lib/Test/Simple/Catch.pm b/gnu/usr.bin/perl/t/lib/Test/Simple/Catch.pm index e1ccd7ce454..6f6049356db 100644 --- a/gnu/usr.bin/perl/t/lib/Test/Simple/Catch.pm +++ b/gnu/usr.bin/perl/t/lib/Test/Simple/Catch.pm @@ -1,10 +1,12 @@ # For testing Test::Simple; +# $Id$ package Test::Simple::Catch; use Symbol; -my($out_fh, $err_fh) = (gensym, gensym); -my $out = tie *$out_fh, __PACKAGE__; -my $err = tie *$err_fh, __PACKAGE__; +use TieOut; +my( $out_fh, $err_fh ) = ( gensym, gensym ); +my $out = tie *$out_fh, 'TieOut'; +my $err = tie *$err_fh, 'TieOut'; use Test::Builder; my $t = Test::Builder->new; @@ -12,21 +14,6 @@ $t->output($out_fh); $t->failure_output($err_fh); $t->todo_output($err_fh); -sub caught { return($out, $err) } - -sub PRINT { - my $self = shift; - $$self .= join '', @_; -} - -sub TIEHANDLE { - my $class = shift; - my $self = ''; - return bless \$self, $class; -} -sub READ {} -sub READLINE {} -sub GETC {} -sub FILENO {} +sub caught { return( $out, $err ) } 1; |