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

   1 use Test::Base tests => 7;
   2
   3 filters 'chomp';
   4
   5 is next_block->test, '1';
   6 is next_block->test, '2';
   7 is first_block->test, '1';
   8 is first_block->test, '1';
   9 is next_block->test, '2';
  10 is next_block->test, '3';
  11 ok not defined next_block;
  12
  13 __DATA__
  14 ===
  15 --- test
  16 1
  17
  18 ===
  19 --- test
  20 2
  21
  22 ===
  23 --- test
  24 3