summaryrefslogtreecommitdiffstats
path: root/tests/interp.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2004-05-25 17:44:28 (GMT)
committerdgp <dgp@users.sourceforge.net>2004-05-25 17:44:28 (GMT)
commitf4ff4a223ba658dbf3fed7c42db2228b993699d1 (patch)
treea3bdf1015eb17a60676c62d008a6b6a6f72df2dd /tests/interp.test
parentd363c73bd491a731497011162ceabf6274a603c8 (diff)
downloadtcl-f4ff4a223ba658dbf3fed7c42db2228b993699d1.zip
tcl-f4ff4a223ba658dbf3fed7c42db2228b993699d1.tar.gz
tcl-f4ff4a223ba658dbf3fed7c42db2228b993699d1.tar.bz2
* tests/autoMkindex.test (autoMkindex-5.2): Use variable "result"
that gets cleaned up. * tests/exec.test: Clean up the "path" array. * tests/interp.test (interp-9.3): Initialize res, so prior values cannot make the test fail.
Diffstat (limited to 'tests/interp.test')
-rw-r--r--tests/interp.test3
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/interp.test b/tests/interp.test
index 8298df1..3a91671 100644
--- a/tests/interp.test
+++ b/tests/interp.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: interp.test,v 1.36 2004/05/20 13:04:12 dkf Exp $
+# RCS: @(#) $Id: interp.test,v 1.37 2004/05/25 17:44:30 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2.1
@@ -295,6 +295,7 @@ test interp-9.3 {testing aliases for hidden commands} {
catch {interp create a}
a eval {proc p {} {return ENTER_A}}
interp alias {} p a p
+ set res {}
lappend res [list [catch p msg] $msg]
interp hide a p
lappend res [list [catch p msg] $msg]