diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2004-12-04 00:04:22 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2004-12-04 00:04:22 (GMT) |
| commit | 1c57688379d64ca677ffca741a57b7033a317b1e (patch) | |
| tree | 5fad790e8125f78d340ac378796278500e909848 /tests/winFont.test | |
| parent | 985a1f03d9d2cd2596408671ce50adc009ea8aeb (diff) | |
| download | tk-1c57688379d64ca677ffca741a57b7033a317b1e.zip tk-1c57688379d64ca677ffca741a57b7033a317b1e.tar.gz tk-1c57688379d64ca677ffca741a57b7033a317b1e.tar.bz2 | |
Split duplicate test names [Bug 1078648]
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 |