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, ">mix"; |
10 | $TESTOUT = *F{IO}; |
711cdd39 |
11 | $TESTERR = *F{IO}; |
edd5bad5 |
12 | |
13 | plan tests => 4, todo => [2,3]; |
14 | |
15 | # line 15 |
809908f7 |
16 | ok(sub { |
17 | my $r = 0; |
18 | for (my $x=0; $x < 10; $x++) { |
19 | $r += $x*($r+1); |
20 | } |
21 | $r |
22 | }, 3628799); |
23 | |
24 | ok(0); |
25 | ok(1); |
26 | |
27 | skip(1,0); |
edd5bad5 |
28 | |
29 | close F; |
30 | $TESTOUT = *STDOUT{IO}; |
711cdd39 |
31 | $TESTERR = *STDERR{IO}; |
edd5bad5 |
32 | $ntest = 1; |
33 | |
34 | open F, "mix"; |
35 | my $out = join '', <F>; |
36 | close F; |
37 | unlink "mix"; |
38 | |
39 | my $expect = <<"EXPECT"; |
40 | 1..4 todo 2 3; |
41 | ok 1 |
42 | not ok 2 |
43 | # Failed test 2 in $0 at line 23 *TODO* |
44 | ok 3 # ($0 at line 24 TODO?!) |
45 | ok 4 # skip |
46 | EXPECT |
47 | |
48 | |
75fa620a |
49 | sub commentless { |
50 | my $in = $_[0]; |
51 | $in =~ s/^#[^\n]*\n//mg; |
52 | $in =~ s/\n#[^\n]*$//mg; |
53 | return $in; |
54 | } |
55 | |
56 | |
edd5bad5 |
57 | print "1..1\n"; |
75fa620a |
58 | ok( commentless($out), commentless($expect) ); |