lib/Test/t/skip.t

   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