[Pkg] The Trunk: ToolsTests-topa.72.mcz

[commits at source.squeak.org]

Tobias Pape uploaded a new version of ToolsTests to project The Trunk:
http://source.squeak.org/trunk/ToolsTests-topa.72.mcz

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

Name: ToolsTests-topa.72
Author: topa
Time: 14 April 2015, 10:31:36.416 am
UUID: 0c975601-52ad-4b6f-96a5-1197a85f7a32
Ancestors: ToolsTests-mt.71

Adapt BrowserTests to rely less on global state, namely SystemOrganization

=============== Diff against ToolsTests-mt.71 ===============

Item was changed:
+ ----- Method: BrowserTest>>setUp (in category 'running') -----
- ----- Method: BrowserTest>>setUp (in category 'as yet unclassified') -----
  setUp
  	browser := Browser new.!

Item was changed:
  ----- Method: BrowserTest>>testGetSystemCategoryListIndex (in category 'as yet unclassified') -----
  testGetSystemCategoryListIndex
  	| cat |
+ 	cat := browser systemCategoryList first.
- 	cat := SystemOrganization categories first.
  	browser selectSystemCategory: cat.
+ 	self assert: browser systemCategoryListIndex = (browser systemCategoryList indexOf: browser selectedSystemCategory).!
- 	self assert: browser systemCategoryListIndex = (SystemOrganization categories indexOf: browser selectedSystemCategory).!

Item was changed:
  ----- Method: BrowserTest>>testSelectedSystemCategory (in category 'as yet unclassified') -----
  testSelectedSystemCategory
  	| cat newCat |
+ 	cat := browser systemCategoryList first.
+ 	newCat := browser systemCategoryList second.
- 	cat := SystemOrganization categories first.
- 	newCat := SystemOrganization categories second.
  	browser selectSystemCategory: cat.
  	self assert:	browser selectedSystemCategory = cat.
  		
  	browser systemCategoryListIndex: 2.
  	self assert:	browser selectedSystemCategory = newCat.!

Item was changed:
  ----- Method: BrowserTest>>testSystemCategoryListIndex (in category 'as yet unclassified') -----
  testSystemCategoryListIndex
  	| oldCat |
  	
  	browser systemCategoryListIndex: 1.
  	oldCat := browser selectedSystemCategory.
+ 	self assert:	browser selectedSystemCategory = browser systemCategoryList first.
- 	self assert:	browser selectedSystemCategory = SystemOrganization categories first.
  		
  	browser systemCategoryListIndex: 2.
  	self deny: browser selectedSystemCategory = oldCat.
+ 	self assert:	browser selectedSystemCategory = browser systemCategoryList second.!
- 	self assert:	browser selectedSystemCategory = SystemOrganization categories second.!