summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2003-02-25 16:18:43 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2003-02-25 16:18:43 (GMT)
commit96a3b80e0a446cfce5e07783fee3af2965d1dd31 (patch)
tree989048712800e03f5d98a7b4e411d5e15212632a /tests
parente182f056b3f80eac465acbf99fd9417d4e744cbb (diff)
downloadtcl-96a3b80e0a446cfce5e07783fee3af2965d1dd31.zip
tcl-96a3b80e0a446cfce5e07783fee3af2965d1dd31.tar.gz
tcl-96a3b80e0a446cfce5e07783fee3af2965d1dd31.tar.bz2
* tests/execute.test: cleaning up testobj's at the end, to avoid
leak warning by valgrind.
Diffstat (limited to 'tests')
-rw-r--r--tests/execute.test5
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/execute.test b/tests/execute.test
index b251eb4..ab51d1a 100644
--- a/tests/execute.test
+++ b/tests/execute.test
@@ -14,7 +14,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: execute.test,v 1.12 2003/02/19 14:33:42 msofer Exp $
+# RCS: @(#) $Id: execute.test,v 1.13 2003/02/25 16:18:54 msofer Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -714,6 +714,9 @@ test execute-7.34 {Wide int handling} {longIs32bit} {
} 1099511627776
# cleanup
+if {[info commands testobj] != {}} {
+ testobj freeallvars
+}
catch {eval namespace delete [namespace children :: test_ns_*]}
catch {rename foo ""}
catch {rename p ""}