[p5sagit/p5-mst-13.2.git] / t / lib / Test / Simple / Catch.pm

# For testing Test::Simple;
package Test::Simple::Catch;

use Symbol;
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;
$t->output($out_fh);
$t->failure_output($err_fh);
$t->todo_output($err_fh);

sub caught { return($out, $err) }

1;
Commit	Line	Data
4dd974da	1	# For testing Test::Simple;
d020a79a	2	package Test::Simple::Catch;
4dd974da	3
33459055	4	use Symbol;
30e302f8	5	use TieOut;
33459055	6	my($out_fh, $err_fh) = (gensym, gensym);
30e302f8	7	my $out = tie *$out_fh, 'TieOut';
30e302f8	8	my $err = tie *$err_fh, 'TieOut';
4dd974da	9
33459055	10	use Test::Builder;
	11	my $t = Test::Builder->new;
	12	$t->output($out_fh);
	13	$t->failure_output($err_fh);
	14	$t->todo_output($err_fh);
4dd974da	15
33459055	16	sub caught { return($out, $err) }
4dd974da	17
4dd974da	18	1;