diff options
Diffstat (limited to 'tests/textTag.test')
| -rw-r--r-- | tests/textTag.test | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/tests/textTag.test b/tests/textTag.test index b8ec899..43b575e 100644 --- a/tests/textTag.test +++ b/tests/textTag.test @@ -11,17 +11,8 @@ namespace import ::tcltest::* eval tcltest::configure $argv tcltest::loadTestedCommands -set fixedFont {Courier 12} -set bigFont {Helvetica 24} - -# Although unexpected, this constraint happens to evaluate to false on at -# least one system: the Github CI runner on Linux with --disable-xft -# This is because this configuration only has ONE single font available, -# making all requested fonts become actually the same font. -# See constraints.tcl for more details. -testConstraint haveBigFontTwiceLargerThanTextFont [expr { - [font actual $fixedFont -size] * 2 <= [font actual $bigFont -size] -}] +set fixedFont {Courier 12} +set bigFont {Helvetica 24} # Warn the user if the actual font is too different from what was requested. if {[font metrics [font actual $fixedFont] -fixed] != 1} { @@ -1214,7 +1205,6 @@ test textTag-14.4 {SortTags} -setup { } -result {x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16 x17 x18 x19 x20 x21 x22 x23 x24 x25 x26 x27 x28 x29} - set c [.t bbox 2.1] set x1 [expr {[lindex $c 0] + [lindex $c 2]/2}] set y1 [expr {[lindex $c 1] + [lindex $c 3]/2}] |