summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorferrieux <ferrieux@users.sourceforge.net>2008-11-28 00:10:25 (GMT)
committerferrieux <ferrieux@users.sourceforge.net>2008-11-28 00:10:25 (GMT)
commit4fd8dbd64ac0f6c7678865c51e5bd3e5be75d36c (patch)
treeefa8f3835ffe794d5cccb9690767da1d64cad1c0
parent01a618069d775fcdce058d2fc203f55073e95435 (diff)
downloadtk-4fd8dbd64ac0f6c7678865c51e5bd3e5be75d36c.zip
tk-4fd8dbd64ac0f6c7678865c51e5bd3e5be75d36c.tar.gz
tk-4fd8dbd64ac0f6c7678865c51e5bd3e5be75d36c.tar.bz2
Added a test that distance units are not confused with pixels (for the millimeter patch)
-rw-r--r--tests/canvas.test9
1 files changed, 8 insertions, 1 deletions
diff --git a/tests/canvas.test b/tests/canvas.test
index 0ffad23..2261a2c 100644
--- a/tests/canvas.test
+++ b/tests/canvas.test
@@ -7,7 +7,7 @@
# Copyright (c) 2008 Donal K. Fellows
# All rights reserved.
#
-# RCS: @(#) $Id: canvas.test,v 1.26 2008/11/01 16:14:30 dkf Exp $
+# RCS: @(#) $Id: canvas.test,v 1.27 2008/11/28 00:10:25 ferrieux Exp $
package require tcltest 2.1
eval tcltest::configure $argv
@@ -707,6 +707,13 @@ test canvas-15.18 "basic coords check: window coords are paired" -setup {
} -returnCodes error -body {
.c create window 0
} -result {wrong # coordinates: expected 2, got 1}
+test canvas-15.19 "basic coords check: centimeters are larger than pixels" -setup {
+ destroy .c
+ canvas .c
+} -body {
+ set id [.c create rect 0 0 1cm 1cm]
+ expr {[lindex [.c coords $id] 2]>1}
+} -result {1}
destroy .c
test canvas-16.1 {arc coords check} -setup {