diff options
| -rw-r--r-- | ChangeLog | 1 | ||||
| -rw-r--r-- | tests/coroutine.test | 42 |
2 files changed, 2 insertions, 41 deletions
@@ -2,6 +2,7 @@ * generic/tclBasic.c: Small changes for clarity in tailcall * generic/tclExecute.c: and coroutine code. + * tests/coroutine.test: * tests/tailcall.test: remove some old unused crud; improved the stack depth tests. diff --git a/tests/coroutine.test b/tests/coroutine.test index 776dda5..381cb63 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.6 2009/09/11 20:13:27 dgp Exp $ +# RCS: @(#) $Id: coroutine.test,v 1.7 2009/12/06 18:29:32 msofer Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -18,46 +18,6 @@ if {[lsearch [namespace children] ::tcltest] == -1} { testConstraint testnrelevels [llength [info commands testnrelevels]] -if {[testConstraint testnrelevels]} { - namespace eval testnre { - namespace path ::tcl::mathop - # - # [testnrelevels] returns a 6-list with: C-stack depth, iPtr->numlevels, - # cmdFrame level, callFrame level, tosPtr and callback depth - # - variable last [testnrelevels] - proc depthDiff {} { - variable last - set depth [testnrelevels] - set res {} - foreach t $depth l $last { - lappend res [expr {$t-$l}] - } - set last $depth - return $res - } - proc setabs {} { - variable abs [- [lindex [testnrelevels] 0] - } - - variable body0 { - set x [depthDiff] - if {[incr i] > 10} { - namespace upvar [namespace qualifiers \ - [namespace origin depthDiff]] abs abs - incr abs [lindex [testnrelevels] 0] - return [list [lrange $x 0 3] $abs] - } - } - proc makebody txt { - variable body0 - return "$body0; $txt" - } - namespace export * - } - namespace import testnre::* -} - set lambda [list {{start 0} {stop 10}} { # init set i $start |