diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-28 10:42:05 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-28 10:42:05 (GMT) |
| commit | 8d49123e73e1b0bbbf97cd212e88960772a9e166 (patch) | |
| tree | b3753c3b36bfe5b8fb3203da20f2864e9981ea97 /tests/lmap.test | |
| parent | 9c024d9d3bfcd6cee7c0a39492f7e1fd4f80192d (diff) | |
| download | tcl-8d49123e73e1b0bbbf97cd212e88960772a9e166.zip tcl-8d49123e73e1b0bbbf97cd212e88960772a9e166.tar.gz tcl-8d49123e73e1b0bbbf97cd212e88960772a9e166.tar.bz2 | |
Use {} braces in more "expr" expressions.
Diffstat (limited to 'tests/lmap.test')
| -rw-r--r-- | tests/lmap.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/lmap.test b/tests/lmap.test index 432e195..d986ee2 100644 --- a/tests/lmap.test +++ b/tests/lmap.test @@ -220,10 +220,10 @@ test lmap-4.14 {lmap errors} -returnCodes error -body { } -result {list element in braces followed by "3" instead of space} unset -nocomplain a test lmap-4.15 {lmap errors} { - apply {{} { + apply {{} { set a(0) 44 - list [catch {lmap a {1 2 3} {}} msg o] $msg $::errorInfo - }} + list [catch {lmap a {1 2 3} {}} msg o] $msg $::errorInfo + }} } {1 {can't set "a": variable is array} {can't set "a": variable is array while executing "lmap a {1 2 3} {}"}} @@ -357,7 +357,7 @@ test lmap-7.2 {noncompiled lmap and shared variable or value list objects that a } -body { lmap {12.0} {a b c} { set x 12.0 - set x [expr $x + 1] + set x [expr {$x + 1}] } } -result {13.0 13.0 13.0} # Test for incorrect "double evaluation" semantics |