[squeak-dev] The Trunk: ToolsTests-fbs.14.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Apr 20 23:28:41 UTC 2011
Levente Uzonyi uploaded a new version of ToolsTests to project The Trunk:
http://source.squeak.org/trunk/ToolsTests-fbs.14.mcz
==================== Summary ====================
Name: ToolsTests-fbs.14
Author: fbs
Time: 12 March 2011, 10:52:22.239 pm
UUID: c8a56bb5-bf67-5c45-8f0c-7aefdeeae904
Ancestors: ToolsTests-fbs.12
More tests!
=============== Diff against ToolsTests-fbs.12 ===============
Item was added:
+ ----- Method: BrowserTest>>testCreateHierarchyTreeOf (in category 'as yet unclassified') -----
+ testCreateHierarchyTreeOf
+ "Empty."
+ self assert: (browser createHierarchyTreeOf: #()) isEmpty.
+ "Single class."
+ self assert: { Browser -> #() } = (browser createHierarchyTreeOf: { Browser }).
+ "Single class + 1 subclass"
+ self assert: { Browser->{HierarchyBrowser->#()} } = (browser createHierarchyTreeOf: { Browser. HierarchyBrowser. }).
+ "Single class + 2 subclasses"
+ self assert: { Browser->{HierarchyBrowser->#() . FileContentsBrowser->#()} } = (browser createHierarchyTreeOf: { Browser. HierarchyBrowser. FileContentsBrowser. }).
+ "Superclass, class, subclass"
+ self assert: { CodeHolder->{Browser->{HierarchyBrowser->#()}} } = (browser createHierarchyTreeOf: { CodeHolder. Browser. HierarchyBrowser. }).
+ "Two 'unrelated' classes"
+ self assert: {Browser->#() . SmallInteger->#()} = (browser createHierarchyTreeOf: { Browser. SmallInteger }).
+ "Two 'unrelated' classes and a common ancestor"
+ self assert: {Browser->#() . SmallInteger->#() . ProtoObject->#()} = (browser createHierarchyTreeOf: { Browser. SmallInteger. ProtoObject }).!
Item was added:
+ ----- Method: HierarchyBrowserTest>>testClassList (in category 'as yet unclassified') -----
+ testClassList
+ | c displayedClasses hierarchy |
+ browser initHierarchyForClass: browser class.
+
+ c := browser class theNonMetaClass.
+ displayedClasses := browser classList collect: [:each | each withoutLeadingBlanks ].
+ hierarchy := (c allSuperclasses reversed, {browser class}, c allSubclasses) collect: [ :each | each name ].
+ self assert: displayedClasses = hierarchy.!
Item was added:
+ ----- Method: HierarchyBrowserTest>>testClassListIndex (in category 'as yet unclassified') -----
+ testClassListIndex
+ browser initHierarchyForClass: browser class.
+ self deny: browser classListIndex = 0.
+
+ browser classListIndex: 1.
+ self assert: browser classListIndex = 1.!
Item was added:
+ ----- Method: HierarchyBrowserTest>>testClassListSansWhitespace (in category 'as yet unclassified') -----
+ testClassListSansWhitespace
+ | c displayedClasses hierarchy |
+ browser initHierarchyForClass: browser class.
+
+ c := browser class theNonMetaClass.
+ displayedClasses := browser classList collect: [:each | each withoutLeadingBlanks ].
+ hierarchy := (c allSuperclasses reversed, {browser class}, c allSubclasses) collect: [ :each | each name ].
+ self assert: displayedClasses = hierarchy.!
Item was changed:
----- Method: HierarchyBrowserTest>>testSelectedClassName (in category 'as yet unclassified') -----
testSelectedClassName
browser initHierarchyForClass: browser class.
+ self assert: browser selectedClassName = browser class name.
+
+ browser classListIndex: 0.
+ self assert: browser selectedClassName isNil.!
- self assert: browser selectedClassName = browser class name.!
More information about the Squeak-dev
mailing list
|