diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-14 20:55:35 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-14 20:55:35 (GMT) |
| commit | 1d1c1fb98214ae17c86e77ec08d26d1ed3f17598 (patch) | |
| tree | 1b861d84b6134ca45007d5fefe5c3afbfcf90754 /tests/expr.test | |
| parent | ca67362ec86928e9ee5ce00bdd84ef80be120bdd (diff) | |
| parent | 6d004906276da0cdf24745a523dd66c46e8e0e17 (diff) | |
| download | tcl-1d1c1fb98214ae17c86e77ec08d26d1ed3f17598.zip tcl-1d1c1fb98214ae17c86e77ec08d26d1ed3f17598.tar.gz tcl-1d1c1fb98214ae17c86e77ec08d26d1ed3f17598.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tests/expr.test')
| -rw-r--r-- | tests/expr.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/expr.test b/tests/expr.test index 5c1f6d9..62b1c27 100644 --- a/tests/expr.test +++ b/tests/expr.test @@ -137,9 +137,9 @@ proc do_twelve_days {} { catch {unset a b i x} -test expr-1.1 {TclCompileExprCmd: no expression} { - list [catch {expr } msg] $msg -} {1 {wrong # args: should be "expr arg ?arg ...?"}} +test expr-1.1 {TclCompileExprCmd: no expression} -body { + expr +} -returnCodes error -result {wrong # args: should be "expr arg ?arg ...?"} test expr-1.2 {TclCompileExprCmd: one expression word} { expr -25 } -25 @@ -186,12 +186,12 @@ test expr-1.13 {TclCompileExprCmd: second level of substitutions in expr not in } foo test expr-1.14 {TclCompileExprCmd: second level of substitutions in expr with comparison as top-level operator} { set a xxx - set x 2; set b {$x}; set a [expr $b == 2] + set x 2; set b {$x}; set a [expr $b==2] set a } 1 test expr-1.15 {TclCompileExprCmd: second level of substitutions in expr with comparison as top-level operator} { set a xxx - set x 2; set b {$x}; set a [expr $b eq 2] + set x 2; set b {$x}; set a [expr "$b eq 2"] set a } 1 |