diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2009-12-07 20:49:28 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2009-12-07 20:49:28 (GMT) |
| commit | ddd3069fa1c4fd4dbcfd28c0486d8de3254fdae2 (patch) | |
| tree | eefa819224a7681e205b316e86470ffb3be1a907 /tests/coroutine.test | |
| parent | 60fb745f06ad64d3e8042da7ab3a837f52eafce6 (diff) | |
| download | tcl-ddd3069fa1c4fd4dbcfd28c0486d8de3254fdae2.zip tcl-ddd3069fa1c4fd4dbcfd28c0486d8de3254fdae2.tar.gz tcl-ddd3069fa1c4fd4dbcfd28c0486d8de3254fdae2.tar.bz2 | |
* generic/tclCmdIL.c: Fix of [Bug #2910094] by aku
* tests/coroutine.test:
Diffstat (limited to 'tests/coroutine.test')
| -rw-r--r-- | tests/coroutine.test | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/tests/coroutine.test b/tests/coroutine.test index d248269..639fc0b 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.8 2009/12/06 19:37:50 msofer Exp $ +# RCS: @(#) $Id: coroutine.test,v 1.9 2009/12/07 20:49:29 msofer Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -322,6 +322,24 @@ test coroutine-3.5 {info coroutine} -setup { rename a {} rename b {} } -result {} +test coroutine-3.6 {info frame, bug #2910094} -setup { + proc stack {} { + set res [list "LEVEL:[set lev [info frame]]"] + for {set i 1} {$i < $lev} {incr i} { + lappend res [info frame $i] + } + set res + # the precise command depends on line numbers and such, is likely not + # to be stable: just check that the test completes! + return + } + proc a {} stack +} -body { + coroutine aa a +} -cleanup { + rename stack {} + rename a {} +} -result {} test coroutine-4.1 {bug #2093188} -setup { proc foo {} { |