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.!
squeak-dev@lists.squeakfoundation.org