diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/unsupported.test | 24 |
1 files changed, 23 insertions, 1 deletions
diff --git a/tests/unsupported.test b/tests/unsupported.test index 94242fa..0267c58 100644 --- a/tests/unsupported.test +++ b/tests/unsupported.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: unsupported.test,v 1.6 2008/08/22 18:27:27 dgp Exp $ +# RCS: @(#) $Id: unsupported.test,v 1.7 2008/08/26 22:37:05 msofer Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -746,6 +746,28 @@ test unsupported-C.3.2 {info frame computation} -constraints {coroutine} \ rename b {} } -result 1 +test unsupported-C.3.3 {info coroutine} -constraints {coroutine} \ +-setup { + proc a {} {infoCoroutine} + proc b {} a +} -body { + b +} -cleanup { + rename a {} + rename b {} +} -result {} + +test unsupported-C.3.4 {info coroutine} -constraints {coroutine} \ +-setup { + proc a {} {infoCoroutine} + proc b {} a +} -body { + coroutine foo b +} -cleanup { + rename a {} + rename b {} +} -result ::foo + # cleanup ::tcltest::cleanupTests |