diff options
| author | rjohnson <rjohnson> | 1999-04-06 05:07:53 (GMT) |
|---|---|---|
| committer | rjohnson <rjohnson> | 1999-04-06 05:07:53 (GMT) |
| commit | 8470d7c404b58cc5d3ba12d7ca4c6c3e116aa96e (patch) | |
| tree | fac3c69e9ffba17df5054167656252978923dacf | |
| parent | 01854d472acdf4713d7a7b3c7f0a36b955eecf8c (diff) | |
| download | tk-8470d7c404b58cc5d3ba12d7ca4c6c3e116aa96e.zip tk-8470d7c404b58cc5d3ba12d7ca4c6c3e116aa96e.tar.gz tk-8470d7c404b58cc5d3ba12d7ca4c6c3e116aa96e.tar.bz2 | |
Fixed broken test.
| -rw-r--r-- | tests/unixFont.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/unixFont.test b/tests/unixFont.test index e64e422..9ea35dc 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.1.4.7 1999/04/02 18:06:45 hershey Exp $ +# RCS: @(#) $Id: unixFont.test,v 1.1.4.8 1999/04/06 05:07:53 rjohnson Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -230,7 +230,7 @@ test unixfont-8.3 {AllocFont procedure: can't parse info from name} { # check that font actual returns the correct attributes. # the values of those attributes are system dependent. array set fontArray [font actual a12biluc] - set result [lsort [array get fontArray]] + set result [lsort [array names fontArray]] catch {unset fontArray} set result } {-family -overstrike -size -slant -underline -weight} |