diff options
author | dgp <dgp@noemail.net> | 2001-09-12 20:34:59 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2001-09-12 20:34:59 (GMT) |
commit | f0804a5cfa48722669f66af0d59ba64cbff24a8e (patch) | |
tree | 331d9096f2f928f5c37261120be632eee5261c04 | |
parent | 4a7877b6d030b1c5a7e8cca6945165f56c849a8b (diff) | |
download | tcl-f0804a5cfa48722669f66af0d59ba64cbff24a8e.zip tcl-f0804a5cfa48722669f66af0d59ba64cbff24a8e.tar.gz tcl-f0804a5cfa48722669f66af0d59ba64cbff24a8e.tar.bz2 |
* Corrected tests to better isolate tests in
one file from influencing tests in other files. [Bug 460591]
FossilOrigin-Name: 54f87073bc2e2ea0dfaa2597a2b2501b63b66366
-rw-r--r-- | ChangeLog | 6 | ||||
-rw-r--r-- | tests/rename.test | 4 | ||||
-rw-r--r-- | tests/split.test | 3 |
3 files changed, 11 insertions, 2 deletions
@@ -1,3 +1,9 @@ +2001-09-12 Don Porter <msofer@users.sourceforge.net> + + * 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-10 Jeff Hobbs <jeffh@ActiveState.com> * generic/tclEvent.c (TclInExit): Corrected handling of tsd in diff --git a/tests/rename.test b/tests/rename.test index 246dbf8..2c7b6d7 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.8 2000/04/10 17:19:03 ericm Exp $ +# RCS: @(#) $Id: rename.test,v 1.8.2.1 2001/09/12 20:34:59 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -174,5 +174,7 @@ if {[info commands incr.old] != {}} { catch {rename incr {}} catch {rename incr.old incr} } +catch {rename x {}} +catch {rename kill {}} ::tcltest::cleanupTests return diff --git a/tests/split.test b/tests/split.test index e0dfc2d..4bc26b0 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.6.2.1 2001/09/12 20:34:59 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 |