From 435545b3b3cd8208239d3f989af2badd1c1ea6a0 Mon Sep 17 00:00:00 2001
From: Miguel Sofer <miguel.sofer@gmail.com>
Date: Sun, 6 Dec 2009 18:29:32 +0000
Subject: clear old junk in tests/coroutine.test:

---
 ChangeLog            |  1 +
 tests/coroutine.test | 42 +-----------------------------------------
 2 files changed, 2 insertions(+), 41 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 37be2a2..f33db7e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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
-- 
cgit v0.12