More test flexibility

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]