1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
#!/usr/bin/perl
use Test::Builder::Tester tests => 4;
use Test::More;
use Symbol;
# create temporary file handles that still point indirectly
# to the right place
my $orig_o = gensym;
my $orig_t = gensym;
my $orig_f = gensym;
tie *$orig_o, "My::Passthru", \*STDOUT;
tie *$orig_t, "My::Passthru", \*STDERR;
tie *$orig_f, "My::Passthru", \*STDERR;
# redirect the file handles to somewhere else for a mo
use Test::Builder;
my $t = Test::Builder->new();
$t->output($orig_o);
$t->failure_output($orig_f);
$t->todo_output($orig_t);
# run a test
test_out("ok 1 - tested");
ok(1,"tested");
test_test("standard test okay");
# now check that they were restored okay
ok($orig_o == $t->output(), "output file reconnected");
ok($orig_t == $t->todo_output(), "todo output file reconnected");
ok($orig_f == $t->failure_output(), "failure output file reconnected");
#####################################################################
package My::Passthru;
sub PRINT {
my $self = shift;
my $handle = $self->[0];
print $handle @_;
}
sub TIEHANDLE {
my $class = shift;
my $self = [shift()];
return bless $self, $class;
}
sub READ {}
sub READLINE {}
sub GETC {}
sub FILENO {}
|
