summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2008-10-07 00:10:07 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2008-10-07 00:10:07 (GMT)
commit01f60c1822d79d1e3fabe3a6927e171133dea465 (patch)
treeb0007825c5b06d89c801e6373ec10da94dc257c1 /tests
parent5aeb51bc17cdc6ed0610f83a87aa404ba60cd449 (diff)
downloadtk-01f60c1822d79d1e3fabe3a6927e171133dea465.zip
tk-01f60c1822d79d1e3fabe3a6927e171133dea465.tar.gz
tk-01f60c1822d79d1e3fabe3a6927e171133dea465.tar.bz2
Removed dependency on default precision
Diffstat (limited to 'tests')
-rw-r--r--tests/canvImg.test6
-rw-r--r--tests/canvRect.test10
-rw-r--r--tests/canvText.test10
3 files changed, 13 insertions, 13 deletions
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 {