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