diff options
| author | msofer <msofer@noemail.net> | 2003-02-25 16:18:43 (GMT) |
|---|---|---|
| committer | msofer <msofer@noemail.net> | 2003-02-25 16:18:43 (GMT) |
| commit | e69eab9b285c22554e7c2d0f075f34e89cc86c9f (patch) | |
| tree | 989048712800e03f5d98a7b4e411d5e15212632a /tests | |
| parent | b888449509098ad83ac4a9374022ef02c0555fb9 (diff) | |
| download | tcl-e69eab9b285c22554e7c2d0f075f34e89cc86c9f.zip tcl-e69eab9b285c22554e7c2d0f075f34e89cc86c9f.tar.gz tcl-e69eab9b285c22554e7c2d0f075f34e89cc86c9f.tar.bz2 | |
* tests/execute.test: cleaning up testobj's at the end, to avoid
leak warning by valgrind.
FossilOrigin-Name: 65f2a4c931698f81411fb5f62decb71dc101b522
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/execute.test | 5 |
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 ""} |