#!perl -w
BEGIN {
chdir 't';
}
else {
}
}
use strict;
# Can't use Test.pm, that's a 5.005 thing.
print "1..2\n";
my $test_num = 1;
# Utility testing functions.
print $ok;
$test_num++;
}
#line 35
END {
1..5
ok 1 - passing
ok 2 - passing still
ok 3 - still passing
not ok 4 - oh no!
not ok 5 - damnit
OUT
# Failed test ($0 at line 38)
# Failed test ($0 at line 39)
# Looks like you failed 2 tests of 5.
ERR
# Prevent Test::Simple from exiting with non zero
exit 0;
}