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 | 182bace1e3066600b76ac9a242df2a4803f51f07 (patch) | |
| tree | 85cfca0930e543b165b0e37cd7a5e73de89a2f68 /tests/coroutine.test | |
| parent | 1f33c7ae12c829e870b7bf7ac5db2a49ae551701 (diff) | |
| download | tcl-182bace1e3066600b76ac9a242df2a4803f51f07.zip tcl-182bace1e3066600b76ac9a242df2a4803f51f07.tar.gz tcl-182bace1e3066600b76ac9a242df2a4803f51f07.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 |