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 | cb779b2f4466180ab1678cc0a9e38159704b7efd (patch) | |
| tree | 240f9e28b54823c081efd68cb198f033dfeaa371 /tests/coroutine.test | |
| parent | 88f6a82f096bab2c48289cf27f99c6f2df66da9b (diff) | |
| download | tcl-cb779b2f4466180ab1678cc0a9e38159704b7efd.zip tcl-cb779b2f4466180ab1678cc0a9e38159704b7efd.tar.gz tcl-cb779b2f4466180ab1678cc0a9e38159704b7efd.tar.bz2 | |
Tidy the code and add a test.dgp_purge_NRRunObjProc
Diffstat (limited to 'tests/coroutine.test')
| -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 |