From 2ef75878f15c08a4bbcf76495a1a15e9997ceb9f Mon Sep 17 00:00:00 2001 From: fvogel Date: Tue, 28 May 2024 19:08:25 +0000 Subject: Save and restore current scaling when running font-44.1 (this prevents several other tests in other test files from failing). --- tests/font.test | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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] -- cgit v0.12