[squeak-dev] The Inbox: ToolsTests-fbs.17.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Mar 14 21:19:27 UTC 2011
A new version of ToolsTests was added to project The Inbox:
http://source.squeak.org/inbox/ToolsTests-fbs.17.mcz
==================== Summary ====================
Name: ToolsTests-fbs.17
Author: fbs
Time: 14 March 2011, 5:33:04.685 pm
UUID: adc7c065-58cd-4a47-a068-8e72dd0b90c2
Ancestors: ToolsTests-fbs.16
By making matching space-insensitive, we can simplify implementation and remove HierarchyBrowser's special-casing.
=============== Diff against ToolsTests-fbs.16 ===============
Item was changed:
----- Method: HierarchyBrowserTest>>testClassListIndex (in category 'as yet unclassified') -----
testClassListIndex
+ | expectedCat |
+ expectedCat := [:i | (Smalltalk at: (browser classList at: i) withoutLeadingBlanks asSymbol) category ].
browser initHierarchyForClass: browser class.
self deny: browser classListIndex = 0.
+ 1 to: 3 do:
+ [:n |
+ browser classListIndex: n.
+ self assert: browser classListIndex = n.
+ self assert: browser selectedSystemCategory = (expectedCat value: n)]!
- browser classListIndex: 1.
- self assert: browser classListIndex = 1.!
Item was added:
+ ----- Method: HierarchyBrowserTest>>testSelectClass (in category 'as yet unclassified') -----
+ testSelectClass
+ browser initHierarchyForClass: browser class.
+ browser selectClass: ProtoObject.
+ self assert: browser selectedClass = ProtoObject.
+
+ browser selectClass: CodeHolder.
+ self assert: browser selectedClass = CodeHolder.!
More information about the Squeak-dev
mailing list
|