Levente Uzonyi uploaded a new version of ToolsTests to project The Trunk:
http://source.squeak.org/trunk/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.15 ===============

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>>testInitHierarchyForClass (in category 'as yet unclassified') -----
+ testInitHierarchyForClass
+ 	| b |
+ 	b := HierarchyBrowser new initHierarchyForClass: browser class.
+ 	self assert: b selectedClassName = browser class name.!

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.!