summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-08-21 19:18:28 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-08-21 19:18:28 (GMT)
commitcb779b2f4466180ab1678cc0a9e38159704b7efd (patch)
tree240f9e28b54823c081efd68cb198f033dfeaa371 /tests
parent88f6a82f096bab2c48289cf27f99c6f2df66da9b (diff)
downloadtcl-cb779b2f4466180ab1678cc0a9e38159704b7efd.zip
tcl-cb779b2f4466180ab1678cc0a9e38159704b7efd.tar.gz
tcl-cb779b2f4466180ab1678cc0a9e38159704b7efd.tar.bz2
Tidy the code and add a test.dgp_purge_NRRunObjProc
Diffstat (limited to 'tests')
-rw-r--r--tests/coroutine.test9
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