summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2012-06-11 17:49:12 (GMT)
committerdgp <dgp@users.sourceforge.net>2012-06-11 17:49:12 (GMT)
commit2b44404206c55f2894ce4b297fbce6176a70cf66 (patch)
tree2de722a252b06dbff9c8bac7239a3b99d8fcbf85 /tests
parente39d5419c36351fd1e67f48b94934998ddf15785 (diff)
parent45d29cd41c215484eaf33a4f02be315a6b1872b9 (diff)
downloadtcl-2b44404206c55f2894ce4b297fbce6176a70cf66.zip
tcl-2b44404206c55f2894ce4b297fbce6176a70cf66.tar.gz
tcl-2b44404206c55f2894ce4b297fbce6176a70cf66.tar.bz2
3532959 Make sure the lifetime management of entries in the linePBodyPtr hash
table can tolerate either order of teardown, interp first, or Proc first.
Diffstat (limited to 'tests')
-rw-r--r--tests/proc.test9
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/proc.test b/tests/proc.test
index ed3c4b6..e06720e 100644
--- a/tests/proc.test
+++ b/tests/proc.test
@@ -374,6 +374,15 @@ test proc-7.3 {Returning loop exception from redefined cmd: Bug 729692} -body {
} -cleanup {
namespace delete ugly
} -result 4
+
+test proc-7.4 {Proc struct outlives its interp: Bug 3532959} {
+ set lambda x
+ lappend lambda {set a 1}
+ interp create slave
+ slave eval [list apply $lambda foo]
+ interp delete slave
+ unset lambda
+} {}
# cleanup
catch {rename p ""}