* Corrected tests to better isolate tests in

        one file from influencing tests in other files.  [Bug 460591]


FossilOrigin-Name: 9b3e82229d0d01e69a06d4b4defe09c3ec600835

5 files changed, 10 insertions, 5 deletions

diff --git a/tests/appendComp.test b/tests/appendComp.test
index 9692e2c..207a14b 100644
--- a/tests/appendComp.test
+++ b/tests/appendComp.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: appendComp.test,v 1.3 2001/07/03 23:39:24 hobbs Exp $
+# RCS: @(#) $Id: appendComp.test,v 1.4 2001/09/12 20:28:50 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -353,6 +353,7 @@ test appendComp-7.9 {append var does not trigger read trace} {
 
 catch {unset i x result y}
 catch {rename foo ""}
+catch {rename bar ""}
 catch {rename check ""}
 
 # cleanup
diff --git a/tests/lsearch.test b/tests/lsearch.test
index 275a569..44ec96e 100644
--- a/tests/lsearch.test
+++ b/tests/lsearch.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: lsearch.test,v 1.6 2000/05/09 17:50:39 ericm Exp $
+# RCS: @(#) $Id: lsearch.test,v 1.7 2001/09/12 20:28:50 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -270,6 +270,7 @@ test lsearch-9.4 {decreasing sorted ascii search} {
 
 
 # cleanup
+catch {unset res}
 ::tcltest::cleanupTests
 return
 
diff --git a/tests/namespace.test b/tests/namespace.test
index e6b881c..303ec84 100644
--- a/tests/namespace.test
+++ b/tests/namespace.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: namespace.test,v 1.16 2001/05/15 14:19:14 msofer Exp $
+# RCS: @(#) $Id: namespace.test,v 1.17 2001/09/12 20:28:50 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -1138,6 +1138,7 @@ test namespace-40.1 {Ignoring namespace proc "unknown"} {
 
 test namespace-41.1 {Shadowing byte-compiled commands} {
     namespace eval ns {
+	set res {}
 	proc test {} {
 	    set ::g 0
 	}  
diff --git a/tests/rename.test b/tests/rename.test
index bb71112..babe4ef 100644
--- a/tests/rename.test
+++ b/tests/rename.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: rename.test,v 1.9 2000/05/03 00:14:36 hobbs Exp $
+# RCS: @(#) $Id: rename.test,v 1.10 2001/09/12 20:28:50 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -75,6 +75,7 @@ test rename-3.5 {error conditions} {
 
 catch {rename unknown {}}
 catch {rename unknown.old unknown}
+catch {rename bar {}}
 
 if {[info command testdel] == "testdel"} {
     test rename-4.1 {reentrancy issues with command deletion and renaming} {
diff --git a/tests/split.test b/tests/split.test
index e0dfc2d..4dcbb00 100644
--- a/tests/split.test
+++ b/tests/split.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: split.test,v 1.6 2000/04/10 17:19:04 ericm Exp $
+# RCS: @(#) $Id: split.test,v 1.7 2001/09/12 20:28:50 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -69,6 +69,7 @@ test split-2.2 {split errors} {
 } {1 {wrong # args: should be "split string ?splitChars?"} NONE}
 
 # cleanup
+catch {rename foo {}}
 ::tcltest::cleanupTests
 return