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 | my $tests = 5; |
13 | plan tests => $tests, todo => [2..$tests]; |
14 | |
75fa620a |
15 | |
16 | # tests to go to the output file |
edd5bad5 |
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 |
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 |
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 |
44 | EXPECT |
45 | |
46 | |
75fa620a |
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) ); |