[Pkg] The Trunk: Tests-pre.346.mcz

[commits at source.squeak.org]

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

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

Name: Tests-pre.346
Author: pre
Time: 20 July 2016, 5:57:17.403797 pm
UUID: e81ba10f-54f7-ae4d-b971-8a80bebac7ba
Ancestors: Tests-pre.345

Fixed the expected failures in the locales test to catch the current misconfiguration in the language extensions.

=============== Diff against Tests-pre.345 ===============

Item was changed:
  ----- Method: LocaleTest>>expectedFailures (in category 'testing') -----
  expectedFailures
  
  	^ super expectedFailures,
+ 		((NaturalLanguageTranslator translators isEmpty 
+ 			or: [(NaturalLanguageTranslator translators values collect: [:t | t localeID ]) 
+ 				asSet size = 1])
+ 			ifTrue: [#(testLocaleChanged) "no locale available to switch to"]
+ 			ifFalse: [ #()])
- 		(NaturalLanguageTranslator translators
- 			ifEmpty: [#(testLocaleChanged) "no locale available to switch to"]
- 			ifNotEmpty: [#()])
  !

Item was changed:
  ----- Method: LocaleTest>>testIsFontAvailable (in category 'testing') -----
  testIsFontAvailable
  	"self debug: #testIsFontAvailable"
  	
  	<timeout: 60> "takes quite a while"
+ 	self ensureInternetConnectionTo: 'http://metatoys.org/pub/'.
+ 	
  	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.
+ 						FileDirectory default deleteFileNamed: (Locale isoLanguage: 'ja') languageEnvironment fontFullName. ] ].!
- 				ensure: [ TextStyle setDefault: currentDefaultTextStyle ] ].!