4 if( $ENV{PERL_CORE} ) {
6 @INC = ('../lib', 'lib');
15 require Test::Simple::Catch;
16 my($out, $err) = Test::Simple::Catch::caught();
18 # Can't use Test.pm, that's a 5.005 thing.
21 # This has to be a require or else the END block below runs before
22 # Test::Builder's own and the ending diagnostics don't come out right.
23 require Test::Builder;
24 my $TB = Test::Builder->create;
25 $TB->plan(tests => 2);
27 sub is { $TB->is_eq(@_) }
33 Test::Simple->import(tests => 1);
39 My::Test::is($$out, <<OUT);
46 My::Test::is($$err, <<ERR);
47 # Looks like you planned 1 test but ran 3.
50 # Prevent Test::Simple from existing with non-zero