diff options
| author | fvogel <fvogelnew1@free.fr> | 2024-05-28 19:08:25 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2024-05-28 19:08:25 (GMT) |
| commit | 2ef75878f15c08a4bbcf76495a1a15e9997ceb9f (patch) | |
| tree | a8ea03fc1024657f873587a59a53432cd3e6937f /tests | |
| parent | 340f961ba19b94eb6646bcbf8859350e8d8a9eef (diff) | |
| download | tk-2ef75878f15c08a4bbcf76495a1a15e9997ceb9f.zip tk-2ef75878f15c08a4bbcf76495a1a15e9997ceb9f.tar.gz tk-2ef75878f15c08a4bbcf76495a1a15e9997ceb9f.tar.bz2 | |
Save and restore current scaling when running font-44.1 (this prevents several other tests in other test files from failing).
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/font.test | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/font.test b/tests/font.test index bdaba30..33d0f7b 100644 --- a/tests/font.test +++ b/tests/font.test @@ -2347,10 +2347,14 @@ test font-43.1 {FieldSpecified procedure: specified vs. non-specified} -body { } -result [font actual {times 0} -family] -test font-44.1 {TkFontGetPixels: size < 0} -body { +test font-44.1 {TkFontGetPixels: size < 0} -setup { + set oldscale [tk scaling] +} -body { # if this test failed, start the investigations by reading ticket [8162e9b7a9] tk scaling 0.5 font actual {times -11} -size +} -cleanup { + tk scaling $oldscale } -result 22 test font-44.2 {TkFontGetPoints: size >= 0} -constraints {noExceed haveTimes12Font} -setup { set oldscale [tk scaling] |