The Inbox: ToolsTests-fbs.7.mcz

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

On 2011/03/03 23:20, [hidden email] wrote:
In particular, because I don't access the right mouse menu on my Windows
machine for some reason or other, I haven't tested
add/removeSystemCategory. For the same reason, I haven't been able to
categorise the methods correctly.

I will at some stage, when I can right-click/alt-click once more, clean
up my mess!

frank