6e4d40cf11ddb377ad3203b5e0c55c509389c21c
[perl.git] / lib / Test / Simple / t / died.t
1 #!perl -w
2 # $Id: /mirror/googlecode/test-more/t/died.t 60310 2008-09-07T23:47:22.837229Z schwern  $
3
4 BEGIN {
5     if( $ENV{PERL_CORE} ) {
6         chdir 't';
7         @INC = '../lib';
8     }
9 }
10
11 # Can't use Test.pm, that's a 5.005 thing.
12 package My::Test;
13
14 # This has to be a require or else the END block below runs before
15 # Test::Builder's own and the ending diagnostics don't come out right.
16 require Test::Builder;
17 my $TB = Test::Builder->create;
18 $TB->plan(tests => 3);
19
20
21 package main;
22
23 require Test::Simple;
24
25 chdir 't';
26 push @INC, '../t/lib/';
27 require Test::Simple::Catch;
28 my($out, $err) = Test::Simple::Catch::caught();
29 local $ENV{HARNESS_ACTIVE} = 0;
30
31 Test::Simple->import(tests => 1);
32 exit 250;
33
34 END {
35     $TB->is_eq($out->read, <<OUT);
36 1..1
37 OUT
38
39     $TB->is_eq($err->read, <<ERR);
40 # Looks like your test exited with 250 before it could output anything.
41 ERR
42
43     $TB->is_eq($?, 250, "exit code");
44
45     exit grep { !$_ } $TB->summary;
46 }