3 use Test qw($TESTOUT $TESTERR $ntest plan ok skip);
6 open F, ">skips" or die "open skips: $!";
10 skip(1, 0); #should skip
13 skip('hop', sub { $skipped = 0 });
14 skip(sub {'jump'}, sub { $skipped = 0 });
15 skip('skipping stones is more fun', sub { $skipped = 0 });
19 $TESTOUT = *STDOUT{IO};
20 $TESTERR = *STDERR{IO};
22 open F, "skips" or die "open skips: $!";
24 ok $skipped, 1, 'not skipped?';
28 my @expect = split /\n+/, join('',<DATA>);
30 for (my $x=0; $x < @T; $x++) {
31 ok $T[$x], $expect[$x];
34 END { close F; unlink "skips" }
43 ok 4 # skip skipping stones is more fun