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.!
squeak-dev@lists.squeakfoundation.org