1BEGIN { 2 if( $ENV{PERL_CORE} ) { 3 chdir 't'; 4 @INC = ('../lib', 'lib'); 5 } 6 else { 7 unshift @INC, 't/lib'; 8 } 9} 10 11# Can't use Test.pm, that's a 5.005 thing. 12package My::Test; 13 14print "1..2\n"; 15 16my $test_num = 1; 17# Utility testing functions. 18sub ok ($;$) { 19 my($test, $name) = @_; 20 my $ok = ''; 21 $ok .= "not " unless $test; 22 $ok .= "ok $test_num"; 23 $ok .= " - $name" if defined $name; 24 $ok .= "\n"; 25 print $ok; 26 $test_num++; 27} 28 29 30package main; 31 32require Test::Simple; 33 34require Test::Simple::Catch; 35my($out, $err) = Test::Simple::Catch::caught(); 36 37Test::Simple->import(tests => 5); 38 39#line 30 40ok(1, 'Foo'); 41ok(0, 'Bar'); 42 43END { 44 My::Test::ok($$out eq <<OUT); 451..5 46ok 1 - Foo 47not ok 2 - Bar 48OUT 49 50 My::Test::ok($$err eq <<ERR); 51# Failed test ($0 at line 31) 52# Looks like you planned 5 tests but only ran 2. 53ERR 54 55 exit 0; 56} 57