diff options
Diffstat (limited to 'tests/canvText.test')
| -rw-r--r-- | tests/canvText.test | 12 |
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 |