diff options
Diffstat (limited to 'tests/winFont.test')
| -rw-r--r-- | tests/winFont.test | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/tests/winFont.test b/tests/winFont.test index b4e8516..de16560 100644 --- a/tests/winFont.test +++ b/tests/winFont.test @@ -1,10 +1,10 @@ -# This file is a Tcl script to test out the procedures in tkWinFont.c. +# This file is a Tcl script to test out the procedures in tkWinFont.c. # It is organized in the standard fashion for Tcl tests. # # Many of these tests are visually oriented and cannot be checked # programmatically (such as "does an underlined font appear to be # underlined?"); these tests attempt to exercise the code in question, -# but there are no results that can be checked. +# but there are no results that can be checked. # # Copyright (c) 1996-1997 Sun Microsystems, Inc. # Copyright (c) 1998-1999 by Scriptics Corporation. @@ -54,22 +54,22 @@ test winfont-1.2 {TkpGetNativeFont procedure: native} win { test winfont-2.1 {TkpGetFontFromAttributes procedure: pointsize} win { expr [font actual {-size -10} -size]>0 -} {1} +} 1 test winfont-2.2 {TkpGetFontFromAttributes procedure: pointsize} win { expr [font actual {-family Arial} -size]>0 -} {1} +} 1 test winfont-2.3 {TkpGetFontFromAttributes procedure: normal weight} win { font actual {-weight normal} -weight -} {normal} +} normal test winfont-2.4 {TkpGetFontFromAttributes procedure: bold weight} win { font actual {-weight bold} -weight -} {bold} +} bold test winfont-2.5 {TkpGetFontFromAttributes procedure: no family} win { catch {expr {[font actual {-size 10} -size]}} } 0 test winfont-2.6 {TkpGetFontFromAttributes procedure: family} win { font actual {-family Arial} -family -} {Arial} +} Arial test winfont-2.7 {TkpGetFontFromAttributes procedure: Times fonts} win { set x {} lappend x [font actual {-family "Times"} -family] @@ -122,7 +122,7 @@ test winfont-5.5 {Tk_MeasureChars procedure: include last partial char} win { .b.c dchars $t 0 end .b.c insert $t 0 "0000" .b.c index $t @[expr int($cx*2.5)],1 -} {2} +} 2 test winfont-5.6 {Tk_MeasureChars procedure: at least one char on line} win { .b.l config -text "000000" -wrap 1 getsize @@ -173,10 +173,10 @@ test winfont-7.2 {AllocFont procedure: extract info from logfont} win { } {-family Arial -size 10 -weight bold -slant italic -underline 1 -overstrike 1} test winfont-7.3 {AllocFont procedure: extract info from textmetric} win { font metric {arial 10 bold italic underline overstrike} -fixed -} {0} +} 0 test winfont-7.4 {AllocFont procedure: extract info from textmetric} win { font metric systemfixed -fixed -} {1} +} 1 # cleanup destroy .b |