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

   1 # Don't filter until just before dispatch in run()
   2
   3 use Test::Base tests => 4;
   4
   5 eval {
   6     run { pass };
   7 };
   8
   9 like "$@",
  10      qr/Can't find a function or method for/,
  11      'expect an error';
  12
  13 __END__
  14 === One
  15 --- foo
  16 xxx
  17
  18 === Two
  19 --- foo
  20 xxx
  21
  22 === Three
  23 --- foo
  24 xxx
  25
  26 === Bad
  27 --- foo filter_doesnt_exist_vsdyufbkhdkbjagyewkjbc
  28 xxx
  29