diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/mathop.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/mathop.test b/tests/mathop.test index 477120d..b7e886b 100644 --- a/tests/mathop.test +++ b/tests/mathop.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: mathop.test,v 1.6 2006/12/08 16:14:18 dgp Exp $ +# RCS: @(#) $Id: mathop.test,v 1.7 2006/12/08 20:48:09 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2.1 @@ -306,10 +306,10 @@ namespace eval ::testmathop { } -returnCodes error -result {can't use non-numeric string as operand of "~"} test mathop-4.9 {compiled ~: errors} -body { ~ 0 0 - } -returnCodes error -result "wrong # args: should be \"~ number\"" + } -returnCodes error -result "wrong # args: should be \"~ integer\"" test mathop-4.10 {compiled ~: errors} -body { ~ - } -returnCodes error -result "wrong # args: should be \"~ number\"" + } -returnCodes error -result "wrong # args: should be \"~ integer\"" test mathop-4.11 {compiled ~: errors} -returnCodes error -body { ~ 0.0 } -result {can't use floating-point value as operand of "~"} @@ -329,10 +329,10 @@ namespace eval ::testmathop { } -returnCodes error -result {can't use non-numeric string as operand of "~"} test mathop-4.21 {interpreted ~: errors} -body { $op 0 0 - } -returnCodes error -result "wrong # args: should be \"~ number\"" + } -returnCodes error -result "wrong # args: should be \"~ integer\"" test mathop-4.22 {interpreted ~: errors} -body { $op - } -returnCodes error -result "wrong # args: should be \"~ number\"" + } -returnCodes error -result "wrong # args: should be \"~ integer\"" test mathop-4.23 {interpreted ~: errors} -returnCodes error -body { $op 0.0 } -result {can't use floating-point value as operand of "~"} |