Output skipped test information in test suite:

	Subject: 5.004_55: Making test harness platform_aware
	Date: Wed, 26 Nov 1997 17:16:55 -0500 (EST)
	Date: Wed, 26 Nov 1997 17:16:55 -0500 (EST)

p4raw-id: //depot/perl@318

10 files changed, 37 insertions, 40 deletions

diff --git a/t/TEST b/t/TEST
index cae81031c2..a684b2ab65 100755
--- a/t/TEST
+++ b/t/TEST
@@ -83,7 +83,7 @@ while ($test = shift) {
 		$ok = 1;
 	    } else {
 		$next = $1, $ok = 0, last if /^not ok ([0-9]*)/;
-		if (/^ok (.*)/ && $1 == $next) {
+		if (/^ok (\d+)(\s*#.*)?$/ && $1 == $next) {
 		    $next = $next + 1;
 		} else {
 		    $ok = 0;
diff --git a/t/lib/anydbm.t b/t/lib/anydbm.t
index 6ddbf25e2d..cadbfd5658 100755
--- a/t/lib/anydbm.t
+++ b/t/lib/anydbm.t
@@ -23,7 +23,7 @@ if (! -e $Dfile) {
 	($Dfile) = <Op.dbmx*>;
 }
 if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32') {
-    print "ok 2\n";
+    print "ok 2 # Skipped: different file permission semantics\n";
 }
 else {
     ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
diff --git a/t/lib/db-btree.t b/t/lib/db-btree.t
index bebb63df8d..c85c22f92c 100755
--- a/t/lib/db-btree.t
+++ b/t/lib/db-btree.t
@@ -601,6 +601,8 @@ EOM
     main::ok(101, $@ eq "") ;
     main::ok(102, $ret eq "[[11]]") ;
 
+    undef $X;
+    untie(%h);
     unlink "SubDB.pm", "dbbtree.tmp" ;
 
 }
diff --git a/t/lib/db-hash.t b/t/lib/db-hash.t
index 9df918cce5..10c8d14fb8 100755
--- a/t/lib/db-hash.t
+++ b/t/lib/db-hash.t
@@ -407,6 +407,8 @@ EOM
     main::ok(61, $@ eq "") ;
     main::ok(62, $ret eq "[[11]]") ;
 
+    undef $X;
+    untie(%h);
     unlink "SubDB.pm", "dbhash.tmp" ;
 
 }
diff --git a/t/lib/db-recno.t b/t/lib/db-recno.t
index 9950741ffe..b332c5eb6c 100755
--- a/t/lib/db-recno.t
+++ b/t/lib/db-recno.t
@@ -378,6 +378,8 @@ EOM
     main::ok(65, $@ eq "") ;
     main::ok(66, $ret eq "[[11]]") ;
 
+    undef $X;
+    untie(@h);
     unlink "SubDB.pm", "recno.tmp" ;
 
 }
diff --git a/t/lib/gdbm.t b/t/lib/gdbm.t
index 37660c26c6..ebc9f56bc0 100755
--- a/t/lib/gdbm.t
+++ b/t/lib/gdbm.t
@@ -25,7 +25,7 @@ if (! -e $Dfile) {
 	($Dfile) = <Op.dbmx*>;
 }
 if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32') {
-    print "ok 2\n";
+    print "ok 2 # Skipped: different file permission semantics\n";
 }
 else {
     ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
@@ -201,6 +201,8 @@ EOM
     main::ok(19, $@ eq "") ;
     main::ok(20, $ret eq "[[5]]") ;
 
+    undef $X;
+    untie(%h);
     unlink "SubDB.pm", <dbhash.tmp*> ;
 
 }
diff --git a/t/lib/ndbm.t b/t/lib/ndbm.t
index 27f3ec5066..db9846a8cb 100755
--- a/t/lib/ndbm.t
+++ b/t/lib/ndbm.t
@@ -28,7 +28,7 @@ if (! -e $Dfile) {
 	($Dfile) = <Op.dbmx*>;
 }
 if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32') {
