1#!/usr/bin/perl -w
2# HARNESS-NO-STREAM
3# HARNESS-NO-PRELOAD
4
5BEGIN {
6    if( $ENV{PERL_CORE} ) {
7        chdir 't';
8        @INC = ('../lib', 'lib');
9    }
10    else {
11        unshift @INC, 't/lib';
12    }
13}
14
15my $Exit_Code;
16BEGIN {
17    *CORE::GLOBAL::exit = sub { $Exit_Code = shift; };
18}
19
20# This test uses multiple builders, the real one is using the top hub, we need
21# to fix the ending.
22Test2::API::test2_stack()->top->set_no_ending(1);
23
24use Test::Builder;
25use Test::More;
26
27my $output;
28my $TB = Test::More->builder;
29$TB->output(\$output);
30
31my $Test = Test::Builder->create;
32$Test->level(0);
33
34$Test->plan(tests => 3);
35
36plan tests => 4;
37
38BAIL_OUT("ROCKS FALL! EVERYONE DIES!");
39
40
41$Test->is_eq( $output, <<'OUT' );
421..4
43Bail out!  ROCKS FALL! EVERYONE DIES!
44OUT
45
46$Test->is_eq( $Exit_Code, 255 );
47
48$Test->ok( $Test->can("BAILOUT"), "Backwards compat" );
49