Add temporary debug output to font-44.1

1 files changed, 6 insertions, 0 deletions

diff --git a/tests/font.test b/tests/font.test
index 5884334..45d8af6 100644
--- a/tests/font.test
+++ b/tests/font.test
@@ -2339,15 +2339,21 @@ test font-43.1 {FieldSpecified procedure: specified vs. non-specified} -body {
 } -result [font actual {times 0} -family]
 
 
+puts ">>>>>>>>>> font-44.1 starts"
 test font-44.1 {TkFontGetPixels: size < 0} -setup {
     set oldscale [tk scaling]
 } -body {
+puts "oldscale: $oldscale"
     set oldsize [expr {round([font actual {times -12} -size] * $oldscale)}]
+puts "font actual {times -12}: [font actual {times -12}]"
+puts "oldsize: $oldsize"
     tk scaling 0.5
+puts "font actual {times -12}: [font actual {times -12}]"
     expr {round([font actual {times -12} -size] - $oldsize / 0.5) == 0}
 } -cleanup {
     tk scaling $oldscale
 } -result 1
+puts "           font-44.1 ends <<<<<<<<<<"
 test font-44.2 {TkFontGetPoints: size >= 0} -constraints {noExceed haveTimes12Font} -setup {
     set oldscale [tk scaling]
 } -body {