summaryrefslogtreecommitdiffstats
path: root/tests/textDisp.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/textDisp.test')
-rw-r--r--tests/textDisp.test14
1 files changed, 4 insertions, 10 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test
index 7707b8a..f2a7803 100644
--- a/tests/textDisp.test
+++ b/tests/textDisp.test
@@ -6,22 +6,16 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: textDisp.test,v 1.24 2004/04/21 15:16:45 dkf Exp $
+# RCS: @(#) $Id: textDisp.test,v 1.25 2004/05/23 17:34:49 dkf Exp $
package require tcltest 2.1
eval tcltest::configure $argv
tcltest::loadTestedCommands
namespace import -force tcltest::test
-if {[tcltest::testConstraint fonts]} {
- tcltest::testConstraint textfonts 1
-} else {
- if {$::tcl_platform(platform) eq "windows"} {
- tcltest::testConstraint textfonts 1
- } else {
- tcltest::testConstraint textfonts 0
- }
-}
+tcltest::testConstraint textfonts [expr {
+ [tcltest::testConstraint fonts] || $tcl_platform(platform) eq "windows"
+}]
# The procedure below is used as the scrolling command for the text;
# it just saves the scrolling information in a variable "scrollInfo".