diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2023-05-24 16:02:24 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2023-05-24 16:02:24 (GMT) |
| commit | 29225e440c7dfc3b4fb54d8bb5a8b32fd9604d6f (patch) | |
| tree | 76a21d1b72f69d7f7218eb0332f9d2afbed472d5 /tests/while.test | |
| parent | 4a3c559932945a74fed481561274ceedc4afe555 (diff) | |
| parent | 70a3d08fc4eb639c20c5613ea5952a0dfdd5e935 (diff) | |
| download | tcl-29225e440c7dfc3b4fb54d8bb5a8b32fd9604d6f.zip tcl-29225e440c7dfc3b4fb54d8bb5a8b32fd9604d6f.tar.gz tcl-29225e440c7dfc3b4fb54d8bb5a8b32fd9604d6f.tar.bz2 | |
merge core-8-branch
Diffstat (limited to 'tests/while.test')
| -rw-r--r-- | tests/while.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/while.test b/tests/while.test index 6ea8548..2bfab2a 100644 --- a/tests/while.test +++ b/tests/while.test @@ -32,7 +32,7 @@ test while-1.2 {TclCompileWhileCmd: error in test expression} -body { } -match glob -result {*"while {$i<} break"} test while-1.3 {TclCompileWhileCmd: error in test expression} -body { while {"a"+"b"} {error "loop aborted"} -} -returnCodes error -result {can't use non-numeric string as operand of "+"} +} -returnCodes error -result {can't use non-numeric string "a" as operand of "+"} test while-1.4 {TclCompileWhileCmd: multiline test expr} -body { set value 1 while {($tcl_platform(platform) != "foobar1") && \ @@ -343,7 +343,7 @@ test while-4.3 {while (not compiled): error in test expression} -body { test while-4.4 {while (not compiled): error in test expression} -body { set z while $z {"a"+"b"} {error "loop aborted"} -} -returnCodes error -result {can't use non-numeric string as operand of "+"} +} -returnCodes error -result {can't use non-numeric string "a" as operand of "+"} test while-4.5 {while (not compiled): multiline test expr} -body { set value 1 set z while |