[squeak-dev] The Trunk: ToolsTests-fbs.37.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Apr 20 23:28:39 UTC 2011
Levente Uzonyi uploaded a new version of ToolsTests to project The Trunk:
http://source.squeak.org/trunk/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.!
More information about the Squeak-dev
mailing list
|