summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/textDisp.test22
1 files changed, 14 insertions, 8 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test
index c8594e2..6d3212c 100644
--- a/tests/textDisp.test
+++ b/tests/textDisp.test
@@ -6,7 +6,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: textDisp.test,v 1.42 2007/12/13 15:27:54 dgp Exp $
+# RCS: @(#) $Id: textDisp.test,v 1.43 2008/10/08 20:15:26 dgp Exp $
package require tcltest 2.1
eval tcltest::configure $argv
@@ -1962,18 +1962,24 @@ test textDisp-16.33 {TkTextYviewCmd procedure} {
test textDisp-16.34 {TkTextYviewCmd procedure} {
set res {}
.t yview 1.0
- lappend res [expr {[lindex [.t yview] 0] * [.t count -ypixels 1.0 end]}]
+ lappend res [format %.12g [expr {[lindex [.t yview] 0]
+ * [.t count -ypixels 1.0 end]}]]
.t yview scroll 1 pixels
- lappend res [expr {[lindex [.t yview] 0] * [.t count -ypixels 1.0 end]}]
+ lappend res [format %.12g [expr {[lindex [.t yview] 0]
+ * [.t count -ypixels 1.0 end]}]]
.t yview scroll 1 pixels
- lappend res [expr {[lindex [.t yview] 0] * [.t count -ypixels 1.0 end]}]
+ lappend res [format %.12g [expr {[lindex [.t yview] 0]
+ * [.t count -ypixels 1.0 end]}]]
.t yview scroll 1 pixels
- lappend res [expr {[lindex [.t yview] 0] * [.t count -ypixels 1.0 end]}]
+ lappend res [format %.12g [expr {[lindex [.t yview] 0]
+ * [.t count -ypixels 1.0 end]}]]
.t yview scroll 1 pixels
- lappend res [expr {[lindex [.t yview] 0] * [.t count -ypixels 1.0 end]}]
+ lappend res [format %.12g [expr {[lindex [.t yview] 0]
+ * [.t count -ypixels 1.0 end]}]]
.t yview scroll 1 pixels
- lappend res [expr {[lindex [.t yview] 0] * [.t count -ypixels 1.0 end]}]
-} {0.0 1.0 2.0 3.0 4.0 5.0}
+ lappend res [format %.12g [expr {[lindex [.t yview] 0]
+ * [.t count -ypixels 1.0 end]}]]
+} {0 1 2 3 4 5}
test textDisp-16.35 {TkTextYviewCmd procedure} {
set res {}
.t yview 1.0