summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-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
5 files changed, 10 insertions, 5 deletions
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