extra.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!perl -w
BEGIN {
chdir 't';
}
}
# 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++;
}
chdir 't';
#line 30
END {
1..3
ok 1 - Foo
not ok 2 - Bar
ok 3 - Yar
ok 4 - Car
not ok 5 - Sar
OUT
# Failed test ($0 at line 31)
# Failed test ($0 at line 34)
# Looks like you planned 3 tests but ran 2 extra.
ERR
exit 0;
}