Commit | Line | Data |
---|---|---|
809908f7 MS |
1 | # -*-perl-*- |
2 | use strict; | |
711cdd39 | 3 | use Test qw(:DEFAULT $TESTOUT $TESTERR $ntest); |
809908f7 | 4 | |
edd5bad5 MS |
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. | |
8 | ||
9 | open F, ">todo"; | |
10 | $TESTOUT = *F{IO}; | |
711cdd39 | 11 | $TESTERR = *F{IO}; |
edd5bad5 MS |
12 | my $tests = 5; |
13 | plan tests => $tests, todo => [2..$tests]; | |
14 | ||
75fa620a SB |
15 | |
16 | # tests to go to the output file | |
edd5bad5 | 17 | ok(1); |
809908f7 MS |
18 | ok(1); |
19 | ok(0,1); | |
20 | ok(0,1,"need more tuits"); | |
21 | ok(1,1); | |
edd5bad5 MS |
22 | |
23 | close F; | |
24 | $TESTOUT = *STDOUT{IO}; | |
711cdd39 | 25 | $TESTERR = *STDERR{IO}; |
edd5bad5 MS |
26 | $ntest = 1; |
27 | ||
28 | open F, "todo"; | |
29 | my $out = join '', <F>; | |
30 | close F; | |
31 | unlink "todo"; | |
32 | ||
33 | my $expect = <<"EXPECT"; | |
34 | 1..5 todo 2 3 4 5; | |
35 | ok 1 | |
75fa620a | 36 | ok 2 # ($0 at line 18 TODO?!) |
edd5bad5 | 37 | not ok 3 |
75fa620a | 38 | # Test 3 got: '0' ($0 at line 19 *TODO*) |
edd5bad5 MS |
39 | # Expected: '1' |
40 | not ok 4 | |
75fa620a | 41 | # Test 4 got: '0' ($0 at line 20 *TODO*) |
edd5bad5 | 42 | # Expected: '1' (need more tuits) |
75fa620a | 43 | ok 5 # ($0 at line 21 TODO?!) |
edd5bad5 MS |
44 | EXPECT |
45 | ||
46 | ||
75fa620a SB |
47 | sub commentless { |
48 | my $in = $_[0]; | |
49 | $in =~ s/^#[^\n]*\n//mg; | |
50 | $in =~ s/\n#[^\n]*$//mg; | |
51 | return $in; | |
52 | } | |
53 | ||
edd5bad5 | 54 | print "1..1\n"; |
75fa620a | 55 | ok( commentless($out), commentless($expect) ); |