summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2009-12-06 18:29:32 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2009-12-06 18:29:32 (GMT)
commit435545b3b3cd8208239d3f989af2badd1c1ea6a0 (patch)
treeaeafc910e6c5bdfd8ac4e2f9c69f1088251f2eb5 /tests
parent54bc7a4be035ab032c4311c97a7e2240fb08b0cd (diff)
downloadtcl-435545b3b3cd8208239d3f989af2badd1c1ea6a0.zip
tcl-435545b3b3cd8208239d3f989af2badd1c1ea6a0.tar.gz
tcl-435545b3b3cd8208239d3f989af2badd1c1ea6a0.tar.bz2
clear old junk in tests/coroutine.test:
Diffstat (limited to 'tests')
-rw-r--r--tests/coroutine.test42
1 files changed, 1 insertions, 41 deletions
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