From b08870d61762f233ef24c901c16d86e6232383ba Mon Sep 17 00:00:00 2001
From: surles <surles>
Date: Thu, 11 Jun 1998 14:22:33 +0000
Subject: Added test to verify that Kerning works.

---
 tests/winFont.test | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/tests/winFont.test b/tests/winFont.test
index a047108..172722f 100644
--- a/tests/winFont.test
+++ b/tests/winFont.test
@@ -149,7 +149,15 @@ test winfont-5.10 {Tk_MeasureChars procedure: make first part of word fit} {
     .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} {nonPortable} {
+    set font [.b.l cget -font]
+    .b.l config -font {{MS Sans Serif} 8} -text "W"
+    set width [winfo reqwidth .b.l]
+    .b.l config -text "XaYoYaKaWx"
+    set x [lindex [getsize] 0]
+    .b.l config -font $font
+    expr $x < ($width*10)
+} 1
 test winfont-6.1 {Tk_DrawChars procedure: loop test} {
     .b.l config -text "a"
     update
-- 
cgit v0.12