summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2003-10-31 18:05:49 (GMT)
committervincentdarley <vincentdarley>2003-10-31 18:05:49 (GMT)
commita49a14794dfde7043b0c9ec047ff65b131e20276 (patch)
tree021095698d236a02e87fd58a8b315fb5163d74ee
parent3e4b9ddf078d687679e15a6b5fc0c024884a1d9a (diff)
downloadtk-a49a14794dfde7043b0c9ec047ff65b131e20276.zip
tk-a49a14794dfde7043b0c9ec047ff65b131e20276.tar.gz
tk-a49a14794dfde7043b0c9ec047ff65b131e20276.tar.bz2
fixed constrained tests for tip155
-rw-r--r--tests/textDisp.test10
-rw-r--r--tests/textWind.test4
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