summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog5
-rw-r--r--tests/canvImg.test6
-rw-r--r--tests/canvRect.test10
-rw-r--r--tests/canvText.test10
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 {