diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-06-16 17:20:06 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-06-16 17:20:06 (GMT) |
| commit | 0f82494d95766fca811ff7df84d03b1949f2afa1 (patch) | |
| tree | b6126422cb910158f02508f907fc4a3380dfd5a3 /tests/proc.test | |
| parent | d893a31f9f960d1906332988842de1b8bd0c4f5c (diff) | |
| parent | bccf168ae55a2c314248ee8e3a2369efba47f317 (diff) | |
| download | tcl-0f82494d95766fca811ff7df84d03b1949f2afa1.zip tcl-0f82494d95766fca811ff7df84d03b1949f2afa1.tar.gz tcl-0f82494d95766fca811ff7df84d03b1949f2afa1.tar.bz2 | |
merge trunk
Diffstat (limited to 'tests/proc.test')
| -rw-r--r-- | tests/proc.test | 9 |
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 ""} |