From a49a14794dfde7043b0c9ec047ff65b131e20276 Mon Sep 17 00:00:00 2001
From: vincentdarley <vincentdarley>
Date: Fri, 31 Oct 2003 18:05:49 +0000
Subject: fixed constrained tests for tip155

---
 tests/textDisp.test | 10 +++++-----
 tests/textWind.test |  4 +++-
 2 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/tests/textDisp.test b/tests/textDisp.test
index d1466ee..64b9bdd 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.11 2003/10/31 14:21:49 vincentdarley Exp $
+# RCS: @(#) $Id: textDisp.test,v 1.12 2003/10/31 18:05:49 vincentdarley Exp $
 
 package require tcltest 2.1
 eval tcltest::configure $argv
@@ -1707,7 +1707,7 @@ test textDisp-16.18 {TkTextYviewCmd procedure, "moveto" roundoff} {fonts} {
     set result [.top1.t yview]
     destroy .top1
     set result
-} {0.333333 0.833333}
+} {0.333333333333 0.833333333333}
 test textDisp-16.19 {TkTextYviewCmd procedure, "scroll" option} {
     list [catch {.t yview scroll a} msg] $msg
 } {1 {wrong # args: should be ".t yview scroll number units|pages|pixels"}}
@@ -3068,7 +3068,7 @@ test textDisp-29.1 {miscellaneous: lines wrap but are still too long} {fonts} {
     .t2.t window create 1.1 -window .t2.t.f
     update
     list [.t2.t xview] [winfo geom .t2.t.f] [.t2.t bbox 1.3]
-} {{0 0.466667} 300x50+5+18 {12 68 7 13}}
+} {{0 0.466666666667} 300x50+5+18 {12 68 7 13}}
 test textDisp-29.2 {miscellaneous: lines wrap but are still too long} {fonts} {
     catch {destroy .t2}
     toplevel .t2
@@ -3084,7 +3084,7 @@ test textDisp-29.2 {miscellaneous: lines wrap but are still too long} {fonts} {
     .t2.t xview scroll 1 unit
     update
     list [.t2.t xview] [winfo geom .t2.t.f] [.t2.t bbox 1.3]
-} {{0.0233333 0.49} 300x50+-2+18 {5 68 7 13}}
+} {{0.0233333333333 0.49} 300x50+-2+18 {5 68 7 13}}
 test textDisp-29.3 {miscellaneous: lines wrap but are still too long} {fonts} {
     catch {destroy .t2}
     toplevel .t2
@@ -3101,7 +3101,7 @@ test textDisp-29.3 {miscellaneous: lines wrap but are still too long} {fonts} {
     .t2.t xview scroll 200 units
     update
     list [.t2.t xview] [winfo geom .t2.t.f] [.t2.t bbox 1.3]
-} {{0.536667 1} 300x50+-156+18 {}}
+} {{0.536666666667 1} 300x50+-156+18 {}}
 
 test textDisp-30.1 {elidden text complications} {knownBug} {
     .t2.t delete 1.0 end
diff --git a/tests/textWind.test b/tests/textWind.test
index 6d60d54..8cc56db 100644
--- a/tests/textWind.test
+++ b/tests/textWind.test
@@ -6,7 +6,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 #
-# RCS: @(#) $Id: textWind.test,v 1.9 2003/10/31 09:02:17 vincentdarley Exp $
+# RCS: @(#) $Id: textWind.test,v 1.10 2003/10/31 18:05:49 vincentdarley Exp $
 
 package require tcltest 2.1
 eval tcltest::configure $argv
@@ -432,6 +432,7 @@ test textWind-10.3 {EmbWinLayoutProc procedure, error in creating window} {fonts
 test textWind-10.4 {EmbWinLayoutProc procedure, error in creating window} {fonts} {
     .t delete 1.0 end
     .t insert 1.0 "Some sample text"
+    catch {destroy .t.f}
     .t window create 1.5 -create {
 	frame .t.f
 	frame .t.f.f -width 10 -height 20 -bg $color
@@ -454,6 +455,7 @@ test textWind-10.5 {EmbWinLayoutProc procedure, error in creating window} {fonts
 test textWind-10.6 {EmbWinLayoutProc procedure, error in creating window} {fonts} {
     .t delete 1.0 end
     .t insert 1.0 "Some sample text"
+    catch {destroy .t2}
     .t window create 1.5 -create {
 	toplevel .t2 -width 100 -height 150
 	wm geom .t2 +0+0
-- 
cgit v0.12