From 96a3b80e0a446cfce5e07783fee3af2965d1dd31 Mon Sep 17 00:00:00 2001
From: Miguel Sofer <miguel.sofer@gmail.com>
Date: Tue, 25 Feb 2003 16:18:43 +0000
Subject: 	* tests/execute.test: cleaning up testobj's at the end, to
 avoid 	leak warning by valgrind.

---
 ChangeLog          | 6 ++++++
 tests/execute.test | 5 ++++-
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index b489a4b..f11f0f5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2003-02-25  Miguel Sofer <msofer@users.sf.net>
+
+	* tests/execute.test: cleaning up testobj's at the end, to avoid
+	leak warning by valgrind.
+
+
 2003-02-22  Zoran Vasiljevic  <zoran@archiwrae.com>
 
 	* generic/tclEvent.c (Tcl_FinalizeThread): Fix [Bug #571002] 
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 ""}
-- 
cgit v0.12