summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog3
-rw-r--r--tests/unixInit.test5
-rw-r--r--tests/unload.test4
-rw-r--r--tests/winPipe.test3
4 files changed, 11 insertions, 4 deletions
diff --git a/ChangeLog b/ChangeLog
index 093eec1..2d83a91 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -7,7 +7,10 @@
2004-05-25 Don Porter <dgp@users.sourceforge.net>
+ * tests/winPipe.test: Protect against path being set
+ * tests/unixInit.test: Unset path when done.
* tests/unload.test (unload-3.1): Verify [pkgb_sub] does not exist.
+ Delete interps when done.
* tests/stringComp.test: stop re-use of string.test test names
* tests/regexpComp.test: stop re-use of regexp.test test names
* tests/namespace.test (namespace-46.3): Verify [p] does not exist.
diff --git a/tests/unixInit.test b/tests/unixInit.test
index 9caa0bd..4835f58 100644
--- a/tests/unixInit.test
+++ b/tests/unixInit.test
@@ -10,11 +10,11 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: unixInit.test,v 1.36 2004/05/05 21:35:24 dgp Exp $
+# RCS: @(#) $Id: unixInit.test,v 1.37 2004/05/25 19:38:16 dgp Exp $
package require tcltest 2
namespace import -force ::tcltest::*
-catch {unset path}
+unset -nocomplain path
if {[info exists env(TCL_LIBRARY)]} {
set oldlibrary $env(TCL_LIBRARY)
unset env(TCL_LIBRARY)
@@ -381,6 +381,7 @@ if {[info exists oldlibrary]} {
}
catch {unset env(LANG)}
catch {set env(LANG) $oldlang}
+unset -nocomplain path
::tcltest::cleanupTests
return
diff --git a/tests/unload.test b/tests/unload.test
index a322c29..6cc0007 100644
--- a/tests/unload.test
+++ b/tests/unload.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: unload.test,v 1.3 2004/05/25 18:58:05 dgp Exp $
+# RCS: @(#) $Id: unload.test,v 1.4 2004/05/25 19:38:16 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -214,5 +214,7 @@ test unload-4.6 {basic unloading of unloadable package from a safe interpreter,
} {{. {} {}} {} {} {. . .}}
# cleanup
+interp delete child
+interp delete child-trusted
::tcltest::cleanupTests
return
diff --git a/tests/winPipe.test b/tests/winPipe.test
index 9229533..36af34b 100644
--- a/tests/winPipe.test
+++ b/tests/winPipe.test
@@ -12,10 +12,11 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: winPipe.test,v 1.27 2004/05/19 20:15:32 dkf Exp $
+# RCS: @(#) $Id: winPipe.test,v 1.28 2004/05/25 19:38:16 dgp Exp $
package require tcltest
namespace import -force ::tcltest::*
+unset -nocomplain path
testConstraint exec [llength [info commands exec]]