The Trunk: Tests-pre.360.mcz

Patrick Rein uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-pre.360.mcz

==================== Summary ====================

Name: Tests-pre.360
Author: pre
Time: 21 December 2016, 2:24:34.858014 pm
UUID: 2a9bd011-daa0-4c41-9844-c97ee2167469
Ancestors: Tests-nice.359

Adjusts standard font test and moves it to the release tests as it checks whether the currently selected theme has fonts which are appropriate for a release.

=============== Diff against Tests-nice.359 ===============

Item was added:
+ ----- Method: ReleaseTest>>testSqueakThemeFonts (in category 'testing') -----
+ testSqueakThemeFonts
+ "Check whether the fonts installed in the active theme in the release are correct"
+
+ "preference selector - font family name - font size"
+ { #(standardDefaultTextFont 'Bitmap DejaVu Sans' 9).
+ #(standardListFont 'Bitmap DejaVu Sans' 9).
+ #(standardFlapFont 'Bitmap DejaVu Sans' 7).
+ #(standardMenuFont 'Bitmap DejaVu Sans' 9).
+ #(windowTitleFont 'Bitmap DejaVu Sans' 9).
+ #(standardBalloonHelpFont 'Bitmap DejaVu Sans' 7).
+ #(standardCodeFont 'Bitmap DejaVu Sans' 9).
+ #(standardButtonFont 'Bitmap DejaVu Sans' 7) }
+ do: [:triple | | font |
+ font := Preferences perform: triple first.
+ self assert: triple second equals: font familyName.
+ self assert: triple third equals: font pointSize ]
+
+
+ !

Item was removed:
- TestCase subclass: #StandardSystemFontsTest
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Tests-System-Support'!

Item was removed:
- ----- Method: StandardSystemFontsTest>>assert:familyName:pointSize: (in category 'utilities') -----
- assert: selector familyName: aString pointSize: anInteger
- | font |
- font := Preferences perform: selector.
- self assert: aString equals: font familyName.
- self assert: anInteger equals: font pointSize!

Item was removed:
- ----- Method: StandardSystemFontsTest>>defaultTimeout (in category 'testing') -----
- defaultTimeout
-
- ^ 60!

Item was removed:
- ----- Method: StandardSystemFontsTest>>testRestoreDefaultFonts (in category 'testing') -----
- testRestoreDefaultFonts
- Preferences restoreFontsAfter: [
- Preferences restoreDefaultFonts.
- self assert: #standardDefaultTextFont familyName: 'Bitmap DejaVu Sans' pointSize: 9.
- self assert: #standardListFont familyName: 'Bitmap DejaVu Sans' pointSize: 9.
- self assert: #standardFlapFont familyName: 'Accushi' pointSize: 12.
- self assert: #standardEToysFont familyName: 'BitstreamVeraSans' pointSize: 9.
- self assert: #standardMenuFont familyName: 'Bitmap DejaVu Sans' pointSize: 9.
- self assert: #windowTitleFont familyName: 'Bitmap DejaVu Sans' pointSize: 9.
- self assert: #standardBalloonHelpFont familyName: 'Bitmap DejaVu Sans' pointSize: 7.
- self assert: #standardCodeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9.
- self assert: #standardButtonFont familyName: 'Bitmap DejaVu Sans' pointSize: 7]!