summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2005-11-05 02:10:55 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2005-11-05 02:10:55 (GMT)
commit15953d9a5eb21c83e8996e1ef07027ad49f9458b (patch)
treef53cc1b2fd90ce216b15eb4f7dd691187ab1224b
parent2feffdc81ee352036ee1519395ff9e5dcab96867 (diff)
downloadtcl-15953d9a5eb21c83e8996e1ef07027ad49f9458b.zip
tcl-15953d9a5eb21c83e8996e1ef07027ad49f9458b.tar.gz
tcl-15953d9a5eb21c83e8996e1ef07027ad49f9458b.tar.bz2
* tests/trace.test (trace-8.9): added test to detect leak, see
[Bug 1348775].
-rw-r--r--ChangeLog5
-rw-r--r--tests/trace.test26
2 files changed, 30 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index e1ef0bb..5907b3d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2005-11-05 Miguel Sofer <msofer@users.sf.net>
+
+ * tests/trace.test (trace-8.9): added test to detect leak, see
+ [Bug 1348775].
+
2005-11-04 Pat Thoyts <patthoyts@users.sourceforge.net>
* win/tclWinPort.h: Applied patch #1267871 by Matt Newman for
diff --git a/tests/trace.test b/tests/trace.test
index 29c6a9a..86d2b39 100644
--- a/tests/trace.test
+++ b/tests/trace.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: trace.test,v 1.43 2005/11/04 02:13:41 msofer Exp $
+# RCS: @(#) $Id: trace.test,v 1.44 2005/11/05 02:10:55 msofer Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -20,6 +20,14 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
testConstraint testcmdtrace [llength [info commands testcmdtrace]]
+# Used for constraining memory leak tests
+testConstraint memory [llength [info commands memory]]
+
+proc getbytes {} {
+ set lines [split [memory info] "\n"]
+ lindex [lindex $lines 3] 3
+}
+
proc traceScalar {name1 name2 op} {
global info
set info [list $name1 $name2 $op [catch {uplevel set $name1} msg] $msg]
@@ -541,6 +549,22 @@ test trace-8.8 {error returns from traces} {
}
unset x
} {}
+test trace-8.9 {leaks in error returns from traces} \
+ -constraints memory -body {
+ set end [getbytes]
+ for {set i 0} {$i < 5} {incr i} {
+ set apa {a 1 b 2}
+ set bepa [lrange $apa 0 end]
+ trace add variable bepa write {error hej}
+ catch {set bepa a}
+ unset bepa
+ set tmp $end
+ set end [getbytes]
+ }
+ expr {$end - $tmp}
+ } -cleanup {
+ unset -nocomplain end i tmp
+ } -result 0
# Check to see that variables are expunged before trace
# procedures are invoked, so trace procedure can even manipulate