3 use Test qw(:DEFAULT $TESTOUT $TESTERR $ntest);
5 ### This test is crafted in such a way as to prevent Test::Harness from
6 ### seeing the todo tests, otherwise you get people sending in bug reports
7 ### about Test.pm having "UNEXPECTEDLY SUCCEEDED" tests.
13 plan tests => 4, todo => [2,3];
18 for (my $x=0; $x < 10; $x++) {
30 $TESTOUT = *STDOUT{IO};
31 $TESTERR = *STDERR{IO};
35 my $out = join '', <F>;
39 my $expect = <<"EXPECT";
43 # Failed test 2 in $0 at line 23 *TODO*
44 ok 3 # ($0 at line 24 TODO?!)
51 $in =~ s/^#[^\n]*\n//mg;
52 $in =~ s/\n#[^\n]*$//mg;
58 ok( commentless($out), commentless($expect) );