diff options
| author | ferrieux <ferrieux@users.sourceforge.net> | 2014-10-10 19:36:17 (GMT) |
|---|---|---|
| committer | ferrieux <ferrieux@users.sourceforge.net> | 2014-10-10 19:36:17 (GMT) |
| commit | 9235e4c9a7d271d7add0c040d7303d92cdb6589c (patch) | |
| tree | 85cfca0930e543b165b0e37cd7a5e73de89a2f68 /tests/coroutine.test | |
| parent | 1f83f66e0bc72148d1ea23a44655a8db6992002d (diff) | |
| download | tcl-9235e4c9a7d271d7add0c040d7303d92cdb6589c.zip tcl-9235e4c9a7d271d7add0c040d7303d92cdb6589c.tar.gz tcl-9235e4c9a7d271d7add0c040d7303d92cdb6589c.tar.bz2 | |
Add Colin's test for coro floor above street level [Bug #3008307]
Diffstat (limited to 'tests/coroutine.test')
| -rw-r--r-- | tests/coroutine.test | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/tests/coroutine.test b/tests/coroutine.test index 05b58c9..205da67 100644 --- a/tests/coroutine.test +++ b/tests/coroutine.test @@ -726,6 +726,20 @@ test coroutine-7.11 {yieldto context nuke: Bug a90d9331bc} -setup { catch {namespace delete ::cotest} catch {rename cotest ""} } -result {yieldto called in deleted namespace} +test coroutine-7.12 {coro floor above street level #3008307} -body { + proc c {} { + yield + } + proc cc {} { + coroutine C c + } + proc boom {} { + cc ; # coro created at level 2 + C ; # and called at level 1 + } + boom ; # does not crash: the coro floor is a good insulator + list +} -result {} # cleanup |