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