diff options
Diffstat (limited to 'tests/while.test')
| -rw-r--r-- | tests/while.test | 16 |
1 files changed, 4 insertions, 12 deletions
diff --git a/tests/while.test b/tests/while.test index 411ba20..562a2aa 100644 --- a/tests/while.test +++ b/tests/while.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: while.test,v 1.11 2006/08/22 04:03:24 dgp Exp $ +# RCS: @(#) $Id: while.test,v 1.12 2006/08/22 18:10:44 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -30,11 +30,7 @@ test while-1.2 {TclCompileWhileCmd: error in test expression} -body { set i 0 catch {while {$i<} break} msg set errorInfo -} -result {missing operand at _@_ -in expression "$i<_@_" - (parsing expression "$i<") - invoked from within -"while {$i<} break"} +} -match glob -result {*"while {$i<} break"} test while-1.3 {TclCompileWhileCmd: error in test expression} { set err [catch {while {"a"+"b"} {error "loop aborted"}} msg] list $err $msg @@ -303,16 +299,12 @@ test while-4.2 {while (not compiled): missing test expression} { catch {$z } msg set msg } {wrong # args: should be "while test command"} -test while-4.3 {while (not compiled): error in test expression} { +test while-4.3 {while (not compiled): error in test expression} -body { set i 0 set z while catch {$z {$i<} {set x 1}} msg set errorInfo -} {missing operand at _@_ -in expression "$i<_@_" - (parsing expression "$i<") - invoked from within -"$z {$i<} {set x 1}"} +} -match glob -result {*"$z {$i<} {set x 1}"} test while-4.4 {while (not compiled): error in test expression} { set z while set err [catch {$z {"a"+"b"} {error "loop aborted"}} msg] |