X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2FTEST;h=cae81031c290872df3cafaaf359544f484320391;hb=48bfcc53740a66ec5a66616b846e1db9955c1c69;hp=8b34c824437433092bbcc5fd555d84549478ce9a;hpb=de01fcce8df20999e4d337af7d73393fcf14ee11;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/TEST b/t/TEST
index 8b34c82..cae8103 100755
--- a/t/TEST
+++ b/t/TEST
@@ -41,6 +41,8 @@ else {
 $bad = 0;
 $good = 0;
 $total = @ARGV;
+$files  = 0;
+$totmax = 0;
 while ($test = shift) {
     if ($test =~ /^$/) {
 	next;
@@ -49,6 +51,7 @@ while ($test = shift) {
     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";
@@ -67,8 +70,6 @@ while ($test = shift) {
     }
     $ok = 0;
     $next = 0;
-    $files  = 0;
-    $totmax = 0;
     while (<RESULTS>) {
 	if ($verbose) {
 	    print $_;
@@ -101,7 +102,7 @@ while ($test = shift) {
 	}
     } else {
 	$next += 1;
-	print "FAILED on test $next\n";
+	print "FAILED at test $next\n";
 	$bad = $bad + 1;
 	$_ = $test;
 	if (/^base/) {
@@ -113,6 +114,7 @@ while ($test = shift) {
 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";
     }