summaryrefslogtreecommitdiffstats
path: root/tests/unixFont.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/unixFont.test')
-rw-r--r--tests/unixFont.test18
1 files changed, 8 insertions, 10 deletions
diff --git a/tests/unixFont.test b/tests/unixFont.test
index c1244c3..2fa36a6 100644
--- a/tests/unixFont.test
+++ b/tests/unixFont.test
@@ -12,22 +12,20 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: unixFont.test,v 1.9 2004/05/23 17:34:49 dkf Exp $
+# RCS: @(#) $Id: unixFont.test,v 1.10 2004/06/17 22:38:57 dkf Exp $
package require tcltest 2.1
eval tcltest::configure $argv
tcltest::loadTestedCommands
-testConstraint hasArial 1
-testConstraint hasCourierNew 1
-testConstraint hasTimesNew 1
set xlsf [auto_execok xlsfonts]
-if {[llength $xlsf]} {
- foreach {constraint font} {
- hasArial arial
- hasCourierNew "courier new"
- hasTimesNew "times new roman"
- } {
+foreach {constraint font} {
+ hasArial arial
+ hasCourierNew "courier new"
+ hasTimesNew "times new roman"
+} {
+ testConstraint $constraint 1
+ if {[llength $xlsf]} {
if {![catch {eval exec $xlsf [list *-$font-*]} res]
&& ![string match *unmatched* $res]} {
# Newer Unix systems have more default fonts installed,