4 if( $ENV{PERL_CORE} ) {
10 # Can't use Test.pm, that's a 5.005 thing.
16 # Utility testing functions.
18 my($test, $name) = @_;
20 $ok .= "not " unless $test;
21 $ok .= "ok $test_num";
22 $ok .= " - $name" if defined $name;
34 push @INC, '../t/lib/';
35 require Test::Simple::Catch;
36 my($out, $err) = Test::Simple::Catch::caught();
38 Test::Simple->import(tests => 3);
48 My::Test::ok($$out eq <<OUT);
57 My::Test::ok($$err eq <<ERR);
58 # Failed test ($0 at line 31)
59 # Failed test ($0 at line 34)
60 # Looks like you planned 3 tests but ran 2 extra.