summaryrefslogtreecommitdiffstats
path: root/tests/winFont.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/winFont.test')
-rw-r--r--tests/winFont.test5
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