Permalink
Browse files

This commit was manufactured by cvs2svn to create tag 'VERSION=0_03'.

  • Loading branch information...
1 parent f37651e commit c3b40a8f1a7b639db6ede3577859572c92c18bed (no author) committed Sep 28, 2001
Showing with 0 additions and 32 deletions.
  1. +0 −32 t/lib/Test/Simple/Catch.pm
View
@@ -1,32 +0,0 @@
-# For testing Test::Simple;
-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 Test::Builder;
-my $t = Test::Builder->new;
-$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 {}
-
-1;

0 comments on commit c3b40a8

Please sign in to comment.