Removed dependency on default precision

4 files changed, 17 insertions, 14 deletions

diff --git a/ChangeLog b/ChangeLog
index 21a19b2..d531b58 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,9 @@
 2008-10-07  Pat Thoyts  <patthoyts@users.sourceforge.net>
 
-	* tests/entry.test: Removed dependency on precision in results
+	* tests/canvImg.test:  Removed dependency on precision in results
+	* tests/canvRect.test:
+	* tests/canvText.test: 
+	* tests/entry.test: 
 	* tests/listbox.test: 
 	* tests/scrollbar.test: 
 	* tests/spinbox.test:
diff --git a/tests/canvImg.test b/tests/canvImg.test
index 94f818a..d4bce0a 100644
--- a/tests/canvImg.test
+++ b/tests/canvImg.test
@@ -7,7 +7,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 #
-# RCS: @(#) $Id: canvImg.test,v 1.10 2008/08/11 21:33:17 aniap Exp $
+# RCS: @(#) $Id: canvImg.test,v 1.11 2008/10/07 00:10:07 patthoyts Exp $
 
 package require tcltest 2.2
 namespace import ::tcltest::*
@@ -98,11 +98,11 @@ test canvImg-3.1 {ImageCoords procedure} -constraints testImageType -setup {
 	image create test foo
 } -body {
     .c create image 50 100 -image foo -tags i1
-    .c coords i1
+    format {%.6g %.6g} {*}[.c coords i1]
 } -cleanup {
 	.c delete all
 	image delete foo
-} -result {50.0 100.0}
+} -result {50 100}
 test canvImg-3.2 {ImageCoords procedure} -constraints testImageType -setup {
 	image create test foo
 } -body {
diff --git a/tests/canvRect.test b/tests/canvRect.test
index c9f2dfb..9c34293 100644
--- a/tests/canvRect.test
+++ b/tests/canvRect.test
@@ -6,7 +6,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 #
-# RCS: @(#) $Id: canvRect.test,v 1.10 2008/08/11 21:33:17 aniap Exp $
+# RCS: @(#) $Id: canvRect.test,v 1.11 2008/10/07 00:10:07 patthoyts Exp $
 
 package require tcltest 2.2
 namespace import ::tcltest::*
@@ -417,16 +417,16 @@ test canvRect-9.1 {ScaleRectOval procedure} -setup {
 } -body {
     .c create rect 100 300 200 350 -tags x
     .c scale x 50 100 2 4
-    .c coords x
-} -result {150.0 900.0 350.0 1100.0}
+    format {%.6g %.6g %.6g %.6g} {*}[.c coords x]
+} -result {150 900 350 1100}
 
 test canvRect-10.1 {TranslateRectOval procedure} -setup {
     .c delete withtag all
 } -body {
     .c create rect 100 300 200 350 -tags x
     .c move x 100 -10
-    .c coords x
-} -result {200.0 290.0 300.0 340.0}
+    format {%.6g %.6g %.6g %.6g} {*}[.c coords x]
+} -result {200 290 300 340}
 
 
 test canvRect-11.1 {RectOvalToPostscript procedure} -constraints {
diff --git a/tests/canvText.test b/tests/canvText.test
index 2e7ac54..cbaf0bf 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.18 2008/08/11 21:33:17 aniap Exp $
+# RCS: @(#) $Id: canvText.test,v 1.19 2008/10/07 00:10:07 patthoyts Exp $
 
 package require tcltest 2.2
 namespace import ::tcltest::*
@@ -747,19 +747,19 @@ test canvText-11.2 {TextToArea procedure} -setup {
 test canvText-12.1 {ScaleText procedure} -body {
 	.c create text 100 100 -tag test
     .c scale all 50 50 2 2
-    .c coords test
+    format {%.6g %.6g} {*}[.c coords test]
 } -cleanup {
 	.c delete test
-} -result {150.0 150.0}
+} -result {150 150}
 
 
 test canvText-13.1 {TranslateText procedure} -body {
 	.c create text 100 100 -tag test
     .c move all 10 10
-    .c coords test
+    format {%.6g %.6g} {*}[.c coords test]
 } -cleanup {
 	.c delete test
-} -result {110.0 110.0}
+} -result {110 110}
 
 
 test canvText-14.1 {GetTextIndex procedure} -setup {