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

   1 use Test::Base tests => 2;
   2 no_diag_on_only;
   3 sub shouldnt_be_run {
   4     fail "shouldnt_be_run was run";
   5 }
   6
   7 run_is foo => 'bar';
   8
   9 my ($block) = blocks;
  10 is($block->foo, "1234");
  11
  12 __DATA__
  13 ===
  14 --- foo shouldnt_be_run
  15 --- bar
  16
  17
  18
  19 ===
  20 --- ONLY
  21 --- foo chomp
  22 1234
  23 --- bar chomp
  24 1234