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

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

Name: ToolsTests-fbs.7
Author: fbs
Time: 3 March 2011, 11:16:07.095 pm
UUID: 093622b6-d1fd-4d44-9ee0-0f017d21ee80
Ancestors: ToolsTests-tbn.5

Woefully inadequate test suite for Tools-fbs.300's extensive refactoring.

=============== Diff against ToolsTests-tbn.5 ===============

Item was changed:
  ----- Method: BrowserHierarchicalListTest>>hierarchicalClassListForCategory: (in category 'helper') -----
  hierarchicalClassListForCategory: category
  
+ 	^ Browser new
+ 		selectedSystemCategory: category;
+ 		hierarchicalClassList.!
- 	| b index |
- 	b := Browser new.
- 	index := b systemCategoryList indexOf: category.
- 	b systemCategoryListIndex: index.
- 	^ b hierarchicalClassList.
- !

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

Item was added:
+ ----- Method: BrowserTest>>setUp (in category 'as yet unclassified') -----
+ setUp
+ 	browser := Browser new.!

Item was added:
+ ----- Method: BrowserTest>>testDefaultClassList (in category 'as yet unclassified') -----
+ testDefaultClassList
+ 	browser selectedSystemCategory: nil.
+ 	self assert: browser defaultClassList isEmpty.
+ 	
+ 	browser selectedSystemCategory: Browser category.
+ 	self assert: browser defaultClassList = (SystemOrganization listAtCategoryNamed: Browser category)!

Item was added:
+ ----- Method: BrowserTest>>testGetSystemCategoryListIndex (in category 'as yet unclassified') -----
+ testGetSystemCategoryListIndex
+ 	| cat |
+ 	cat := SystemOrganization categories first.
+ 	browser selectedSystemCategory: cat.
+ 	self assert: browser systemCategoryListIndex = (SystemOrganization categories indexOf: browser selectedSystemCategory).!

Item was added:
+ ----- Method: BrowserTest>>testSelectCategoryForClass (in category 'as yet unclassified') -----
+ testSelectCategoryForClass
+ 	browser selectCategoryForClass: Browser.
+ 	self assert: browser selectedSystemCategory = Browser category.
+ 	
+ 	browser selectCategoryForClass: TestCase.
+ 	self assert: browser selectedSystemCategory = TestCase category.!

Item was added:
+ ----- Method: BrowserTest>>testSelectedEnvironment (in category 'as yet unclassified') -----
+ testSelectedEnvironment
+ 	browser selectedSystemCategory: Browser category.
+ 	self assert: browser selectedEnvironment = Smalltalk.
+ 	
+ 	browser selectedSystemCategory: nil.
+ 	self assert: browser selectedEnvironment isNil.!

Item was added:
+ ----- Method: BrowserTest>>testSelectedSystemCategory (in category 'as yet unclassified') -----
+ testSelectedSystemCategory
+ 	| cat newCat |
+ 	cat := SystemOrganization categories first.
+ 	newCat := SystemOrganization categories second.
+ 	browser selectedSystemCategory: cat.
+ 	self assert:	browser selectedSystemCategory = cat.
+ 		
+ 	browser systemCategoryListIndex: 2.
+ 	self assert:	browser selectedSystemCategory = newCat.!

Item was added:
+ ----- Method: BrowserTest>>testSystemCategoryListIndex (in category 'as yet unclassified') -----
+ testSystemCategoryListIndex
+ 	| oldCat |
+ 	
+ 	browser systemCategoryListIndex: 1.
+ 	oldCat := browser selectedSystemCategory.
+ 	self assert:	browser selectedSystemCategory = SystemOrganization categories first.
+ 		
+ 	browser systemCategoryListIndex: 2.
+ 	self deny: browser selectedSystemCategory = oldCat.
+ 	self assert:	browser selectedSystemCategory = SystemOrganization categories second.!

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

Item was added:
+ ----- Method: PackagePaneBrowserTest>>setUp (in category 'as yet unclassified') -----
+ setUp
+ 	browser := PackagePaneBrowser new.!

Item was added:
+ ----- Method: PackagePaneBrowserTest>>testClassList (in category 'as yet unclassified') -----
+ testClassList
+ 	browser selectedSystemCategory: browser class category.
+ 	self assert: browser classList = (SystemOrganization listAtCategoryNamed: browser class category).
+ 	
+ 	browser selectedSystemCategory: nil.
+ 	self assert: browser classList isEmpty.!

Item was added:
+ ----- Method: PackagePaneBrowserTest>>testSelectCategoryForClass (in category 'as yet unclassified') -----
+ testSelectCategoryForClass
+ 	| catName pkgName |
+ 	pkgName := browser class category copyUpTo: $-.
+ 	catName := browser class category allButFirst: pkgName size + 1.
+ 	browser selectCategoryForClass: browser class.
+ 	self assert: browser selectedSystemCategory = catName.
+ 	self assert: browser packageListIndex = (browser packageList indexOf: pkgName).
+ 	browser selectedSystemCategory: nil.
+ 	self assert: browser classList isEmpty.!