diff options
author | stanton <stanton> | 1998-09-21 23:39:52 (GMT) |
---|---|---|
committer | stanton <stanton> | 1998-09-21 23:39:52 (GMT) |
commit | 494c2de3a748b449c69ce322a1a741f5a31fd4d5 (patch) | |
tree | c3ece48c0ae3f4ba54787e0e8e729b65752ef3f9 /tests/for.test | |
parent | 7a698c0488d99c0af42022714638ae1ba2afaa49 (diff) | |
download | tcl-494c2de3a748b449c69ce322a1a741f5a31fd4d5.zip tcl-494c2de3a748b449c69ce322a1a741f5a31fd4d5.tar.gz tcl-494c2de3a748b449c69ce322a1a741f5a31fd4d5.tar.bz2 |
Added contents of Tcl 8.1a2
Diffstat (limited to 'tests/for.test')
-rw-r--r-- | tests/for.test | 140 |
1 files changed, 132 insertions, 8 deletions
diff --git a/tests/for.test b/tests/for.test index aa918ec..f6d4324 100644 --- a/tests/for.test +++ b/tests/for.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. # -# SCCS: @(#) for.test 1.10 97/07/02 16:40:59 +# SCCS: @(#) for.test 1.13 97/12/08 15:02:58 if {[string compare test [info procs test]] == 1} then {source defs} @@ -582,11 +582,135 @@ test for-4.1 {break must reset the interp result} { set j } {} -# Check "for" and computed command names. - -test for-5.1 {for and computed command names} { - set j 0 +# Basic "for" operation with computed command names. +test for-5.1 {for cmd with computed command names: missing initial command} { set z for - $z {set i 0} {$i<10} {incr i} {set j $i} - set j -} 9 + list [catch {$z} msg] $msg +} {1 {wrong # args: should be "for start test next command"}} +test for-5.2 {for cmd with computed command names: error in initial command} { + set z for + list [catch {$z {set}} msg] $msg $errorInfo +} {1 {wrong # args: should be "for start test next command"} {wrong # args: should be "for start test next command" + while executing +"$z {set}"}} +test for-5.3 {for cmd with computed command names: missing test expression} { + set z for + catch {$z {set i 0}} msg + set msg +} {wrong # args: should be "for start test next command"} +test for-5.4 {for cmd with computed command names: error in test expression} { + set z for + catch {$z {set i 0} {$i<}} msg + set errorInfo +} {wrong # args: should be "for start test next command" + while executing +"$z {set i 0} {$i<}"} +test for-5.5 {for cmd with computed command names: test expression is enclosed in quotes} { + set z for + set i 0 + $z {} "$i > 5" {incr i} {} +} {} +test for-5.6 {for cmd with computed command names: missing "next" command} { + set z for + catch {$z {set i 0} {$i < 5}} msg + set msg +} {wrong # args: should be "for start test next command"} +test for-5.7 {for cmd with computed command names: missing command body} { + set z for + catch {$z {set i 0} {$i < 5} {incr i}} msg + set msg +} {wrong # args: should be "for start test next command"} +test for-5.8 {for cmd with computed command names: error executing command body} { + set z for + catch {$z {set i 0} {$i < 5} {incr i} {set}} msg + set errorInfo +} {wrong # args: should be "set varName ?newValue?" + while compiling +"set" + ("for" body line 1) + invoked from within +"$z {set i 0} {$i < 5} {incr i} {set}"} +test for-5.9 {for cmd with computed command names: simple command body} { + set z for + set a {} + $z {set i 1} {$i<6} {set i [expr $i+1]} { + if $i==4 break + set a [concat $a $i] + } + set a +} {1 2 3} +test for-5.10 {for cmd with computed command names: command body in quotes} { + set z for + set a {} + $z {set i 1} {$i<6} {set i [expr $i+1]} "append a x" + set a +} {xxxxx} +test for-5.11 {for cmd with computed command names: computed command body} { + set z for + catch {unset x1} + catch {unset bb} + catch {unset x2} + set x1 {append a x1; } + set bb {break} + set x2 {; append a x2} + set a {} + $z {set i 1} {$i<6} {set i [expr $i+1]} $x1$bb$x2 + set a +} {x1} +test for-5.12 {for cmd with computed command names: error in "next" command} { + set z for + catch {$z {set i 0} {$i < 5} {set} {set j 4}} msg + set errorInfo +} {wrong # args: should be "set varName ?newValue?" + while compiling +"set" + ("for" loop-end command) + invoked from within +"$z {set i 0} {$i < 5} {set} {set j 4}"} +test for-5.13 {for cmd with computed command names: long command body} { + set z for + set a {} + $z {set i 1} {$i<6} {set i [expr $i+1]} { + if $i==4 break + if $i>5 continue + if {$i>6 && $tcl_platform(machine)=="xxx"} { + catch {set a $a} msg + catch {incr i 5} msg + catch {incr i -5} msg + } + if {$i>6 && $tcl_platform(machine)=="xxx"} { + catch {set a $a} msg + catch {incr i 5} msg + catch {incr i -5} msg + } + if {$i>6 && $tcl_platform(machine)=="xxx"} { + catch {set a $a} msg + catch {incr i 5} msg + catch {incr i -5} msg + } + if {$i>6 && $tcl_platform(machine)=="xxx"} { + catch {set a $a} msg + catch {incr i 5} msg + catch {incr i -5} msg + } + if {$i>6 && $tcl_platform(machine)=="xxx"} { + catch {set a $a} msg + catch {incr i 5} msg + catch {incr i -5} msg + } + set a [concat $a $i] + } + set a +} {1 2 3} +test for-5.14 {for cmd with computed command names: for command result} { + set z for + set a [$z {set i 0} {$i < 5} {incr i} {}] + set a +} {} +test for-5.15 {for cmd with computed command names: for command result} { + set z for + set a [$z {set i 0} {$i < 5} {incr i} {if $i==3 break}] + set a +} {} + +return |