chop($te);
print "$te" . '.' x (18 - length($te));
if ($sharpbang) {
+ -x $test || (print "isn't executable.\n");
open(RESULTS,"./$test |") || (print "can't run.\n");
} else {
open(SCRIPT,"$test") || die "Can't run $test.\n";
}
} else {
$next += 1;
- print "FAILED on test $next\n";
+ print "FAILED at test $next\n";
$bad = $bad + 1;
$_ = $test;
if (/^base/) {
if ($bad == 0) {
if ($ok) {
print "All tests successful.\n";
+ # XXX add mention of 'perlbug -ok' ?
} else {
die "FAILED--no tests were run for some reason.\n";
}