diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/coroutine.test | 27 |
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 |