The Trunk: Tests-ul.114.mcz

Levente Uzonyi uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-ul.114.mcz

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

Name: Tests-ul.114
Author: ul
Time: 31 January 2011, 3:57:33.887 am
UUID: b227acf0-758e-6e42-be8e-fbc92a7db74d
Ancestors: Tests-ul.113

Fixed LocaleTest >> #testIsFontAvailable.

=============== Diff against Tests-ul.113 ===============

Item was removed:
- ----- Method: LocaleTest>>expectedFailures (in category 'testing') -----
- expectedFailures
-
- ^#(testIsFontAvailable)!

Item was changed:
  ----- Method: LocaleTest>>testIsFontAvailable (in category 'testing') -----
  testIsFontAvailable
  "self debug: #testIsFontAvailable"
+
+ <timeout: 60> "takes quite a while"
+ Preferences restoreFontsAfter: [
+ | currentDefaultTextStyle |
+ currentDefaultTextStyle := TextStyle default.
+ [
+ TextStyle setDefault: (TextStyle actualTextStyles at: #Accuny).
+ (Locale isoLanguage: 'ja') languageEnvironment removeFonts.
+ self assert: (Locale isoLanguage: 'en') languageEnvironment isFontAvailable.
+ "Next test should fail after installing Japanese font"
+ self assert: (Locale isoLanguage: 'ja') languageEnvironment isFontAvailable not.
+ (Locale isoLanguage: 'ja') languageEnvironment installFont.
+ self assert: (Locale isoLanguage: 'ja') languageEnvironment isFontAvailable ]
+ ensure: [ TextStyle setDefault: currentDefaultTextStyle ] ].!
- Preferences restoreFontsAfter:[
- (Locale isoLanguage: 'ja') languageEnvironment removeFonts.
- self assert: (Locale isoLanguage: 'en') languageEnvironment isFontAvailable.
- "Next test should fail after installing Japanese font"
- self assert: (Locale isoLanguage: 'ja') languageEnvironment isFontAvailable not.
- (Locale isoLanguage: 'ja') languageEnvironment installFont.
- self assert: (Locale isoLanguage: 'ja') languageEnvironment isFontAvailable.
- ].!