diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2009-12-19 14:21:59 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2009-12-19 14:21:59 (GMT) |
| commit | e3f5e21f00d98dacf701c346899ada0ef3327513 (patch) | |
| tree | d3399287bc97eac2c88d646e442b4437f5a6a5a5 /tests | |
| parent | 98be197b8251a58439b9b30bb3e35c3e428d5295 (diff) | |
| download | tcl-e3f5e21f00d98dacf701c346899ada0ef3327513.zip tcl-e3f5e21f00d98dacf701c346899ada0ef3327513.tar.gz tcl-e3f5e21f00d98dacf701c346899ada0ef3327513.tar.bz2 | |
* generic/tclBasic.c: Fix for bad cmd resolution by coroutines
* tests/coroutine.test: [Bug #2917627]. Thanks to schelte for
finding it.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/coroutine.test | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/tests/coroutine.test b/tests/coroutine.test index 639fc0b..b4019d4 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.9 2009/12/07 20:49:29 msofer Exp $ +# RCS: @(#) $Id: coroutine.test,v 1.10 2009/12/19 14:22:00 msofer Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -402,6 +402,16 @@ test coroutine-4.3 {bug #2093947} -setup { unset ::res } -result {{v {} write} {v {} write} {v {} unset} {v {} write} {v {} unset}} +test coroutine-4.4 {bug #2917627: cmd resolution} -setup { + proc a {} {return global} + namespace eval b {proc a {} {return local}} +} -body { + namespace eval b {coroutine foo a} +} -cleanup { + rename a {} + namespace delete b +} -result local + test coroutine-5.1 {right numLevels on coro return} -constraints {testnrelevels} \ -setup { proc nestedYield {{val {}}} { |