1N/A#!perl -w
1N/A
1N/ABEGIN {
1N/A if( $ENV{PERL_CORE} ) {
1N/A chdir 't';
1N/A @INC = '../lib';
1N/A }
1N/A}
1N/A
1N/A# Can't use Test.pm, that's a 5.005 thing.
1N/Apackage My::Test;
1N/A
1N/Aprint "1..2\n";
1N/A
1N/Amy $test_num = 1;
1N/A# Utility testing functions.
1N/Asub ok ($;$) {
1N/A my($test, $name) = @_;
1N/A my $ok = '';
1N/A $ok .= "not " unless $test;
1N/A $ok .= "ok $test_num";
1N/A $ok .= " - $name" if defined $name;
1N/A $ok .= "\n";
1N/A print $ok;
1N/A $test_num++;
1N/A}
1N/A
1N/A
1N/Apackage main;
1N/A
1N/Arequire Test::Simple;
1N/A
1N/Achdir 't';
1N/Apush @INC, '../t/lib/';
1N/Arequire Test::Simple::Catch;
1N/Amy($out, $err) = Test::Simple::Catch::caught();
1N/A
1N/ATest::Simple->import(tests => 3);
1N/A
1N/A#line 30
1N/Aok(1, 'Foo');
1N/Aok(0, 'Bar');
1N/Aok(1, 'Yar');
1N/Aok(1, 'Car');
1N/Aok(0, 'Sar');
1N/A
1N/AEND {
1N/A My::Test::ok($$out eq <<OUT);
1N/A1..3
1N/Aok 1 - Foo
1N/Anot ok 2 - Bar
1N/Aok 3 - Yar
1N/Aok 4 - Car
1N/Anot ok 5 - Sar
1N/AOUT
1N/A
1N/A My::Test::ok($$err eq <<ERR);
1N/A# Failed test ($0 at line 31)
1N/A# Failed test ($0 at line 34)
1N/A# Looks like you planned 3 tests but ran 2 extra.
1N/AERR
1N/A
1N/A exit 0;
1N/A}