diff options
author | gahr <gahr@gahr.ch> | 2016-03-03 08:34:56 (GMT) |
---|---|---|
committer | gahr <gahr@gahr.ch> | 2016-03-03 08:34:56 (GMT) |
commit | 4b301d844892c52ec5fecce47f03c91a551639ca (patch) | |
tree | 7e5e124503a4afc925b79b149f6f07805d191b61 /tests | |
parent | 46cb341dbc07abb1df54318ad9d55c41a5a68668 (diff) | |
parent | 8815f9f3c32c06e9f2d1d2b8ea69e1810988c5a4 (diff) | |
download | tcl-4b301d844892c52ec5fecce47f03c91a551639ca.zip tcl-4b301d844892c52ec5fecce47f03c91a551639ca.tar.gz tcl-4b301d844892c52ec5fecce47f03c91a551639ca.tar.bz2 |
merge trunk
Diffstat (limited to 'tests')
-rw-r--r-- | tests/msgcat.test | 1 | ||||
-rw-r--r-- | tests/var.test | 28 |
2 files changed, 29 insertions, 0 deletions
diff --git a/tests/msgcat.test b/tests/msgcat.test index 6b965d1..8647f9c 100644 --- a/tests/msgcat.test +++ b/tests/msgcat.test @@ -995,6 +995,7 @@ namespace eval ::msgcat::test { mcloadedlocales clear } -cleanup { mcforgetpackage + after cancel set [namespace current]::resultvariable timeout } -body { mcpackageconfig set loadcmd [namespace code callbackfailproc] mclocale foo_bar diff --git a/tests/var.test b/tests/var.test index 0531746..b6b09fd 100644 --- a/tests/var.test +++ b/tests/var.test @@ -921,6 +921,34 @@ test var-22.0 {leak in array element unset: Bug a3309d01db} -setup { rename getbytes {} rename doit {} } -result 0 +test var-22.1 {leak in localVarName intrep: Bug 80304238ac} -setup { + proc getbytes {} { + lindex [split [memory info] \n] 3 3 + } + proc doit {} { + interp create slave + slave eval { + proc doit script { + eval $script + set foo bar + } + doit {foreach foo baz {}} + } + interp delete slave + } +} -constraints memory -body { + set end [getbytes] + for {set i 0} {$i < 5} {incr i} { + doit + set tmp $end + set end [getbytes] + } + set leakedBytes [expr {$end - $tmp}] +} -cleanup { + array unset A + rename getbytes {} + rename doit {} +} -result 0 catch {namespace delete ns} |