summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog3
-rw-r--r--tests/textDisp.test4
2 files changed, 4 insertions, 3 deletions
diff --git a/ChangeLog b/ChangeLog
index f14afe6..6845842 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -3,7 +3,8 @@
* tests/text.test: fix to test's platform sensitivities
[Bug 1025871]
* tests/textDisp.test: made test less timing sensitive
- [Bug 1034171]
+ [Bug 1034171], and fixed a platform-sensitive test
+ [Bug 966845]
2004-11-19 Daniel Steffen <das@users.sourceforge.net>
diff --git a/tests/textDisp.test b/tests/textDisp.test
index 6ec634d..4515fa6 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.31 2004/11/20 15:49:47 vincentdarley Exp $
+# RCS: @(#) $Id: textDisp.test,v 1.32 2004/11/22 17:54:32 vincentdarley Exp $
package require tcltest 2.1
eval tcltest::configure $argv
@@ -1813,7 +1813,7 @@ test textDisp-16.15 {TkTextYviewCmd procedure, "moveto" option} {
test textDisp-16.16 {TkTextYviewCmd procedure, "moveto" option} {textfonts} {
set count [expr {5 * $bigHeight + 150 * $fixedHeight}]
set extra [expr {0.04 * double($fixedDiff * 150) / double($count)}]
- .t yview moveto [expr {.754 - $extra}]
+ .t yview moveto [expr {.753 - $extra}]
.t index @0,0
} {151.60}
test textDisp-16.17 {TkTextYviewCmd procedure, "moveto" option} {