diff options
| author | fvogel <fvogelnew1@free.fr> | 2017-01-28 17:38:11 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2017-01-28 17:38:11 (GMT) |
| commit | ac3c1f125c104ab506961d6653f0de098a056686 (patch) | |
| tree | dd0fde4b21546c7e12721112864ceb79dbf0241e /tests/winFont.test | |
| parent | d033d601736ea26760f95cc30695c80d4d19bafe (diff) | |
| download | tk-ac3c1f125c104ab506961d6653f0de098a056686.zip tk-ac3c1f125c104ab506961d6653f0de098a056686.tar.gz tk-ac3c1f125c104ab506961d6653f0de098a056686.tar.bz2 | |
Make tests pass again after fixing [c0dbdd3ff3]: Tk Compatibility Fonts block access to system fontsbug_c0dbdd3ff3
Diffstat (limited to 'tests/winFont.test')
| -rw-r--r-- | tests/winFont.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/winFont.test b/tests/winFont.test index 08a53ff..93aeca9 100644 --- a/tests/winFont.test +++ b/tests/winFont.test @@ -71,7 +71,7 @@ test winfont-2.7 {TkpGetFontFromAttributes procedure: Times fonts} -constraints lappend x [font actual {-family "Times"} -family] lappend x [font actual {-family "New York"} -family] lappend x [font actual {-family "Times New Roman"} -family] -} -result {{Times New Roman} {Times New Roman} {Times New Roman}} +} -result {Times Times {Times New Roman}} test winfont-2.8 {TkpGetFontFromAttributes procedure: Courier fonts} -constraints { win } -setup { @@ -80,7 +80,7 @@ test winfont-2.8 {TkpGetFontFromAttributes procedure: Courier fonts} -constraint lappend x [font actual {-family "Courier"} -family] lappend x [font actual {-family "Monaco"} -family] lappend x [font actual {-family "Courier New"} -family] -} -result {{Courier New} {Courier New} {Courier New}} +} -result {Courier Courier {Courier New}} test winfont-2.9 {TkpGetFontFromAttributes procedure: Helvetica fonts} -constraints { win } -setup { @@ -89,7 +89,7 @@ test winfont-2.9 {TkpGetFontFromAttributes procedure: Helvetica fonts} -constrai lappend x [font actual {-family "Helvetica"} -family] lappend x [font actual {-family "Geneva"} -family] lappend x [font actual {-family "Arial"} -family] -} -result {Arial Arial Arial} +} -result {Helvetica Helvetica Arial} test winfont-2.10 {TkpGetFontFromAttributes procedure: fallback} -constraints { win } -body { |