-    print "ok 2\n";
+    print "ok 2 # Skipped: different file permission semantics\n";
 }
 else {
     ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
@@ -200,6 +200,8 @@ EOM
     main::ok(17, $@ eq "") ;
     main::ok(18, $ret eq "[[5]]") ;
 
+    undef $X;
+    untie(%h);
     unlink "SubDB.pm", <dbhash.tmp*> ;
 
 }
diff --git a/t/lib/odbm.t b/t/lib/odbm.t
index 6cfefdaee5..65c9870a02 100755
--- a/t/lib/odbm.t
+++ b/t/lib/odbm.t
@@ -28,7 +28,7 @@ if (! -e $Dfile) {
 	($Dfile) = <Op.dbmx*>;
 }
 if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32') {
-    print "ok 2\n";
+    print "ok 2 # Skipped: different file permission semantics\n";
 }
 else {
     ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
@@ -200,6 +200,8 @@ EOM
     main::ok(17, $@ eq "") ;
     main::ok(18, $ret eq "[[5]]") ;
 
+    undef $X;
+    untie(%h);
     unlink "SubDB.pm", <dbhash.tmp*> ;
 
 }
diff --git a/t/lib/sdbm.t b/t/lib/sdbm.t
index c8ae09285b..ad25011d76 100755
--- a/t/lib/sdbm.t
+++ b/t/lib/sdbm.t
@@ -28,7 +28,7 @@ if (! -e $Dfile) {
 	($Dfile) = <Op.dbmx*>;
 }
 if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32') {
-    print "ok 2\n";
+    print "ok 2 # Skipped: different file permission semantics\n";
 }
 else {
     ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
@@ -200,6 +200,8 @@ EOM
     main::ok(17, $@ eq "") ;
     main::ok(18, $ret eq "[[5]]") ;
 
+    undef $X;
+    untie(%h);
     unlink "SubDB.pm", <dbhash.tmp*> ;
 
 }
diff --git a/t/op/taint.t b/t/op/taint.t
index 8437c43c45..22bb574a09 100755
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -120,10 +120,7 @@ print "1..140\n";
     }
 
     my $tmp;
-    if ($^O eq 'os2' || $^O eq 'amigaos' || $Is_MSWin32) {
-	print "# all directories are writeable\n";
-    }
-    else {
+    unless ($^O eq 'os2' || $^O eq 'amigaos' || $Is_MSWin32) {
 	$tmp = (grep { defined and -d and (stat _)[2] & 2 }
 		     qw(/tmp /var/tmp /usr/tmp /sys$scratch),
 		     @ENV{qw(TMP TEMP)})[0]
@@ -136,7 +133,7 @@ print "1..140\n";
 	test 7, $@ =~ /^Insecure directory in \$ENV{PATH}/, $@;
     }
     else {
-	for (6..7) { print "ok $_\n" }
+	for (6..7) { print "ok $_ # Skipped: all directories are writeable\n" }
     }
 
     if ($Is_VMS) {
@@ -149,14 +146,12 @@ print "1..140\n";
 	    test 11, $@ =~ /^Insecure directory in \$ENV{DCL\$PATH}/, $@;
 	}
 	else {
-	    print "# can't find world-writeable directory to test DCL\$PATH\n";
-	    for (10..11) { print "ok $_\n" }
+	    for (10..11) { print "ok $_ # Skipped: can't find world-writeable directory to test DCL\$PATH\n" }
 	}
 	$ENV{'DCL$PATH'} = '';
     }
     else {
-	print "# This is not VMS\n";
-	for (8..11) { print "ok $_\n"; }
+	for (8..11) { print "ok $_ # Skipped: This is not VMS\n"; }
     }
 }
 
