4 if( $ENV{PERL_CORE} ) {
10 # Can't use Test.pm, that's a 5.005 thing.
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 => 2);
25 push @INC, '../t/lib/';
26 require Test::Simple::Catch;
27 my($out, $err) = Test::Simple::Catch::caught();
28 local $ENV{HARNESS_ACTIVE} = 0;
30 Test::Simple->import(tests => 3);
40 $TB->is_eq($$out, <<OUT);
49 $TB->is_eq($$err, <<ERR);
54 # Looks like you planned 3 tests but ran 2 extra.
55 # Looks like you failed 2 tests of 5 run.