summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2008-10-09 15:17:44 (GMT)
committerdgp <dgp@users.sourceforge.net>2008-10-09 15:17:44 (GMT)
commitd4dd7c92ae8e2060999250bd2402fc5814d5b2d7 (patch)
treeb52748ff8bae22bda3dfd71517ee546dcdccdf1c /tests
parent199d4675fda94dffe00bafa804ea9f5e38f0891b (diff)
downloadtk-d4dd7c92ae8e2060999250bd2402fc5814d5b2d7.zip
tk-d4dd7c92ae8e2060999250bd2402fc5814d5b2d7.tar.gz
tk-d4dd7c92ae8e2060999250bd2402fc5814d5b2d7.tar.bz2
* tests/canvText.test: Backport test updates in light of the
2008-10-05 commit. * generic/tkEntry.c: Fix missing space constructing the scroll command.
Diffstat (limited to 'tests')
-rw-r--r--tests/canvText.test12
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/canvText.test b/tests/canvText.test
index 1650f62..615bf15 100644
--- a/tests/canvText.test
+++ b/tests/canvText.test
@@ -6,7 +6,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: canvText.test,v 1.16 2006/01/12 13:38:22 dkf Exp $
+# RCS: @(#) $Id: canvText.test,v 1.16.4.1 2008/10/09 15:17:44 dgp Exp $
package require tcltest 2.1
eval tcltest::configure $argv
@@ -423,14 +423,14 @@ test canvText-11.2 {TextToArea procedure} {
test canvText-12.1 {ScaleText procedure} {
.c coords test 100 100
.c scale all 50 50 2 2
- .c coords test
-} {150.0 150.0}
+ format {%.6g %.6g} {*}[.c coords test]
+} {150 150}
test canvText-13.1 {TranslateText procedure} {
.c coords test 100 100
.c move all 10 10
- .c coords test
-} {110.0 110.0}
+ format {%.6g %.6g} {*}[.c coords test]
+} {110 110}
.c itemconfig test -text "abcdefghijklmno" -anchor nw
.c select from test 5
@@ -491,7 +491,7 @@ test canvText-17.1 {TextToPostscript procedure} {
\[(000)\]
\[(000)\]
\[(00)\]
-] $ay -0.5 0 0 false DrawText
+] $ay -0.5 0.0 0 false DrawText
grestore
restore showpage