diff options
| -rw-r--r-- | ChangeLog | 9 | ||||
| -rw-r--r-- | tests/appendComp.test | 3 | ||||
| -rw-r--r-- | tests/lsearch.test | 3 | ||||
| -rw-r--r-- | tests/namespace.test | 3 | ||||
| -rw-r--r-- | tests/rename.test | 3 | ||||
| -rw-r--r-- | tests/split.test | 3 |
6 files changed, 19 insertions, 5 deletions
@@ -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 |