From 189bfa75c643b2ca02afef7fe20837322f2fc382 Mon Sep 17 00:00:00 2001 From: dgp Date: Tue, 25 May 2004 19:38:12 +0000 Subject: * 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. --- ChangeLog | 3 +++ tests/unixInit.test | 5 +++-- tests/unload.test | 4 +++- tests/winPipe.test | 3 ++- 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 + * 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]] -- cgit v0.12