3 use Test qw($TESTOUT $ntest plan ok skip); plan tests => 6;
5 open F, ">skips" or die "open skips: $!";
8 skip(1, 0); #should skip
11 skip('hop', sub { $skipped = 0 });
12 skip(sub {'jump'}, sub { $skipped = 0 });
13 skip('skipping stones is more fun', sub { $skipped = 0 });
17 $TESTOUT = *STDOUT{IO};
19 open F, "skips" or die "open skips: $!";
21 ok $skipped, 1, 'not skipped?';
25 my @expect = split /\n+/, join('',<DATA>);
27 for (my $x=0; $x < @T; $x++) {
28 ok $T[$x], $expect[$x];
31 END { close F; unlink "skips" }
40 ok 4 # skip skipping stones is more fun