$bad = 0;
$good = 0;
$total = @ARGV;
+$files = 0;
+$totmax = 0;
while ($test = shift) {
if ($test =~ /^$/) {
next;
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";
}
$ok = 0;
$next = 0;
- $files = 0;
- $totmax = 0;
while (<RESULTS>) {
if ($verbose) {
print $_;
}
} 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";
}