ext/Test-Simple/t/lib/Test/Simple/sample_tests/last_minute_death.plx

   1 require Test::Simple;
   2
   3 push @INC, 't/lib';
   4 require Test::Simple::Catch;
   5 my($out, $err) = Test::Simple::Catch::caught();
   6
   7 Test::Simple->import(tests => 5);
   8
   9 require Dev::Null;
  10 tie *STDERR, 'Dev::Null';
  11
  12 ok(1);
  13 ok(1);
  14 ok(1);
  15 ok(1);
  16 ok(1);
  17
  18 $! = 0;
  19 die "This is a test";