From bbad36071d5a6d4be3588f0f10c88247439076d8 Mon Sep 17 00:00:00 2001
From: Ilya Zakharevich <ilya@math.ohio-state.edu>
Date: Thu, 16 Jan 1997 23:48:18 -0500
Subject: Test patches for OS/2
a) Teaches tests in os2/OS2/*/* new format of $Config{extensions};
os2/OS2/ExtAttr/t/os2_ea.t os2/OS2/PrfDB/t/os2_prfdb.t
os2/OS2/REXX/t/rx_cmprt.t os2/OS2/REXX/t/rx_dllld.t
os2/OS2/REXX/t/rx_objcall.t os2/OS2/REXX/t/rx_sql.test
os2/OS2/REXX/t/rx_tiesql.test os2/OS2/REXX/t/rx_tievar.t
os2/OS2/REXX/t/rx_tieydb.t os2/OS2/REXX/t/rx_varset.t
os2/OS2/REXX/t/rx_vrexx.t
b) Closes all the files before unlinking - for DOSISH systems;
t/cmd/while.t t/comp/multiline.t t/io/argv.t t/lib/anydbm.t
t/lib/gdbm.t t/lib/ndbm.t t/lib/odbm.t t/lib/sdbm.t
c) t/README mentions running `harness' to get better granularity;
t/README
d) New test op/lex_assign.t added - will check optimization of lexicals
when applied - 153 cases (some just ignored since hard to implement).
MANIFEST t/op/lex_assign.t
e) When a script is started via shell, $Config{exe_ext} may be appended.
t/op/magic.t
f) path/echo may print a warning if run without args
t/comp/colon.t
g) Error explanations more verbose
t/op/cmp.t t/op/magic.t
p5p-msgid: <199701170448.XAA28948@monk.mps.ohio-state.edu>
---
t/lib/anydbm.t | 1 +
t/lib/gdbm.t | 1 +
t/lib/ndbm.t | 1 +
t/lib/odbm.t | 1 +
t/lib/sdbm.t | 1 +
5 files changed, 5 insertions(+)
(limited to 't/lib')
diff --git a/t/lib/anydbm.t b/t/lib/anydbm.t
index 80b39df141..52ab22b13e 100755
--- a/t/lib/anydbm.t
+++ b/t/lib/anydbm.t
@@ -111,4 +111,5 @@ print join(':',200..400) eq join(':',@foo) ? "ok 10\n" : "not ok 10\n";
print ($h{'foo'} eq '' ? "ok 11\n" : "not ok 11\n");
print ($h{''} eq 'bar' ? "ok 12\n" : "not ok 12\n");
+untie %h;
unlink 'Op.dbmx.dir', $Dfile;
diff --git a/t/lib/gdbm.t b/t/lib/gdbm.t
index c888c00f85..62bb936ff1 100755
--- a/t/lib/gdbm.t
+++ b/t/lib/gdbm.t
@@ -114,4 +114,5 @@ print join(':',200..400) eq join(':',@foo) ? "ok 10\n" : "not ok 10\n";
print ($h{'foo'} eq '' ? "ok 11\n" : "not ok 11\n");
print ($h{''} eq 'bar' ? "ok 12\n" : "not ok 12\n");
+untie %h;
unlink 'Op.dbmx.dir', $Dfile;
diff --git a/t/lib/ndbm.t b/t/lib/ndbm.t
index 15aa93a725..8e2ba8164a 100755
--- a/t/lib/ndbm.t
+++ b/t/lib/ndbm.t
@@ -117,4 +117,5 @@ print join(':',200..400) eq join(':',@foo) ? "ok 10\n" : "not ok 10\n";
print ($h{'foo'} eq '' ? "ok 11\n" : "not ok 11\n");
print ($h{''} eq 'bar' ? "ok 12\n" : "not ok 12\n");
+untie %h;
unlink 'Op.dbmx.dir', $Dfile;
diff --git a/t/lib/odbm.t b/t/lib/odbm.t
index 0b1fa50cb9..0c530d2238 100755
--- a/t/lib/odbm.t
+++ b/t/lib/odbm.t
@@ -117,4 +117,5 @@ print join(':',200..400) eq join(':',@foo) ? "ok 10\n" : "not ok 10\n";
print ($h{'foo'} eq '' ? "ok 11\n" : "not ok 11\n");
print ($h{''} eq 'bar' ? "ok 12\n" : "not ok 12\n");
+untie %h;
unlink 'Op.dbmx.dir', $Dfile;
diff --git a/t/lib/sdbm.t b/t/lib/sdbm.t
index 1bb3fde392..65419f9711 100755
--- a/t/lib/sdbm.t
+++ b/t/lib/sdbm.t
@@ -116,4 +116,5 @@ print join(':',200..400) eq join(':',@foo) ? "ok 10\n" : "not ok 10\n";
print ($h{'foo'} eq '' ? "ok 11\n" : "not ok 11\n");
print ($h{''} eq 'bar' ? "ok 12\n" : "not ok 12\n");
+untie %h;
unlink 'Op.dbmx.dir', $Dfile;
--
cgit v1.2.1