From f15611e708a189d1f1be5502fa73af4e80f8dd09 Mon Sep 17 00:00:00 2001
From: vincentdarley <vincentdarley>
Date: Mon, 22 Nov 2004 17:54:31 +0000
Subject: fix a platform-sensitive test

---
 ChangeLog           | 3 ++-
 tests/textDisp.test | 4 ++--
 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} {
-- 
cgit v0.12