[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