diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2010-09-22 17:21:03 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2010-09-22 17:21:03 (GMT) |
| commit | 00b6fcde15446d336d2a2778a8f541064a725c5f (patch) | |
| tree | ed180519bd178af62a3ca1c7030cf986c9da8917 /tests/execute.test | |
| parent | e3bbe59fa932fe500376ca9592114bc997d2162f (diff) | |
| download | tcl-00b6fcde15446d336d2a2778a8f541064a725c5f.zip tcl-00b6fcde15446d336d2a2778a8f541064a725c5f.tar.gz tcl-00b6fcde15446d336d2a2778a8f541064a725c5f.tar.bz2 | |
* tests/execute.test: added execute-10.3 for [Bug 3072640]. The
test causes a mem failure.
Diffstat (limited to 'tests/execute.test')
| -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 |