Tcl Source Code

Artifact 35a55ca3ee36654e2a12694e5004f02966973eac:

Index: ChangeLog
===================================================================
RCS file: /cvsroot/tcl/tcl/ChangeLog,v
retrieving revision 1.603
diff -u -r1.603 ChangeLog
--- ChangeLog	2001/09/12 16:32:21	1.603
+++ ChangeLog	2001/09/12 20:23:35
@@ -1,3 +1,12 @@
+2001-09-12  Don Porter <[email protected]>
+
+	* tests/appendComp.test:
+	* tests/lsearch.test:
+	* tests/namespace.test:
+	* tests/rename.test:
+	* tests/split.test:  Corrected tests to better isolate tests in
+	one file from influencing tests in other files.  [Bug 460591]
+
 2001-09-12  Miguel Sofer  <[email protected]>
 
 	* generic/tcl.decls: reserved stub #481 for the implementation of
Index: tests/appendComp.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/appendComp.test,v
retrieving revision 1.3
diff -u -r1.3 appendComp.test
--- tests/appendComp.test	2001/07/03 23:39:24	1.3
+++ tests/appendComp.test	2001/09/12 20:23:36
@@ -353,6 +353,7 @@
 
 catch {unset i x result y}
 catch {rename foo ""}
+catch {rename bar ""}
 catch {rename check ""}
 
 # cleanup
Index: tests/lsearch.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/lsearch.test,v
retrieving revision 1.6
diff -u -r1.6 lsearch.test
--- tests/lsearch.test	2000/05/09 17:50:39	1.6
+++ tests/lsearch.test	2001/09/12 20:23:36
@@ -270,6 +270,7 @@
 
 
 # cleanup
+catch {unset res}
 ::tcltest::cleanupTests
 return
 
Index: tests/namespace.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/namespace.test,v
retrieving revision 1.16
diff -u -r1.16 namespace.test
--- tests/namespace.test	2001/05/15 14:19:14	1.16
+++ tests/namespace.test	2001/09/12 20:23:36
@@ -1138,6 +1138,7 @@
 
 test namespace-41.1 {Shadowing byte-compiled commands} {
     namespace eval ns {
+	set res {}
 	proc test {} {
 	    set ::g 0
 	}  
Index: tests/rename.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/rename.test,v
retrieving revision 1.9
diff -u -r1.9 rename.test
--- tests/rename.test	2000/05/03 00:14:36	1.9
+++ tests/rename.test	2001/09/12 20:23:36
@@ -75,6 +75,7 @@
 
 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} {
Index: tests/split.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/split.test,v
retrieving revision 1.6
diff -u -r1.6 split.test
--- tests/split.test	2000/04/10 17:19:04	1.6
+++ tests/split.test	2001/09/12 20:23:37
@@ -69,6 +69,7 @@
 } {1 {wrong # args: should be "split string ?splitChars?"} NONE}
 
 # cleanup
+catch {rename foo {}}
 ::tcltest::cleanupTests
 return