diff options
| -rw-r--r-- | tests/textImage.test | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/tests/textImage.test b/tests/textImage.test index 2666ec5..2f60211 100644 --- a/tests/textImage.test +++ b/tests/textImage.test @@ -389,15 +389,15 @@ test textImage-4.2 {alignment checking - baseline} -setup { # Sizes larger than 25 can be too big and lead to a negative 'norm', # at least on Windows XP with certain settings. foreach size {10 15 20 25} { - font configure test_font2 -size $size - array set Metrics [font metrics test_font2] - update - foreach {x y w h} [.t bbox small] {} - set norm [expr { - (([image height large] - $Metrics(-linespace))/2 - + $Metrics(-ascent) - [image height small] - $y) + font configure test_font2 -size $size + array set Metrics [font metrics test_font2] + update + foreach {x y w h} [.t bbox small] {} + set norm [expr { + (([image height large] - $Metrics(-linespace))/2 + + $Metrics(-ascent) - [image height small] - $y) }] - lappend result "$size $norm" + lappend result "$size $norm" } return $result } -cleanup { |