diff options
| author | Steve Bennett <steveb@workware.net.au> | 2021-01-02 14:11:46 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2021-03-09 22:08:04 +1000 |
| commit | 1843b79a03dde71e361ade45e577e6ef4e52cfe5 (patch) | |
| tree | 9b551fe6c81d6f261b3a107a7e794f2ea5e3284f /tests/expr-new.test | |
| parent | 5fed880195c92cc4d70cd960a116d4130f1a37f4 (diff) | |
| download | jimtcl-1843b79a03dde71e361ade45e577e6ef4e52cfe5.zip jimtcl-1843b79a03dde71e361ade45e577e6ef4e52cfe5.tar.gz jimtcl-1843b79a03dde71e361ade45e577e6ef4e52cfe5.tar.bz2 | |
expr: TIP 526, only support a single arg
Avoid unexpected issues by concatenating multiple arguments.
This does create an incompatibility with early versions, but
it is generally trivial to convert existing code to one of two forms:
1. expr {$a + $b} -- usually correct
2. expr "$a + $b" -- usually incorrect
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/expr-new.test')
| -rw-r--r-- | tests/expr-new.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/expr-new.test b/tests/expr-new.test index 09a7143..9a49e24 100644 --- a/tests/expr-new.test +++ b/tests/expr-new.test @@ -70,10 +70,10 @@ test expr-1.2 {TclCompileExprCmd: one expression word} { expr -25 } -25 test expr-1.3 {TclCompileExprCmd: two expression words} { - expr -8.2 -6 + expr {-8.2 -6} } -14.2 test expr-1.4 {TclCompileExprCmd: five expression words} { - expr 20 - 5 +10 -7 + expr {20 - 5 +10 -7} } 18 test expr-1.5 {TclCompileExprCmd: quoted expression word} { expr "0005" @@ -111,7 +111,7 @@ 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 |