diff options
| author | msofer <msofer@noemail.net> | 2010-09-22 17:21:03 (GMT) |
|---|---|---|
| committer | msofer <msofer@noemail.net> | 2010-09-22 17:21:03 (GMT) |
| commit | 8abb052024f17f04034133f6351a36461838792c (patch) | |
| tree | ed180519bd178af62a3ca1c7030cf986c9da8917 /tests | |
| parent | fe9b6e0aac0df3da654e4e7f84aba9cc0f27f56c (diff) | |
| download | tcl-8abb052024f17f04034133f6351a36461838792c.zip tcl-8abb052024f17f04034133f6351a36461838792c.tar.gz tcl-8abb052024f17f04034133f6351a36461838792c.tar.bz2 | |
* tests/execute.test: added execute-10.3 for [Bug 3072640]. The
test causes a mem failure.
FossilOrigin-Name: 9637ffa98b9cbb76ed6b21d5c2610a9898fc0b14
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/execute.test | 23 |
1 files changed, 22 insertions, 1 deletions
diff --git a/tests/execute.test b/tests/execute.test index ce21040..9e5b1f6 100644 --- a/tests/execute.test +++ b/tests/execute.test @@ -14,7 +14,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: execute.test,v 1.35 2010/04/05 19:44:45 ferrieux Exp $ +# RCS: @(#) $Id: execute.test,v 1.36 2010/09/22 17:21:03 msofer Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -993,6 +993,27 @@ test execute-10.2 {Bug 2802881} -setup { interp delete slave } -returnCodes error -match glob -result * +test execute-10.3 {Bug 3072640} -setup { + proc generate {n} { + for {set i 0} {$i < $n} {incr i} { + yield $i + } + } + proc t {args} { + incr ::foo + } + trace add execution ::generate enterstep ::t +} -body { + coroutine coro generate 5 + trace remove execution ::generate enterstep ::t + set ::foo +} -cleanup { + unset ::foo + rename generate {} + rename t {} + rename coro {} +} -result 4 + # cleanup if {[info commands testobj] != {}} { testobj freeallvars |