git.maemo.org Git - pkg-perl/blob - deb-src/libtest-base-perl/libtest-base-perl-0.54/t/skip.t

   1 use Test::Base tests => 5;
   2
   3 run { pass };
   4
   5 is scalar(blocks), 2;
   6
   7 my @block = blocks;
   8 is $block[0]->foo, "2\n";
   9 is $block[1]->foo, "3\n";
  10
  11 __DATA__
  12 === One
  13 --- SKIP
  14 --- foo
  15 1
  16 === Two
  17 --- foo
  18 2
  19 === Three
  20 --- foo
  21 3
  22 === Four
  23 --- SKIP
  24 --- foo
  25 4