A new version of ToolsTests was added to project The Inbox:
http://source.squeak.org/inbox/ToolsTests-fbs.37.mcz

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

Name: ToolsTests-fbs.37
Author: fbs
Time: 30 March 2011, 9:43:09.786 pm
UUID: c55ff548-5659-ea49-863a-6e20c8ccff21
Ancestors: ToolsTests-fbs.36

Still more Browser tests!

=============== Diff against ToolsTests-fbs.36 ===============

Item was added:
+ ----- Method: BrowserTest>>testMessageList (in category 'as yet unclassified') -----
+ testMessageList
+ 	browser selectSystemCategory: browser class category.
+ 	browser selectClass: nil.
+ 	self assert: browser messageList isEmpty.
+ 	
+ 	browser selectClass: browser class.
+ 	browser messageCategoryListIndex: 0.
+ 	self assert: browser messageList = browser classOrMetaClassOrganizer allMethodSelectors.
+ 	browser messageCategoryListIndex: 1. "-- all --"
+ 	self assert: browser messageList = browser classOrMetaClassOrganizer allMethodSelectors.
+ 	
+ 	browser messageCategoryListIndex: 2.
+ 	self assert: browser messageList = (browser classOrMetaClassOrganizer listAtCategoryNumber: 1).
+ 	
+ 	browser metaClassIndicated: true.
+ 	browser messageCategoryListIndex: 0.
+ 	self assert: browser messageList = browser classOrMetaClassOrganizer allMethodSelectors.
+ 	
+ 	browser messageCategoryListIndex: 1. "-- all --"
+ 	self assert: browser messageList = browser classOrMetaClassOrganizer allMethodSelectors.
+ 	
+ 	browser messageCategoryListIndex: 2.
+ 	self assert: browser messageList = (browser classOrMetaClassOrganizer listAtCategoryNumber: 1).!

Item was added:
+ ----- 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) first.
+ 	commonSelector := (otherClass organization allMethodSelectors intersection: browser class organization allMethodSelectors) first.
+ 	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.!