diff options
author | dgp <dgp@users.sourceforge.net> | 2013-08-21 19:18:28 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2013-08-21 19:18:28 (GMT) |
commit | ed72e77b7de9b2427769b37d8f669b1f05d9ee42 (patch) | |
tree | 240f9e28b54823c081efd68cb198f033dfeaa371 /tests | |
parent | 83d427e824792fee386b4dc5699858922a3cc3c2 (diff) | |
download | tcl-ed72e77b7de9b2427769b37d8f669b1f05d9ee42.zip tcl-ed72e77b7de9b2427769b37d8f669b1f05d9ee42.tar.gz tcl-ed72e77b7de9b2427769b37d8f669b1f05d9ee42.tar.bz2 |
Tidy the code and add a test.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/coroutine.test | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/coroutine.test b/tests/coroutine.test index 1d9040b..faa5a42 100644 --- a/tests/coroutine.test +++ b/tests/coroutine.test @@ -609,6 +609,15 @@ test coroutine-7.3 {yielding between coroutines} -body { } -cleanup { catch {rename juggler ""} } -result {{{a b c d e} ::j1 {a b c d} ::j2 {a b c} ::j3 {a b} ::j1 a ::j2} {} {} {}} + +test coroutine-7.4 {Bug 8ff0cb9fe1} -setup { + proc foo {a b} {catch yield; return 1} +} -cleanup { + rename foo {} +} -body { + coroutine demo lsort -command foo {a b} +} -result {b a} + # cleanup unset lambda |