[Pkg] The Trunk: ToolsTests-ul.74.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Aug 14 20:35:20 UTC 2015


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



More information about the Packages mailing list