Commit | Line | Data |
809908f7 |
1 | # -*-perl-*- |
2 | use strict; |
711cdd39 |
3 | use Test qw($TESTOUT $TESTERR $ntest plan ok skip); |
4 | plan tests => 6; |
809908f7 |
5 | |
6 | open F, ">skips" or die "open skips: $!"; |
7 | $TESTOUT = *F{IO}; |
711cdd39 |
8 | $TESTERR = *F{IO}; |
809908f7 |
9 | |
10 | skip(1, 0); #should skip |
11 | |
12 | my $skipped=1; |
13 | skip('hop', sub { $skipped = 0 }); |
14 | skip(sub {'jump'}, sub { $skipped = 0 }); |
15 | skip('skipping stones is more fun', sub { $skipped = 0 }); |
16 | |
17 | close F; |
18 | |
19 | $TESTOUT = *STDOUT{IO}; |
711cdd39 |
20 | $TESTERR = *STDERR{IO}; |
809908f7 |
21 | $ntest = 1; |
22 | open F, "skips" or die "open skips: $!"; |
23 | |
24 | ok $skipped, 1, 'not skipped?'; |
25 | |
26 | my @T = <F>; |
27 | chop @T; |
28 | my @expect = split /\n+/, join('',<DATA>); |
29 | ok @T, 4; |
30 | for (my $x=0; $x < @T; $x++) { |
31 | ok $T[$x], $expect[$x]; |
32 | } |
33 | |
34 | END { close F; unlink "skips" } |
35 | |
36 | __DATA__ |
37 | ok 1 # skip |
38 | |
39 | ok 2 # skip hop |
40 | |
41 | ok 3 # skip jump |
42 | |
43 | ok 4 # skip skipping stones is more fun |