summaryrefslogtreecommitdiffstats
path: root/tests/coroutine.test
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2010-04-30 12:30:06 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2010-04-30 12:30:06 (GMT)
commit3e01004a237b5bdd39420d316a5be37c2c8215b8 (patch)
tree858888a085a88cbf7738fd6a844721d2f408280d /tests/coroutine.test
parent2233b6f37129e181e04e9513e9ccc31b34672012 (diff)
downloadtcl-3e01004a237b5bdd39420d316a5be37c2c8215b8.zip
tcl-3e01004a237b5bdd39420d316a5be37c2c8215b8.tar.gz
tcl-3e01004a237b5bdd39420d316a5be37c2c8215b8.tar.bz2
* tests/coroutine.test: testing coroutine arguments after [yield]:
check that only 0/1 allowed
Diffstat (limited to 'tests/coroutine.test')
-rw-r--r--tests/coroutine.test27
1 files changed, 26 insertions, 1 deletions
diff --git a/tests/coroutine.test b/tests/coroutine.test
index caa1d0a..448ce4d 100644
--- a/tests/coroutine.test
+++ b/tests/coroutine.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: coroutine.test,v 1.11 2010/01/03 20:29:12 msofer Exp $
+# RCS: @(#) $Id: coroutine.test,v 1.12 2010/04/30 12:30:07 msofer Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -516,6 +516,31 @@ test coroutine-5.2 {right numLevels within coro} -constraints {testnrelevels} \
unset res
} -result {0 0 0 0}
+
+test coroutine-6.1 {coroutine nargs} \
+-body {
+ coroutine a ::apply $lambda
+ a
+} -cleanup {
+ rename a {}
+} -result 0
+
+test coroutine-6.2 {coroutine nargs} \
+-body {
+ coroutine a ::apply $lambda
+ a a
+} -cleanup {
+ rename a {}
+} -result 0
+
+test coroutine-6.3 {coroutine nargs} \
+-body {
+ coroutine a ::apply $lambda
+ a a a
+} -cleanup {
+ rename a {}
+} -returnCodes error
+
unset lambda
# cleanup