summaryrefslogtreecommitdiffstats
path: root/tests/mathop.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2006-12-08 20:48:08 (GMT)
committerdgp <dgp@users.sourceforge.net>2006-12-08 20:48:08 (GMT)
commit737023909817fcc30432c33881868b521a3661d9 (patch)
tree2ec0dbf630fbc773ffa1f75145aba1677f457a21 /tests/mathop.test
parentc31a5d22b7398ccaa6b9d0e17e4865563253b0f5 (diff)
downloadtcl-737023909817fcc30432c33881868b521a3661d9.zip
tcl-737023909817fcc30432c33881868b521a3661d9.tar.gz
tcl-737023909817fcc30432c33881868b521a3661d9.tar.bz2
* generic/tclBasic.c: Another step down the path of re-using
* generic/tclCompExpr.c: TclExecuteByteCode to implement the TIP 174 * generic/tclCompile.h: commands instead of using a mass of code * generic/tclMathOp.c: duplication. Now all operator commands that * tests/mathop.test: demand exactly one operation are implemented via TclSingleOpCmd and a call to TEBC.
Diffstat (limited to 'tests/mathop.test')
-rw-r--r--tests/mathop.test10
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 "~"}