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/for-old.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/for-old.test')
| -rw-r--r-- | tests/for-old.test | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/tests/for-old.test b/tests/for-old.test index d00a4ee..baf40fa 100644 --- a/tests/for-old.test +++ b/tests/for-old.test @@ -22,23 +22,23 @@ if {"::tcltest" ni [namespace children]} { catch {unset a i} test for-old-1.1 {for tests} { set a {} - for {set i 1} {$i<6} {set i [expr $i+1]} { + for {set i 1} {$i<6} {incr i} { set a [concat $a $i] } set a } {1 2 3 4 5} test for-old-1.2 {for tests} { set a {} - for {set i 1} {$i<6} {set i [expr $i+1]} { - if $i==4 continue + for {set i 1} {$i<6} {incr i} { + if {$i==4} continue set a [concat $a $i] } set a } {1 2 3 5} test for-old-1.3 {for tests} { set a {} - for {set i 1} {$i<6} {set i [expr $i+1]} { - if $i==4 break + for {set i 1} {$i<6} {incr i} { + if {$i==4} break set a [concat $a $i] } set a @@ -55,12 +55,12 @@ test for-old-1.7 {for tests} { } {wrong # args: should be "for start test next command"} test for-old-1.8 {for tests} { set a {xyz} - for {set i 1} {$i<6} {set i [expr $i+1]} {} + for {set i 1} {$i<6} {incr i} {} set a } xyz test for-old-1.9 {for tests} { set a {} - for {set i 1} {$i<6} {set i [expr $i+1]; if $i==4 break} { + for {set i 1} {$i<6} {incr i; if {$i==4} break} { set a [concat $a $i] } set a |