[squeak-dev] The Trunk: ToolsTests-fbs.7.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Apr 20 23:28:32 UTC 2011
Levente Uzonyi uploaded a new version of ToolsTests to project The Trunk:
http://source.squeak.org/trunk/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.!
More information about the Squeak-dev
mailing list
|