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