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'; |
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; |