2 if( $ENV{PERL_CORE} ) {
4 @INC = ('../lib', 'lib');
11 # Can't use Test.pm, that's a 5.005 thing.
14 # This has to be a require or else the END block below runs before
15 # Test::Builder's own and the ending diagnostics don't come out right.
16 require Test::Builder;
17 my $TB = Test::Builder->create;
18 $TB->plan(tests => 2);
20 sub is { $TB->is_eq(@_) }
27 require Test::Simple::Catch;
28 my($out, $err) = Test::Simple::Catch::caught();
29 local $ENV{HARNESS_ACTIVE} = 0;
31 Test::Simple->import(tests => 5);
38 My::Test::is($$out, <<OUT);
44 My::Test::is($$err, <<ERR);
47 # Looks like you planned 5 tests but only ran 2.
48 # Looks like you failed 1 test of 2 run.