|
#!perl -w
BEGIN {
if ( $ENV {PERL_CORE} ) {
chdir 't' ;
@INC = ( '../lib' , 'lib' );
}
else {
unshift @INC , 't/lib' ;
}
}
{
my $tb = Test::Builder->create();
my %original_outputs ;
open my $fh , ">" , "dummy_file.tmp" ;
END { 1 while unlink "dummy_file.tmp" ; }
for my $method ( qw(output failure_output todo_output) ) {
$original_outputs { $method } = $tb -> $method ();
$tb -> $method ( $fh );
is $tb -> $method (), $fh ;
}
$tb ->reset_outputs;
for my $method ( qw(output failure_output todo_output) ) {
is $tb -> $method (), $original_outputs { $method }, "reset_outputs() resets $method" ;
}
}
|