| Server IP : 188.40.95.74 / Your IP : 216.73.216.205 Web Server : Apache System : Linux cp01.striminghost.net 3.10.0-1160.119.1.el7.tuxcare.els13.x86_64 #1 SMP Fri Nov 22 06:29:45 UTC 2024 x86_64 User : vlasotin ( 1054) PHP Version : 5.6.40 Disable Function : NONE MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/doc/perl-Test-Simple-0.98/t/Builder/ |
Upload File : |
#!perl -w
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't';
@INC = ('../lib', 'lib');
}
else {
unshift @INC, 't/lib';
}
}
use Test::Builder;
use Test::More 'no_plan';
{
my $tb = Test::Builder->create();
# Store the original output filehandles and change them all.
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";
}
}