diff options
| author | dgp <dgp@users.sourceforge.net> | 2012-06-11 17:34:35 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2012-06-11 17:34:35 (GMT) |
| commit | 45d29cd41c215484eaf33a4f02be315a6b1872b9 (patch) | |
| tree | 13f169828086bfbd8f44e7b6e5c8253d26bc58f3 /tests/proc.test | |
| parent | 7e302d3ca75cd9eb6998e895cf344665b1d08e5e (diff) | |
| parent | 2c0667d7b04e34fa929ccc4758a19af166cf4206 (diff) | |
| download | tcl-45d29cd41c215484eaf33a4f02be315a6b1872b9.zip tcl-45d29cd41c215484eaf33a4f02be315a6b1872b9.tar.gz tcl-45d29cd41c215484eaf33a4f02be315a6b1872b9.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/proc.test')
| -rw-r--r-- | tests/proc.test | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/proc.test b/tests/proc.test index 5673caa..c0f80e3 100644 --- a/tests/proc.test +++ b/tests/proc.test @@ -391,6 +391,14 @@ test proc-7.3 {Returning loop exception from redefined cmd: Bug 729692} { set res } {0 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 |