summaryrefslogtreecommitdiffstats
path: root/tests/canvas.test
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2016-08-29 15:28:20 (GMT)
committerfvogel <fvogelnew1@free.fr>2016-08-29 15:28:20 (GMT)
commit992eb3df2d03dec6291784e8dca7e6d85b279c7a (patch)
treec885db53fd7bd38e3971e2b93242b2e798961ee9 /tests/canvas.test
parent1052e56fe96f3ece407a6374714af0302c9a5e3c (diff)
parent76052445ac39afd2c455431d80335dd464ed755e (diff)
downloadtk-992eb3df2d03dec6291784e8dca7e6d85b279c7a.zip
tk-992eb3df2d03dec6291784e8dca7e6d85b279c7a.tar.gz
tk-992eb3df2d03dec6291784e8dca7e6d85b279c7a.tar.bz2
Rebased to trunk since TIP #449 was accepted for merging to trunk only, not to core-8-6-branchtip_449
Diffstat (limited to 'tests/canvas.test')
-rw-r--r--tests/canvas.test12
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/canvas.test b/tests/canvas.test
index 2b0da48..ae95751 100644
--- a/tests/canvas.test
+++ b/tests/canvas.test
@@ -537,10 +537,10 @@ test canvas-12.1 {canvas mm obj, patch SF-403327, 102471} -setup {
destroy .c
pack [canvas .c]
} -body {
- set qx [expr {1.+1.}]
- # qx has type double and no string representation
+ set qx [expr {1.+1.}]
+ # qx has type double and no string representation
.c scale all $qx 0 1. 1.
- # qx has now type MMRep and no string representation
+ # qx has now type MMRep and no string representation
list $qx [string length $qx]
} -result {2.0 3}
test canvas-12.2 {canvas mm obj, patch SF-403327, 102471} -setup {
@@ -549,9 +549,9 @@ test canvas-12.2 {canvas mm obj, patch SF-403327, 102471} -setup {
} -body {
set val 10
incr val
- # qx has type double and no string representation
+ # qx has type double and no string representation
.c scale all $val 0 1 1
- # qx has now type MMRep and no string representation
+ # qx has now type MMRep and no string representation
incr val
} -result 12
@@ -727,7 +727,7 @@ test canvas-15.19 "basic coords check: centimeters are larger than pixels" -setu
destroy .c
canvas .c
} -body {
- set id [.c create rect 0 0 1cm 1cm]
+ set id [.c create rect 0 0 1cm 1cm]
expr {[lindex [.c coords $id] 2]>1}
} -result {1}
destroy .c