A new version of ToolsTests was added to project The Inbox:
http://source.squeak.org/inbox/ToolsTests-fbs.15.mcz

==================== Summary ====================

Name: ToolsTests-fbs.15
Author: fbs
Time: 13 March 2011, 10:07:05.006 pm
UUID: 35dbdb41-4d13-394f-a8c4-a62642dd344b
Ancestors: ToolsTests-fbs.14

Reuse Browser's hierarchy-flattening: it does the same job.

=============== 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: BrowserTest>>testFlattenHierarchyTreeOnIndent (in category 'as yet unclassified') -----
+ testFlattenHierarchyTreeOnIndent
+ 	| flatten |
+ 	flatten := [:coll | browser
+ 		flattenHierarchyTree: (browser createHierarchyTreeOf: coll)
+ 		on: OrderedCollection new
+ 		indent: ''].
+ 	"Empty collection."
+ 	self assert: (flatten value: #()) isEmpty.
+ 	"Single class."
+ 	self assert: (OrderedCollection with: 'Browser') = (flatten value: {Browser}).
+ 	"Single class + subclass."
+ 	self assert: (OrderedCollection with: 'Browser' with: ' HierarchyBrowser') = (flatten value: {Browser. HierarchyBrowser}).
+ 	"Single class + 2 subclasses"
+ 	self assert: (OrderedCollection with: 'Browser' with: ' HierarchyBrowser' with: ' FileContentsBrowser') = (flatten value: { Browser. HierarchyBrowser. FileContentsBrowser. }).
+ 	"Superclass, class, subclass"
+ 	self assert: (OrderedCollection with: 'CodeHolder' with: ' Browser' with: '  HierarchyBrowser') = (flatten value: { CodeHolder. Browser. HierarchyBrowser. }).
+ 	"Two 'unrelated' classes"
+ 	self assert: (OrderedCollection with: 'Browser' with: 'SmallInteger') = (flatten value: { Browser. SmallInteger }).
+ 	"Two 'unrelated' classes and a common ancestor"
+ 	self assert: (OrderedCollection with: 'Browser' with: 'SmallInteger' with: 'ProtoObject') = (flatten value: { Browser. SmallInteger. ProtoObject }).!

Item was added:
+ ----- Method: BrowserTest>>testFlattenHierarchyTreeOnIndentBy (in category 'as yet unclassified') -----
+ testFlattenHierarchyTreeOnIndentBy
+ 	| flatten |
+ 	flatten := [:coll | browser
+ 		flattenHierarchyTree: (browser createHierarchyTreeOf: coll)
+ 		on: OrderedCollection new
+ 		indent: '' by: 'x'].
+ 	"Empty collection."
+ 	self assert: (flatten value: #()) isEmpty.
+ 	"Single class."
+ 	self assert: (OrderedCollection with: 'Browser') = (flatten value: {Browser}).
+ 	"Single class + subclass."
+ 	self assert: (OrderedCollection with: 'Browser' with: 'xHierarchyBrowser') = (flatten value: {Browser. HierarchyBrowser}).
+ 	"Single class + 2 subclasses"
+ 	self assert: (OrderedCollection with: 'Browser' with: 'xHierarchyBrowser' with: 'xFileContentsBrowser') = (flatten value: { Browser. HierarchyBrowser. FileContentsBrowser. }).
+ 	"Superclass, class, subclass"
+ 	self assert: (OrderedCollection with: 'CodeHolder' with: 'xBrowser' with: 'xxHierarchyBrowser') = (flatten value: { CodeHolder. Browser. HierarchyBrowser. }).
+ 	"Two 'unrelated' classes"
+ 	self assert: (OrderedCollection with: 'Browser' with: 'SmallInteger') = (flatten value: { Browser. SmallInteger }).
+ 	"Two 'unrelated' classes and a common ancestor"
+ 	self assert: (OrderedCollection with: 'Browser' with: 'SmallInteger' with: 'ProtoObject') = (flatten value: { 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.!