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