diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-30 13:27:52 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-30 13:27:52 (GMT) |
| commit | 076a7e2839881c03d0a98a8fc50823aef42ad79a (patch) | |
| tree | 26698b0ef5c437526bbf0b1f88222dd4a0275d2a /tests/uplevel.test | |
| parent | 9efaa4d7f1aeb58c52fe41c62713b568a0833948 (diff) | |
| download | tcl-076a7e2839881c03d0a98a8fc50823aef42ad79a.zip tcl-076a7e2839881c03d0a98a8fc50823aef42ad79a.tar.gz tcl-076a7e2839881c03d0a98a8fc50823aef42ad79a.tar.bz2 | |
Add "{}" around many "expr" commands in testcases. Also in doc/expr.n
Diffstat (limited to 'tests/uplevel.test')
| -rw-r--r-- | tests/uplevel.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/uplevel.test b/tests/uplevel.test index 5f0dd5c..fa3be92 100644 --- a/tests/uplevel.test +++ b/tests/uplevel.test @@ -17,7 +17,7 @@ if {"::tcltest" ni [namespace children]} { } proc a {x y} { - newset z [expr $x+$y] + newset z [expr {$x + $y}] return $z } proc newset {name value} { @@ -247,7 +247,7 @@ test uplevel-7.1 {var access, no LVT in either level} -setup { unset -nocomplain y z } -body { namespace eval foo { - set x 2 + set x 2 set y 2 uplevel 1 { set x 3 @@ -266,7 +266,7 @@ test uplevel-7.2 {var access, no LVT in upper level} -setup { unset -nocomplain y z } -body { proc foo {} { - set x 2 + set x 2 set y 2 uplevel 1 { set x 3 @@ -290,7 +290,7 @@ test uplevel-7.3 {var access, LVT in upper level} -setup { } } -body { proc foo {} { - set x 2 + set x 2 set y 2 uplevel 1 { set x 3 @@ -309,7 +309,7 @@ test uplevel-7.3 {var access, LVT in upper level} -setup { test uplevel-8.0 { string representation isn't generated when there is only one argument } -body { - set res {} + set res {} set script [list lindex 5] lappend res [apply {script { uplevel $script |