diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-06-05 07:23:17 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-06-05 07:23:17 (GMT) |
| commit | bdc95807199b5fb2ad244fbd2a595825cdee1fc1 (patch) | |
| tree | e18f2274df06f9ee7e6d70c2d58b244fba0192c1 /tests/canvText.test | |
| parent | 884c9570fffd13b20d87151fe979e3e09edd5ed8 (diff) | |
| download | tk-bdc95807199b5fb2ad244fbd2a595825cdee1fc1.zip tk-bdc95807199b5fb2ad244fbd2a595825cdee1fc1.tar.gz tk-bdc95807199b5fb2ad244fbd2a595825cdee1fc1.tar.bz2 | |
Use single-argument "expr" as much as possible. Not complete yet, but most trivial places are done.
Diffstat (limited to 'tests/canvText.test')
| -rw-r--r-- | tests/canvText.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/canvText.test b/tests/canvText.test index c04cb63..b2af39b 100644 --- a/tests/canvText.test +++ b/tests/canvText.test @@ -269,7 +269,7 @@ test canvText-6.1 {ComputeTextBbox procedure} -constraints fonts -setup { .c create text 0 0 -tag test .c itemconfig test -font $font -text 0 expr {[.c itemconfig test -anchor n; .c bbox test] \ - eq "[expr -$ax/2-1] 0 [expr $ax/2+1] $ay"} + eq "[expr {-$ax/2-1}] 0 [expr {$ax/2+1}] $ay"} } -cleanup { .c delete test } -result 1 @@ -282,7 +282,7 @@ test canvText-6.2 {ComputeTextBbox procedure} -constraints fonts -setup { .c create text 0 0 -tag test .c itemconfig test -font $font -text 0 expr {[.c itemconfig test -anchor nw; .c bbox test] \ - eq "-1 0 [expr $ax+1] $ay"} + eq "-1 0 [expr {$ax+1}] $ay"} } -cleanup { .c delete test } -result 1 |