4 if( $ENV{PERL_CORE} ) {
6 @INC = ('../lib', 'lib');
15 use Test::Simple::Catch;
16 my($out, $err) = Test::Simple::Catch::caught();
19 # Can't use Test.pm, that's a 5.005 thing.
22 # This has to be a require or else the END block below runs before
23 # Test::Builder's own and the ending diagnostics don't come out right.
24 require Test::Builder;
25 my $TB = Test::Builder->create;
26 $TB->plan(tests => 4);
28 # Utility testing functions.
34 sub main::err_ok ($) {
38 return $TB->is_eq( $got, $expect );
45 Test::More->import(tests => 4);
46 Test::More->builder->no_ending(1);
49 local $ENV{HARNESS_ACTIVE} = 0;
54 # Failed test 'this fails'
61 # Failed test in $0 at line 72.
68 local $ENV{HARNESS_ACTIVE} = 1;
74 # Failed test 'this fails'
83 # Failed test in $0 at line 84.