diff options
Diffstat (limited to 'tests/parseExpr.test')
| -rw-r--r-- | tests/parseExpr.test | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/tests/parseExpr.test b/tests/parseExpr.test index 31b1649..50a04c3 100644 --- a/tests/parseExpr.test +++ b/tests/parseExpr.test @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: parseExpr.test,v 1.25.6.2 2007/09/04 17:44:07 dgp Exp $ +# RCS: @(#) $Id: parseExpr.test,v 1.25.6.3 2007/10/16 03:50:33 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -590,7 +590,7 @@ test parseExpr-16.5 {GetLexeme procedure, integer lexeme too big} testexprparser testexprparser {12345678901234567890} -1 } {- {} 0 subexpr 12345678901234567890 1 text 12345678901234567890 0 {}} test parseExpr-16.6 {GetLexeme procedure, bad integer lexeme} -constraints testexprparser -body { - testexprparser {0999} -1 + testexprparser {0o999} -1 } -returnCodes error -match glob -result {*invalid octal number*} test parseExpr-16.7 {GetLexeme procedure, double lexeme} testexprparser { testexprparser {0.999} -1 @@ -762,15 +762,11 @@ test parseExpr-21.6 {error messages} -body { } -returnCodes error -result {missing operator at _@_ in expression "0 _@_0"} test parseExpr-21.7 {error messages} -body { - expr {08} -} -returnCodes error -result {missing operator at _@_ -in expression "0_@_8"; -looks like invalid octal number} + expr {0o8} +} -returnCodes error -match glob -result {*invalid octal number*} test parseExpr-21.8 {error messages} -body { - expr {08x} -} -returnCodes error -result {missing operator at _@_ -in expression "0_@_8x"; -looks like invalid octal number} + expr {0o8x} +} -returnCodes error -match glob -result {*invalid octal number*} test parseExpr-21.9 {error messages} -body { expr {"} } -returnCodes error -result {missing " |