diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2004-05-23 17:34:48 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2004-05-23 17:34:48 (GMT) |
| commit | 7c820a9ae19502e7f5d59f4310c33bfeb64bf9ba (patch) | |
| tree | c1834b8cace8654026ee20f8fd75ea3f340a902c /tests/textDisp.test | |
| parent | fc07382fecf576d43fc28117ca52416170fb0f4f (diff) | |
| download | tk-7c820a9ae19502e7f5d59f4310c33bfeb64bf9ba.zip tk-7c820a9ae19502e7f5d59f4310c33bfeb64bf9ba.tar.gz tk-7c820a9ae19502e7f5d59f4310c33bfeb64bf9ba.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.test | 14 |
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". |