diff options
Diffstat (limited to 'tests/unixFont.test')
| -rw-r--r-- | tests/unixFont.test | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/tests/unixFont.test b/tests/unixFont.test index 896eda9..687faed 100644 --- a/tests/unixFont.test +++ b/tests/unixFont.test @@ -12,7 +12,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: unixFont.test,v 1.3 1999/04/16 01:51:42 stanton Exp $ +# RCS: @(#) $Id: unixFont.test,v 1.4 1999/12/14 06:53:15 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -50,7 +50,7 @@ proc getsize {} { return "[winfo reqwidth .b.l] [winfo reqheight .b.l]" } -test unixfont-1.1 {TkpGetNativeFont procedure: not native} { +test unixfont-1.1 {TkpGetNativeFont procedure: not native} {noExceed} { list [catch {font measure {} xyz} msg] $msg } {1 {font "" doesn't exist}} test unixfont-1.2 {TkpGetNativeFont procedure: native} { @@ -61,19 +61,22 @@ test unixfont-2.1 {TkpGetFontFromAttributes procedure: no family} { font actual {-size 10} set x {} } {} -test unixfont-2.2 {TkpGetFontFromAttributes procedure: Times relatives} { +test unixfont-2.2 {TkpGetFontFromAttributes procedure: Times relatives} \ + {noExceed} { set x {} lappend x [lindex [font actual {-family "Times New Roman"}] 1] lappend x [lindex [font actual {-family "New York"}] 1] lappend x [lindex [font actual {-family "Times"}] 1] } {times times times} -test unixfont-2.3 {TkpGetFontFromAttributes procedure: Courier relatives} { +test unixfont-2.3 {TkpGetFontFromAttributes procedure: Courier relatives} \ + {noExceed} { set x {} lappend x [lindex [font actual {-family "Courier New"}] 1] lappend x [lindex [font actual {-family "Monaco"}] 1] lappend x [lindex [font actual {-family "Courier"}] 1] } {courier courier courier} -test unixfont-2.4 {TkpGetFontFromAttributes procedure: Helvetica relatives} { +test unixfont-2.4 {TkpGetFontFromAttributes procedure: Helvetica relatives} \ + {noExceed} { set x {} lappend x [lindex [font actual {-family "Arial"}] 1] lappend x [lindex [font actual {-family "Geneva"}] 1] @@ -92,7 +95,7 @@ test unixfont-2.7 {TkpGetFontFromAttributes: fixed family not available!} { test unixfont-2.8 {TkpGetFontFromAttributes: loop over returned font names} { lindex [font actual {-family fixed -size 31}] 1 } {fixed} -test unixfont-2.9 {TkpGetFontFromAttributes: reject adobe courier if possible} { +test unixfont-2.9 {TkpGetFontFromAttributes: reject adobe courier if possible} {noExceed} { lindex [font actual {-family courier}] 1 } {courier} test unixfont-2.10 {TkpGetFontFromAttributes: scalable font found} { |