Commit | Line | Data |
809908f7 |
1 | # -*-perl-*- |
2 | use strict; |
edd5bad5 |
3 | use Test qw(:DEFAULT $TESTOUT $ntest); |
809908f7 |
4 | |
edd5bad5 |
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}; |
11 | |
12 | my $tests = 5; |
13 | plan tests => $tests, todo => [2..$tests]; |
14 | |
15 | # line 11 |
16 | ok(1); |
809908f7 |
17 | ok(1); |
18 | ok(0,1); |
19 | ok(0,1,"need more tuits"); |
20 | ok(1,1); |
edd5bad5 |
21 | |
22 | close F; |
23 | $TESTOUT = *STDOUT{IO}; |
24 | $ntest = 1; |
25 | |
26 | open F, "todo"; |
27 | my $out = join '', <F>; |
28 | close F; |
29 | unlink "todo"; |
30 | |
31 | my $expect = <<"EXPECT"; |
32 | 1..5 todo 2 3 4 5; |
33 | ok 1 |
34 | ok 2 # ($0 at line 12 TODO?!) |
35 | not ok 3 |
36 | # Test 3 got: '0' ($0 at line 13 *TODO*) |
37 | # Expected: '1' |
38 | not ok 4 |
39 | # Test 4 got: '0' ($0 at line 14 *TODO*) |
40 | # Expected: '1' (need more tuits) |
41 | ok 5 # ($0 at line 15 TODO?!) |
42 | EXPECT |
43 | |
44 | |
45 | print "1..1\n"; |
46 | ok( $out, $expect ); |