diff options
| author | dgp <dgp@users.sourceforge.net> | 2004-05-25 19:38:12 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2004-05-25 19:38:12 (GMT) |
| commit | 189bfa75c643b2ca02afef7fe20837322f2fc382 (patch) | |
| tree | af753e6ebd2ab001b2977c2c88ac034d75871a6b | |
| parent | 4063b631058e6432a5dc992ba0194458e9727f8b (diff) | |
| download | tcl-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.
| -rw-r--r-- | ChangeLog | 3 | ||||
| -rw-r--r-- | tests/unixInit.test | 5 | ||||
| -rw-r--r-- | tests/unload.test | 4 | ||||
| -rw-r--r-- | tests/winPipe.test | 3 |
4 files changed, 11 insertions, 4 deletions
@@ -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]] |