summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2001-09-12 20:28:50 (GMT)
committerdgp <dgp@users.sourceforge.net>2001-09-12 20:28:50 (GMT)
commit6727cf506b15b1ff2832c5a3f751c8e7e67e80a8 (patch)
treebe3ba6413f65fdfc0736bd93c26b5df8e1dd8219
parent19a37ef5be79dcf11a0b532696cea8d10e437d7a (diff)
downloadtcl-6727cf506b15b1ff2832c5a3f751c8e7e67e80a8.zip
tcl-6727cf506b15b1ff2832c5a3f751c8e7e67e80a8.tar.gz
tcl-6727cf506b15b1ff2832c5a3f751c8e7e67e80a8.tar.bz2
* Corrected tests to better isolate tests in
one file from influencing tests in other files. [Bug 460591]
-rw-r--r--ChangeLog9
-rw-r--r--tests/appendComp.test3
-rw-r--r--tests/lsearch.test3
-rw-r--r--tests/namespace.test3
-rw-r--r--tests/rename.test3
-rw-r--r--tests/split.test3
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