summaryrefslogtreecommitdiffstats
path: root/tests/textDisp.test
diff options
context:
space:
mode:
authordonal.k.fellows@manchester.ac.uk <dkf>2004-05-23 17:34:48 (GMT)
committerdonal.k.fellows@manchester.ac.uk <dkf>2004-05-23 17:34:48 (GMT)
commit0b91402efd4f090b076ac7f71ed939ed664400b2 (patch)
treec1834b8cace8654026ee20f8fd75ea3f340a902c /tests/textDisp.test
parent08844409ecd112b5d70f7c06e5a05b015e3022c4 (diff)
downloadtk-0b91402efd4f090b076ac7f71ed939ed664400b2.zip
tk-0b91402efd4f090b076ac7f71ed939ed664400b2.tar.gz
tk-0b91402efd4f090b076ac7f71ed939ed664400b2.tar.bz2
First step towards improving test style. Also start using Tcl 8.5 features.
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".