summaryrefslogtreecommitdiffstats
path: root/tests/tailcall.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2016-03-10 11:56:23 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2016-03-10 11:56:23 (GMT)
commit13347d984e68e94063bee8fe1b5c8cc77ef5b250 (patch)
tree556090915c1e4fb7420fa462964788c31d0852d9 /tests/tailcall.test
parent5137357e74c887368ad68c3cb09998b154e68d4f (diff)
downloadtcl-13347d984e68e94063bee8fe1b5c8cc77ef5b250.zip
tcl-13347d984e68e94063bee8fe1b5c8cc77ef5b250.tar.gz
tcl-13347d984e68e94063bee8fe1b5c8cc77ef5b250.tar.bz2
Eliminate exess spacings in many test-cases
Diffstat (limited to 'tests/tailcall.test')
-rw-r--r--tests/tailcall.test12
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/tailcall.test b/tests/tailcall.test
index 26f3cbf..ce506a7 100644
--- a/tests/tailcall.test
+++ b/tests/tailcall.test
@@ -28,9 +28,9 @@ if {[testConstraint testnrelevels]} {
namespace eval testnre {
#
# [testnrelevels] returns a 6-list with: C-stack depth, iPtr->numlevels,
- # cmdFrame level, callFrame level, tosPtr and callback depth
+ # cmdFrame level, callFrame level, tosPtr and callback depth
#
- variable last [testnrelevels]
+ variable last [testnrelevels]
proc depthDiff {} {
variable last
set depth [testnrelevels]
@@ -148,7 +148,7 @@ test tailcall-0.5 {tailcall is constant space} -constraints testnrelevels -setup
} -result {0 0 0 0 0 0}
test tailcall-0.5.1 {tailcall is constant space} -constraints testnrelevels -setup {
- #
+ #
# This test is related to [bug d87cb182053fd79b3]: the fix to that bug was
# to remove a call to TclSkipTailcall, which caused a violation of the
# constant-space property of tailcall in that particular
@@ -245,7 +245,7 @@ test tailcall-1 {tailcall} -body {
}
variable x *::
proc xset args {error ::xset}
- list [::b::moo] | $x $a::x $b::x | $::b::y
+ list [::b::moo] | $x $a::x $b::x | $::b::y
} -cleanup {
unset x
rename xset {}
@@ -619,7 +619,7 @@ test tailcall-12.3a3 {[Bug 2695587]} -body {
set x
} -cleanup {
unset x
-} -result {0 1}
+} -result {0 1}
test tailcall-12.3b0 {[Bug 2695587]} -body {
apply {{} {
@@ -654,7 +654,7 @@ test tailcall-12.3b3 {[Bug 2695587]} -body {
set x
} -cleanup {
unset x
-} -result {0 1}
+} -result {0 1}
# MORE VARIANTS MISSING: bc'ed caught script vs (bc'ed, not-bc'ed)
# catch. Actually superfluous now, as tailcall just returns TCL_RETURN so that