diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-11-27 14:59:03 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-11-27 14:59:03 +0000 |
| commit | fac76ed70b2818d69c47c57bd5b63a636a19a037 (patch) | |
| tree | 310939b53c9b5c385da8f3d8f239782000df18ea /t/lib/gdbm.t | |
| parent | 6027b9a35019f02a9b3e344c2f78856358da6033 (diff) | |
| download | perl-fac76ed70b2818d69c47c57bd5b63a636a19a037.tar.gz | |
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
Diffstat (limited to 't/lib/gdbm.t')
| -rwxr-xr-x | t/lib/gdbm.t | 4 |
1 files changed, 3 insertions, 1 deletions
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*> ; } |