diff options
| author | fvogel <fvogelnew1@free.fr> | 2024-05-15 22:00:51 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2024-05-15 22:00:51 (GMT) |
| commit | dc7e102c0d1dbe5be1229da812fec34eaeb1c7bf (patch) | |
| tree | 0bb4cea54e2550d12bc337abe342545701947160 | |
| parent | 02d498ccf2b050f515631e77d628b1cb683e7be3 (diff) | |
| download | tk-dc7e102c0d1dbe5be1229da812fec34eaeb1c7bf.zip tk-dc7e102c0d1dbe5be1229da812fec34eaeb1c7bf.tar.gz tk-dc7e102c0d1dbe5be1229da812fec34eaeb1c7bf.tar.bz2 | |
Add test font-44.3 demonstrating bug [8162e9b7a9].
| -rw-r--r-- | tests/font.test | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/font.test b/tests/font.test index 4a264f8..98c1112 100644 --- a/tests/font.test +++ b/tests/font.test @@ -2364,6 +2364,13 @@ test font-44.2 {TkFontGetPoints: size >= 0} -constraints {noExceed haveTimes12Fo } -cleanup { tk scaling $oldscale } -result 12 +test font-44.3 {font create with display scaling not 100% - bug 8162e9b7a9} -body { + set font1 TkDefaultFont + set font2 [font create Font2 {*}[font actual $font1]] + expr {[font actual $font1 -size] == [font actual $font2 -size]} +} -cleanup { + font delete $font2 +} -result 1 test font-45.1 {TkFontGetAliasList: no match} -body { |