summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorferrieux <ferrieux@users.sourceforge.net>2014-10-10 19:36:17 (GMT)
committerferrieux <ferrieux@users.sourceforge.net>2014-10-10 19:36:17 (GMT)
commit9235e4c9a7d271d7add0c040d7303d92cdb6589c (patch)
tree85cfca0930e543b165b0e37cd7a5e73de89a2f68
parent1f83f66e0bc72148d1ea23a44655a8db6992002d (diff)
downloadtcl-9235e4c9a7d271d7add0c040d7303d92cdb6589c.zip
tcl-9235e4c9a7d271d7add0c040d7303d92cdb6589c.tar.gz
tcl-9235e4c9a7d271d7add0c040d7303d92cdb6589c.tar.bz2
Add Colin's test for coro floor above street level [Bug #3008307]
-rw-r--r--tests/coroutine.test14
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