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

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

Name: ToolsTests-fbs.20
Author: fbs
Time: 16 March 2011, 7:25:14.088 am
UUID: b0a585bc-c797-4d46-a943-b84880402f4e
Ancestors: ToolsTests-fbs.19

More tests. FileContentsBrowser>>changeMessageCategories: is broken, and the test - while written - is an expected failure. See Mantis #7615.

=============== Diff against ToolsTests-fbs.19 ===============

Item was added:
+ ----- Method: BrowserTest>>testSpawnHierarchy (in category 'as yet unclassified') -----
+ testSpawnHierarchy
+ 	| spawn |
+ 	browser selectedSystemCategory: browser class category.
+ 	browser selectClass: browser class.
+ 	browser selectMessageCategoryNamed: browser messageCategoryList last.
+ 	browser messageListIndex: (browser messageList size).
+ 
+ 	spawn := browser spawnHierarchy.
+ 	[self assert: spawn selectedSystemCategory = browser selectedSystemCategory.
+ 	self assert: spawn selectedClassName = browser selectedClassName.
+ 	self assert: spawn selectedMessageCategoryName = browser selectedMessageCategoryName.
+ 	self assert: spawn messageListIndex = browser messageListIndex.]
+ 		ensure: [ ToolBuilder default close: spawn topView ].!

Item was added:
+ TestCase subclass: #FileContentsBrowserTest
+ 	instanceVariableNames: 'browser'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'ToolsTests-Browser'!

Item was added:
+ ----- Method: FileContentsBrowserTest>>expectedFailures (in category 'as yet unclassified') -----
+ expectedFailures
+ 	^ #(testChangeMessageCategoriesLeavesClassSelected) "See Mantis #7615"!

Item was added:
+ ----- Method: FileContentsBrowserTest>>setUp (in category 'as yet unclassified') -----
+ setUp
+ 	| fileout testCat package packageDict organizer |
+ 	testCat := self class category.
+ 	fileout := ReadWriteStream on: (String new: 10000).
+ 	SystemOrganization fileOutCategory: testCat on: fileout.
+ 
+ 	packageDict := Dictionary new.
+ 	browser := FileContentsBrowser new.
+ 	organizer := SystemOrganizer defaultList: Array new.
+ 	package := (FilePackage new fullName: testCat; fileInFrom: fileout).
+ 	packageDict 
+ 		at: package packageName 
+ 		put: package.
+ 	organizer 
+ 		classifyAll: package classes keys 
+ 		under: package packageName.
+ 	(browser := FileContentsBrowser systemOrganizer: organizer)
+ 		packages: packageDict.!

Item was added:
+ ----- Method: FileContentsBrowserTest>>testChangeMessageCategoriesLeavesClassSelected (in category 'as yet unclassified') -----
+ testChangeMessageCategoriesLeavesClassSelected
+ 	browser selectedSystemCategory: browser systemCategoryList first.
+ 	browser selectClassNamed: browser classList first.
+ 	
+ 	"This is a no-op."
+ 	browser changeMessageCategories: browser classOrMetaClassOrganizer printString.
+ 	self assert: browser selectedClassName = browser class name.!