diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-11-05 17:06:22 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-11-05 17:06:22 (GMT) |
| commit | cccc07aa2829b401bc101caeb9890a7e876081a2 (patch) | |
| tree | 620ee207ede848ef890070313145c275721cb615 /tests/appendComp.test | |
| parent | 263312727f8fc4187995ed52540370d6b0589143 (diff) | |
| parent | 3b0ee42270085b039b75e2e27a3a145399a1bfac (diff) | |
| download | tcl-cccc07aa2829b401bc101caeb9890a7e876081a2.zip tcl-cccc07aa2829b401bc101caeb9890a7e876081a2.tar.gz tcl-cccc07aa2829b401bc101caeb9890a7e876081a2.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tests/appendComp.test')
| -rw-r--r-- | tests/appendComp.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/appendComp.test b/tests/appendComp.test index 66941a9..a6e78d2 100644 --- a/tests/appendComp.test +++ b/tests/appendComp.test @@ -41,7 +41,7 @@ test appendComp-1.3 {append command} { test appendComp-2.1 {long appends} { proc foo {} { set x "" - for {set i 0} {$i < 1000} {set i [expr $i+1]} { + for {set i 0} {$i < 1000} {incr i} { append x "foobar " } set y "foobar" @@ -223,7 +223,7 @@ test appendComp-5.1 {long lappends} -setup { } } -body { set x "" - for {set i 0} {$i < 300} {set i [expr $i+1]} { + for {set i 0} {$i < 300} {incr i} { lappend x "item $i" } check $x 300 |