summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2004-05-25 19:38:12 (GMT)
committerdgp <dgp@users.sourceforge.net>2004-05-25 19:38:12 (GMT)
commit189bfa75c643b2ca02afef7fe20837322f2fc382 (patch)
treeaf753e6ebd2ab001b2977c2c88ac034d75871a6b /tests
parent4063b631058e6432a5dc992ba0194458e9727f8b (diff)
downloadtcl-189bfa75c643b2ca02afef7fe20837322f2fc382.zip
tcl-189bfa75c643b2ca02afef7fe20837322f2fc382.tar.gz
tcl-189bfa75c643b2ca02afef7fe20837322f2fc382.tar.bz2
* 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.
Diffstat (limited to 'tests')
-rw-r--r--tests/unixInit.test5
-rw-r--r--tests/unload.test4
-rw-r--r--tests/winPipe.test3
3 files changed, 8 insertions, 4 deletions
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]]