diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-03-04 15:41:59 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-03-04 15:41:59 (GMT) |
commit | 0a018d6ac1df162044309966c31de5f0941ebf27 (patch) | |
tree | 0149222f25fa8bd0c3a1cb50b3e71a5419cf6021 /tests/canvas.test | |
parent | 27a040ee30d124a3a52982919209e14905fd1f5b (diff) | |
parent | 7c636a1bd0b1f330f80c50d80997123bf2f13a1d (diff) | |
download | tk-0a018d6ac1df162044309966c31de5f0941ebf27.zip tk-0a018d6ac1df162044309966c31de5f0941ebf27.tar.gz tk-0a018d6ac1df162044309966c31de5f0941ebf27.tar.bz2 |
merge trunk
Diffstat (limited to 'tests/canvas.test')
-rw-r--r-- | tests/canvas.test | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/canvas.test b/tests/canvas.test index 5b6c0e4..e9184a5 100644 --- a/tests/canvas.test +++ b/tests/canvas.test @@ -539,10 +539,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 { @@ -551,9 +551,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 @@ -729,7 +729,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 |