cpan/Test/t/skip.t

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