The Trunk: ToolsTests-ul.74.mcz

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

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

Name: ToolsTests-ul.74
Author: ul
Time: 14 August 2015, 10:08:27.31 pm
UUID: 58d8ab5b-a922-422f-ab70-4584a7b1449d
Ancestors: ToolsTests-ul.73

- declare that the category we want to select is #'class list'

=============== Diff against ToolsTests-ul.73 ===============

Item was changed:
  ----- Method: BrowserTest>>testSelectClassNamedPreservesPlace (in category 'as yet unclassified') -----
  testSelectClassNamedPreservesPlace
  | commonCategory commonSelector otherClass |
  browser selectSystemCategory: browser class category.
  otherClass := HierarchyBrowser. "Unlikely to move out of Browser's package!!"
  browser selectClassNamed: browser class name.
 
+ commonCategory := (browser class organization categories intersection: otherClass organization categories) detect: [ :each | each == #'class list' ].
- commonCategory := (browser class organization categories intersection: otherClass organization categories) first.
  commonSelector := #classList.
  browser selectMessageCategoryNamed: commonCategory.
  browser selectMessageNamed: commonSelector.
 
  browser selectClass: otherClass.
 
  self assert: browser selectedClassName = otherClass name.
  self assert: browser selectedMessageCategoryName = commonCategory.
  self assert: browser selectedMessageName = commonSelector.!