diff options
author | stanton <stanton> | 1998-11-11 04:54:06 (GMT) |
---|---|---|
committer | stanton <stanton> | 1998-11-11 04:54:06 (GMT) |
commit | c0fd219230e4295c44743ad165a0d5a1c980b7dc (patch) | |
tree | ecdef91e34f72a712092b469a2a5ff861db47fb7 /tests/expr.test | |
parent | 131c68d85079ca5a553b28fef489cf29b79f1176 (diff) | |
download | tcl-c0fd219230e4295c44743ad165a0d5a1c980b7dc.zip tcl-c0fd219230e4295c44743ad165a0d5a1c980b7dc.tar.gz tcl-c0fd219230e4295c44743ad165a0d5a1c980b7dc.tar.bz2 |
lots of lint
wrapped mutex declarations in ifdefs to avoid compiler warnings
Diffstat (limited to 'tests/expr.test')
-rw-r--r-- | tests/expr.test | 31 |
1 files changed, 14 insertions, 17 deletions
diff --git a/tests/expr.test b/tests/expr.test index 3c743ce..d20c78f 100644 --- a/tests/expr.test +++ b/tests/expr.test @@ -9,7 +9,7 @@ # 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.1.2.1 1998/09/24 23:59:24 stanton Exp $ +# RCS: @(#) $Id: expr.test,v 1.1.2.2 1998/11/11 04:54:21 stanton Exp $ if {[string compare test [info procs test]] == 1} then {source defs} @@ -88,7 +88,7 @@ test expr-1.5 {TclCompileExprCmd: quoted expression word} { test expr-1.6 {TclCompileExprCmd: quoted expression word} { catch {expr "0005"zxy} msg set msg -} {quoted string doesn't terminate properly} +} {extra characters after close-quote} test expr-1.7 {TclCompileExprCmd: expression word in braces} { expr {-0005} } -5 @@ -98,7 +98,7 @@ test expr-1.8 {TclCompileExprCmd: expression word in braces} { test expr-1.9 {TclCompileExprCmd: expression word in braces} { catch {expr {-0005}foo} msg set msg -} {argument word in braces doesn't terminate properly} +} {extra characters after close-brace} test expr-1.10 {TclCompileExprCmd: other expression word in braces} { expr 4*[llength "6 2"] } 8 @@ -479,7 +479,6 @@ test expr-14.16 {CompilePrimaryExpr: error compiling var reference primary} { catch {expr {$a(foo}} msg set errorInfo } {missing ) - (parsing index for array "a") while compiling "expr {$a(foo}"} test expr-14.17 {CompilePrimaryExpr: string primary that looks like var ref} { @@ -516,9 +515,7 @@ test expr-14.23 {CompilePrimaryExpr: error in subcommand primary} { test expr-14.24 {CompilePrimaryExpr: error in subcommand primary} { catch {expr {[set i}} msg set errorInfo -} {missing close-bracket or close-brace - while compiling -"set i" +} {missing close-bracket while compiling "expr {[set i}"} test expr-14.25 {CompilePrimaryExpr: math function primary} { @@ -531,7 +528,7 @@ test expr-14.27 {CompilePrimaryExpr: error in math function primary} { catch {expr sinh::(2.0)} msg set errorInfo } {syntax error in expression "sinh::(2.0)" - while executing + while compiling "expr sinh::(2.0)"} test expr-14.28 {CompilePrimaryExpr: subexpression primary} { expr 2+(3*4) @@ -548,7 +545,7 @@ test expr-14.30 {CompilePrimaryExpr: missing paren in subexpression primary} { catch {expr 2+(3*(4+5)} msg set errorInfo } {syntax error in expression "2+(3*(4+5)" - while executing + while compiling "expr 2+(3*(4+5)"} test expr-14.31 {CompilePrimaryExpr: just var ref in subexpression primary} { set i "5+10" @@ -558,44 +555,44 @@ test expr-14.32 {CompilePrimaryExpr: unexpected token} { catch {expr @} msg set errorInfo } {syntax error in expression "@" - while executing + while compiling "expr @"} test expr-15.1 {CompileMathFuncCall: missing parenthesis} { catch {expr sinh2.0)} msg set errorInfo } {syntax error in expression "sinh2.0)" - while executing + while compiling "expr sinh2.0)"} test expr-15.2 {CompileMathFuncCall: unknown math function} { catch {expr whazzathuh(1)} msg set errorInfo } {unknown math function "whazzathuh" - while executing + while compiling "expr whazzathuh(1)"} test expr-15.3 {CompileMathFuncCall: too many arguments} { catch {expr sin(1,2,3)} msg set errorInfo } {too many arguments for math function - while executing + while compiling "expr sin(1,2,3)"} test expr-15.4 {CompileMathFuncCall: ')' found before last required arg} { catch {expr sin()} msg set errorInfo -} {syntax error in expression "sin()" - while executing +} {too few arguments for math function + while compiling "expr sin()"} test expr-15.5 {CompileMathFuncCall: too few arguments} { catch {expr pow(1)} msg set errorInfo } {too few arguments for math function - while executing + while compiling "expr pow(1)"} test expr-15.6 {CompileMathFuncCall: missing ')'} { catch {expr sin(1} msg set errorInfo } {syntax error in expression "sin(1" - while executing + while compiling "expr sin(1"} if $gotT1 { test expr-15.7 {CompileMathFuncCall: call registered math function} { |