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