summaryrefslogtreecommitdiffstats
path: root/tests/tailcall.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2009-06-25 19:24:16 (GMT)
committerdgp <dgp@users.sourceforge.net>2009-06-25 19:24:16 (GMT)
commit234eb4d7556c017fc6dee98267a56c844150ee5c (patch)
tree1aaf2c7efd98a491704b2ad5617347f304eba9a1 /tests/tailcall.test
parentd013ac36802f1a94c8629dde40cfae06e492d4ce (diff)
downloadtcl-234eb4d7556c017fc6dee98267a56c844150ee5c.zip
tcl-234eb4d7556c017fc6dee98267a56c844150ee5c.tar.gz
tcl-234eb4d7556c017fc6dee98267a56c844150ee5c.tar.bz2
Made namespace scope corrections to some of the testing machinery
surrounding [testnrelevels]. Fixes up some -singleproc 1 failures.
Diffstat (limited to 'tests/tailcall.test')
-rw-r--r--tests/tailcall.test8
1 files changed, 5 insertions, 3 deletions
diff --git a/tests/tailcall.test b/tests/tailcall.test
index 8eea3e9..335492a 100644
--- a/tests/tailcall.test
+++ b/tests/tailcall.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: tailcall.test,v 1.8 2009/06/24 15:17:41 dgp Exp $
+# RCS: @(#) $Id: tailcall.test,v 1.9 2009/06/25 19:24:16 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -25,6 +25,7 @@ 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
@@ -41,13 +42,14 @@ if {[testConstraint testnrelevels]} {
return $res
}
proc setabs {} {
- uplevel 1 variable abs -[lindex [testnrelevels] 0]
+ variable abs [- [lindex [testnrelevels] 0]]
}
variable body0 {
set x [depthDiff]
if {[incr i] > 10} {
- variable abs
+ namespace upvar [namespace qualifiers \
+ [namespace origin depthDiff]] abs abs
incr abs [lindex [testnrelevels] 0]
return [list [lrange $x 0 3] $abs]
}