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 => $tests, todo => [2..$tests];
16 # tests to go to the output file
20 ok(0,1,"need more tuits");
24 $TESTOUT = *STDOUT{IO};
25 $TESTERR = *STDERR{IO};
29 my $out = join '', <F>;
33 my $expect = <<"EXPECT";
36 ok 2 # ($0 at line 18 TODO?!)
38 # Test 3 got: '0' ($0 at line 19 *TODO*)
41 # Test 4 got: '0' ($0 at line 20 *TODO*)
42 # Expected: '1' (need more tuits)
43 ok 5 # ($0 at line 21 TODO?!)
49 $in =~ s/^#[^\n]*\n//mg;
50 $in =~ s/\n#[^\n]*$//mg;
55 ok( commentless($out), commentless($expect) );