diff options
Diffstat (limited to 'tests/winFont.test')
| -rw-r--r-- | tests/winFont.test | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/winFont.test b/tests/winFont.test index eec223e..82d0c36 100644 --- a/tests/winFont.test +++ b/tests/winFont.test @@ -10,7 +10,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: winFont.test,v 1.10 2004/06/24 12:45:44 dkf Exp $ +# RCS: @(#) $Id: winFont.test,v 1.11 2004/12/04 00:04:43 dkf Exp $ package require tcltest 2.1 eval tcltest::configure $argv @@ -145,7 +145,7 @@ test winfont-5.10 {Tk_MeasureChars procedure: make first part of word fit} win { .b.l config -wrap [expr $ax*12] -text "0000000000000000" getsize } "[expr $ax*12] [expr $ay*2]" -test winfont-5.10 {Tk_MeasureChars procedure: check for kerning} \ +test winfont-5.11 {Tk_MeasureChars procedure: check for kerning} \ {win nonPortable} { set font [.b.l cget -font] .b.l config -font {{MS Sans Serif} 8} -text "W" @@ -155,6 +155,7 @@ test winfont-5.10 {Tk_MeasureChars procedure: check for kerning} \ .b.l config -font $font expr $x < ($width*10) } 1 + test winfont-6.1 {Tk_DrawChars procedure: loop test} win { .b.l config -text "a" update |