@@ -292,8 +287,7 @@ else {
 	test 50, $@ =~ /^Insecure dependency/, $@;
     }
     else {
-	print "# chown() is not available\n";
-	for (49..50) { print "ok $_\n" }
+	for (49..50) { print "ok $_ # Skipped: chown() is not available\n" }
     }
 
     if ($Config{d_link}) {
@@ -301,8 +295,7 @@ else {
 	test 52, $@ =~ /^Insecure dependency/, $@;
     }
     else {
-	print "# link() is not available\n";
-	for (51..52) { print "ok $_\n" }
+	for (51..52) { print "ok $_ # Skipped: link() is not available\n" }
     }
 
     if ($Config{d_symlink}) {
@@ -310,8 +303,7 @@ else {
 	test 54, $@ =~ /^Insecure dependency/, $@;
     }
     else {
-	print "# symlink() is not available\n";
-	for (53..54) { print "ok $_\n" }
+	for (53..54) { print "ok $_ # Skipped: symlink() is not available\n" }
     }
 }
 
@@ -331,8 +323,7 @@ else {
 	test 62, $@ =~ /^Insecure dependency/, $@;
     }
     else {
-	print "# chroot() is not available\n";
-	for (61..62) { print "ok $_\n" }
+	for (61..62) { print "ok $_ # Skipped: chroot() is not available\n" }
     }
 }
 
@@ -360,8 +351,7 @@ else {
     my $foo = $TAINT;
 
     if ($^O eq 'amigaos') {
-	print "# open(\"|\") is not available\n";
-	for (70..73) { print "ok $_\n" }
+	for (70..73) { print "ok $_ # Skipped: open('|') is not available\n" }
     }
     else {
 	test 70, eval { open FOO, "| $foo" } eq '', 'popen to';
@@ -388,7 +378,7 @@ else {
 	test 81, $@ eq '', $@;
     }
     else {
-	for (80..81) { print "ok $_\n"; }
+	for (80..81) { print "ok $_ # Skipped: this is not VMS\n"; }
     }
 }
 
@@ -402,8 +392,7 @@ else {
 	test 85, $@ =~ /^Insecure dependency/, $@;
     }
     else {
-	print "# setpgrp() is not available\n";
-	for (84..85) { print "ok $_\n" }
+	for (84..85) { print "ok $_ # Skipped: setpgrp() is not available\n" }
     }
 
     if ($Config{d_setprior}) {
@@ -411,8 +400,7 @@ else {
 	test 87, $@ =~ /^Insecure dependency/, $@;
     }
     else {
-	print "# setpriority() is not available\n";
-	for (86..87) { print "ok $_\n" }
+	for (86..87) { print "ok $_ # Skipped: setpriority() is not available\n" }
     }
 }
 
@@ -423,8 +411,7 @@ else {
 	test 89, $@ =~ /^Insecure dependency/, $@;
     }
     else {
-	print "# syscall() is not available\n";
-	for (88..89) { print "ok $_\n" }
+	for (88..89) { print "ok $_ # Skipped: syscall() is not available\n" }
     }
 
     {
@@ -443,8 +430,7 @@ else {
 	    test 94, $@ =~ /^Insecure dependency/, $@;
 	}
 	else {
-	    print "# fcntl() is not available\n";
-	    for (93..94) { print "ok $_\n" }
+	    for (93..94) { print "ok $_ # Skipped: fcntl() is not available\n" }
 	}
 
 	close FOO;
@@ -534,8 +520,7 @@ else {
 		  and not tainted $getpwent[8]);
 	endpwent();
     } else {
-	print "# getpwent() is not available\n";
-	print "ok 136\n";
+	print "ok 136 # Skipped: getpwent() is not available\n";
     }
 
     if ($Config{d_readdir}) { # pretty hard to imagine not
@@ -545,8 +530,7 @@ else {
 	test 137, tainted $readdir;
 	closedir(OP);
     } else {
-	print "# readdir() is not available\n";
-	print "ok 137\n";
+	print "ok 137 # Skipped: readdir() is not available\n";
     }
 
     if ($Config{d_readlink} && $Config{d_symlink}) {
@@ -557,8 +541,7 @@ else {
 	test 138, tainted $readlink;
 	unlink($symlink);
     } else {
-	print "# readlink() or symlink() is not available\n";
-	print "ok 138\n";
+	print "ok 138 # Skipped: readlink() or symlink() is not available\n";
     }
 }