4 if( $ENV{PERL_CORE} ) {
6 @INC = ('../lib', 'lib');
15 *CORE::GLOBAL::exit = sub { $Exit_Code = shift; };
23 my $TB = Test::More->builder;
24 $TB->output(\$output);
26 my $Test = Test::Builder->create;
29 $Test->plan(tests => 3);
33 BAIL_OUT("ROCKS FALL! EVERYONE DIES!");
36 $Test->is_eq( $output, <<'OUT' );
38 Bail out! ROCKS FALL! EVERYONE DIES!
41 $Test->is_eq( $Exit_Code, 255 );
43 $Test->ok( $Test->can("BAILOUT"), "Backwards compat" );