diff options
| author | fvogel <fvogelnew1@free.fr> | 2024-05-26 17:54:02 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2024-05-26 17:54:02 (GMT) |
| commit | 51020718f10fb554cc027d63c5a0c38269497324 (patch) | |
| tree | b2677e68e0d85e3a16226d5be1a6b91286f95b96 /tests | |
| parent | 0bbb0bbbcd6cb4fd68effc30de72104b13d9bd42 (diff) | |
| download | tk-51020718f10fb554cc027d63c5a0c38269497324.zip tk-51020718f10fb554cc027d63c5a0c38269497324.tar.gz tk-51020718f10fb554cc027d63c5a0c38269497324.tar.bz2 | |
Restore old version of font-44.1, following Csaba's suggestion, but add a pointer to the relevant ticket in case it failed again in the future.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/font.test | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/tests/font.test b/tests/font.test index 98c1112..bdaba30 100644 --- a/tests/font.test +++ b/tests/font.test @@ -2347,15 +2347,11 @@ test font-43.1 {FieldSpecified procedure: specified vs. non-specified} -body { } -result [font actual {times 0} -family] -test font-44.1 {TkFontGetPixels: size < 0} -setup { - set oldscale [tk scaling] -} -body { - set oldsize [expr {-(-12.0 / $oldscale)}] +test font-44.1 {TkFontGetPixels: size < 0} -body { + # if this test failed, start the investigations by reading ticket [8162e9b7a9] tk scaling 0.5 - expr {round([font actual {times -12} -size] / $oldscale * 0.5) - round($oldsize) == 0} -} -cleanup { - tk scaling $oldscale -} -result 1 + font actual {times -11} -size +} -result 22 test font-44.2 {TkFontGetPoints: size >= 0} -constraints {noExceed haveTimes12Font} -setup { set oldscale [tk scaling] } -body { |