The Trunk: ToolsTests-ul.75.mcz

Levente Uzonyi uploaded a new version of ToolsTests to project The Trunk:
http://source.squeak.org/trunk/ToolsTests-ul.75.mcz

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

Name: ToolsTests-ul.75
Author: ul
Time: 10 January 2016, 10:54:30.964862 pm
UUID: e23e5db2-a7bc-420b-95d9-0705c0108b15
Ancestors: ToolsTests-ul.74

Updated and simplified BrowserTest's #testFlattenHierarchyTreeOnIndent and #testFlattenHierarchyTreeOnIndentBy.

=============== Diff against ToolsTests-ul.74 ===============

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

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