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

   1 use Test::Base tests => 4;
   2
   3 is scalar(blocks), 3,
   4    'Does LAST limit tests to 3?';
   5
   6 run {
   7     is(shift()->test, 'all work and no play');
   8 }
   9
  10 __DATA__
  11 ===
  12 --- test: all work and no play
  13
  14 ===
  15 --- test: all work and no play
  16
  17 ===
  18 --- LAST
  19 --- test: all work and no play
  20
  21 ===
  22 --- test: all work and no play
  23
  24 ===
  25 --- test: all work and no play
  26
  27 ===
  28 --- test: all work and no play
  29
  30 ===
  31 --- test: all work and no play
  32
  33