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