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

8 files changed, 19 insertions, 5 deletions

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*> ;
 
 }