git.maemo.org Git - dh-make-perl/blob - dev/arm/libtest-simple-perl/libtest-simple-perl-0.80/t/lib/Test/Simple/sample_tests/death_in_eval.plx

   1 require Test::Simple;
   2 use Carp;
   3
   4 push @INC, 't/lib';
   5 require Test::Simple::Catch;
   6 my($out, $err) = Test::Simple::Catch::caught();
   7
   8 Test::Simple->import(tests => 5);
   9
  10 ok(1);
  11 ok(1);
  12 ok(1);
  13 eval {
  14         die "Foo";
  15 };
  16 ok(1);
  17 eval "die 'Bar'";
  18 ok(1);
  19
  20 eval {
  21         croak "Moo";
  22 };