summaryrefslogtreecommitdiffstats
path: root/tests/apply.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/apply.test')
-rw-r--r--tests/apply.test6
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/apply.test b/tests/apply.test
index 95f4fd8..809fdbe 100644
--- a/tests/apply.test
+++ b/tests/apply.test
@@ -12,7 +12,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: apply.test,v 1.13 2008/07/19 22:50:39 nijtmans Exp $
+# RCS: @(#) $Id: apply.test,v 1.14 2009/10/29 17:21:48 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2.2
@@ -277,7 +277,7 @@ test apply-9.1 {leaking internal rep} -setup {
set leakedBytes [expr {$end - $tmp}]
} -cleanup {
rename getbytes {}
- unset lam
+ unset -nocomplain lam end i tmp leakedBytes
} -result 0
test apply-9.2 {leaking internal rep} -setup {
proc getbytes {} {
@@ -294,6 +294,7 @@ test apply-9.2 {leaking internal rep} -setup {
set leakedBytes [expr {$end - $tmp}]
} -cleanup {
rename getbytes {}
+ unset -nocomplain end i tmp leakedBytes
} -result 0
test apply-9.3 {leaking internal rep} -setup {
proc getbytes {} {
@@ -312,6 +313,7 @@ test apply-9.3 {leaking internal rep} -setup {
set leakedBytes [expr {$end - $tmp}]
} -cleanup {
rename getbytes {}
+ unset -nocomplain end i x tmp leakedBytes
} -result 0
# Tests for the avoidance of recompilation