summaryrefslogtreecommitdiffstats
path: root/tests/coroutine.test
diff options
context:
space:
mode:
authorgahr <gahr@gahr.ch>2016-04-04 11:25:12 (GMT)
committergahr <gahr@gahr.ch>2016-04-04 11:25:12 (GMT)
commit540521771129cfb3a851405ae4306448fea3e769 (patch)
tree75feaeff0a9a36b53252789c8aebb45dbc0b2e49 /tests/coroutine.test
parent4b301d844892c52ec5fecce47f03c91a551639ca (diff)
parentb4d78562f6e023b1bf1accc8649c1a93b14be8d6 (diff)
downloadtcl-tip_444.zip
tcl-tip_444.tar.gz
tcl-tip_444.tar.bz2
merge trunktip_444
Diffstat (limited to 'tests/coroutine.test')
-rw-r--r--tests/coroutine.test8
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/coroutine.test b/tests/coroutine.test
index 205da67..86fa6e3 100644
--- a/tests/coroutine.test
+++ b/tests/coroutine.test
@@ -66,7 +66,7 @@ test coroutine-1.3 {yield returns new arg} -setup {
incr i
}
}
- coroutine foo ::apply [list {{start 2} {stop 10}} $body]
+ coroutine foo ::apply [list {{start 2} {stop 10}} $body]
set res {}
} -body {
for {set k 1} {$k < 4} {incr k} {
@@ -476,7 +476,7 @@ test coroutine-5.1 {right numLevels on coro return} -constraints {testnrelevels}
expr {[lindex [testnrelevels] 1] - 1}
}
proc relativeLevel base {
- # remove the level for this proc's call
+ # remove the level for this proc's call
expr {[getNumLevel] - $base - 1}
}
proc foo {} {
@@ -517,7 +517,7 @@ test coroutine-5.2 {right numLevels within coro} -constraints {testnrelevels} \
expr {[lindex [testnrelevels] 1] - 1}
}
proc relativeLevel base {
- # remove the level for this proc's call
+ # remove the level for this proc's call
expr {[getNumLevel] - $base - 1}
}
proc foo base {
@@ -588,7 +588,7 @@ test coroutine-7.2 {multi-argument yielding with yieldto} -body {
coroutine a corobody
coroutine b corobody
list [a x] [a y z] [a \{p] [a \{q r] [a] [a] [rename a {}] \
- [b ok] [rename b {}]
+ [b ok] [rename b {}]
} -cleanup {
rename corobody {}
} -result {x {y z 2} \{p {\{q r 2} {} 0 {} ok {}}