From 72837d5e112f7e0bf510b5acefe8c57a3be1d7b3 Mon Sep 17 00:00:00 2001 From: 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