From 6727cf506b15b1ff2832c5a3f751c8e7e67e80a8 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Wed, 12 Sep 2001 20:28:50 +0000
Subject: 	* Corrected tests to better isolate tests in         one file
 from influencing tests in other files.  [Bug 460591]

---
 ChangeLog             | 9 +++++++++
 tests/appendComp.test | 3 ++-
 tests/lsearch.test    | 3 ++-
 tests/namespace.test  | 3 ++-
 tests/rename.test     | 3 ++-
 tests/split.test      | 3 ++-
 6 files changed, 19 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 6ae25d3..d020f47 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2001-09-12  Don Porter <msofer@users.sourceforge.net>
+
+	* 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  <msofer@users.sourceforge.net>
 
 	* generic/tcl.decls: reserved stub #481 for the implementation of
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
 
-- 
cgit v0.12