The Trunk: ToolsTests-topa.72.mcz

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.!