diff options
Diffstat (limited to 'tests/expr.test')
| -rw-r--r-- | tests/expr.test | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/tests/expr.test b/tests/expr.test index 0b2543e..9a168c9 100644 --- a/tests/expr.test +++ b/tests/expr.test @@ -10,14 +10,14 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: expr.test,v 1.20 2003/09/19 23:05:40 dkf Exp $ +# RCS: @(#) $Id: expr.test,v 1.21 2004/05/19 20:15:31 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest namespace import -force ::tcltest::* } -testConstraint registeredMathFuncs [expr { +testConstraint testmathfunctions [expr { ([catch {expr T1()} msg] != 1) || ($msg ne {unknown math function "T1"}) }] @@ -324,11 +324,11 @@ test expr-9.4 {CompileRelationalExpr: just shift expr} {expr {1<<3}} 8 # architectures because LONG_MIN is different if {0x80000000 > 0} { - test expr-9.5 {CompileRelationalExpr: shift expr producing LONG_MIN} {nonPortable} { + test expr-9.5a {CompileRelationalExpr: shift expr producing LONG_MIN} {nonPortable} { expr {1<<63} } -9223372036854775808 } else { - test expr-9.5 {CompileRelationalExpr: shift expr producing LONG_MIN} {nonPortable} { + test expr-9.5b {CompileRelationalExpr: shift expr producing LONG_MIN} {nonPortable} { expr {1<<31} } -2147483648 } @@ -626,34 +626,34 @@ test expr-15.6 {CompileMathFuncCall: missing ')'} { } {syntax error in expression "sin(1": missing close parenthesis at end of function call while compiling "expr sin(1"} -test expr-15.7 {CompileMathFuncCall: call registered math function} {registeredMathFuncs} { +test expr-15.7 {CompileMathFuncCall: call registered math function} {testmathfunctions} { expr 2*T1() } 246 -test expr-15.8 {CompileMathFuncCall: call registered math function} {registeredMathFuncs} { +test expr-15.8 {CompileMathFuncCall: call registered math function} {testmathfunctions} { expr T2()*3 } 1035 -test expr-15.9 {CompileMathFuncCall: call registered math function} {registeredMathFuncs} { +test expr-15.9 {CompileMathFuncCall: call registered math function} {testmathfunctions} { expr T3(21, 37) } 37 -test expr-15.10 {CompileMathFuncCall: call registered math function} {registeredMathFuncs} { +test expr-15.10 {CompileMathFuncCall: call registered math function} {testmathfunctions} { expr T3(21.2, 37) } 37.0 -test expr-15.11 {CompileMathFuncCall: call registered math function} {registeredMathFuncs} { +test expr-15.11 {CompileMathFuncCall: call registered math function} {testmathfunctions} { expr T3(-21.2, -17.5) } -17.5 -test expr-15.12 {ExprCallMathFunc: call registered math function} {registeredMathFuncs} { +test expr-15.12 {ExprCallMathFunc: call registered math function} {testmathfunctions} { expr T3(21, wide(37)) } 37 -test expr=15.13 {ExprCallMathFunc: call registered math function} {registeredMathFuncs} { +test expr=15.13 {ExprCallMathFunc: call registered math function} {testmathfunctions} { expr T3(wide(21), 37) } 37 -test expr=15.14 {ExprCallMathFunc: call registered math function} {registeredMathFuncs} { +test expr=15.14 {ExprCallMathFunc: call registered math function} {testmathfunctions} { expr T3(wide(21), wide(37)) } 37 -test expr-15.15 {ExprCallMathFunc: call registered math function} {registeredMathFuncs} { +test expr-15.15 {ExprCallMathFunc: call registered math function} {testmathfunctions} { expr T3(21.0, wide(37)) } 37.0 -test expr=15.16 {ExprCallMathFunc: call registered math function} {registeredMathFuncs} { +test expr=15.16 {ExprCallMathFunc: call registered math function} {testmathfunctions} { expr T3(wide(21), 37.0) } 37.0 |