Commit | Line | Data |
---|---|---|
b1ddf169 | 1 | #!/usr/bin/perl -w |
2 | ||
3 | BEGIN { | |
4 | if( $ENV{PERL_CORE} ) { | |
5 | chdir 't'; | |
6 | @INC = ('../lib', 'lib'); | |
7 | } | |
8 | else { | |
9 | unshift @INC, 't/lib'; | |
10 | } | |
11 | } | |
12 | ||
13 | my $Exit_Code; | |
14 | BEGIN { | |
15 | *CORE::GLOBAL::exit = sub { $Exit_Code = shift; }; | |
16 | } | |
17 | ||
18 | ||
19 | use Test::Builder; | |
20 | use Test::More; | |
b1ddf169 | 21 | |
3e887aae | 22 | my $output; |
b1ddf169 | 23 | my $TB = Test::More->builder; |
3e887aae | 24 | $TB->output(\$output); |
b1ddf169 | 25 | |
26 | my $Test = Test::Builder->create; | |
27 | $Test->level(0); | |
28 | ||
3e887aae | 29 | $Test->plan(tests => 3); |
b1ddf169 | 30 | |
31 | plan tests => 4; | |
32 | ||
33 | BAIL_OUT("ROCKS FALL! EVERYONE DIES!"); | |
34 | ||
35 | ||
3e887aae | 36 | $Test->is_eq( $output, <<'OUT' ); |
b1ddf169 | 37 | 1..4 |
38 | Bail out! ROCKS FALL! EVERYONE DIES! | |
39 | OUT | |
40 | ||
41 | $Test->is_eq( $Exit_Code, 255 ); | |
845d7e37 | 42 | |
43 | $Test->ok( $Test->can("BAILOUT"), "Backwards compat" ); |