24f8cb208cb9adee118f0e4b9c63c88cef2c7d6e
[perl.git] / t / lib / Test / Simple / sample_tests / death.plx
1 require Test::Simple;
2 # $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/death.plx 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51  $
3
4 push @INC, 't/lib';
5 require Test::Simple::Catch;
6 my($out, $err) = Test::Simple::Catch::caught();
7
8 require Dev::Null;
9
10 Test::Simple->import(tests => 5);
11 tie *STDERR, 'Dev::Null';
12
13 ok(1);
14 ok(1);
15 ok(1);
16 $! = 0;
17 die "This is a test";