[Pkg] The Trunk: ToolsTests-fbs.10.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Apr 20 23:28:28 UTC 2011
Levente Uzonyi uploaded a new version of ToolsTests to project The Trunk:
http://source.squeak.org/trunk/ToolsTests-fbs.10.mcz
==================== Summary ====================
Name: ToolsTests-fbs.10
Author: fbs
Time: 5 March 2011, 10:29:46.868 pm
UUID: 6fd8f061-0e22-5b46-b18f-24a35d9f6222
Ancestors: ToolsTests-fbs.9
Initial HierarchyBrowser tests.
=============== Diff against ToolsTests-fbs.8 ===============
Item was changed:
----- Method: BrowserHierarchicalListTest>>hierarchicalClassListForCategory: (in category 'helper') -----
hierarchicalClassListForCategory: category
^ Browser new
+ selectSystemCategory: category;
- selectedSystemCategory: category;
hierarchicalClassList.!
Item was added:
+ ----- Method: BrowserTest>>testAlphabetizeMessageCategories (in category 'as yet unclassified') -----
+ testAlphabetizeMessageCategories
+ browser selectSystemCategory: browser class category.
+ self deny: browser alphabetizeMessageCategories.
+
+ browser selectClass: browser class.
+ browser metaClassIndicated: false.
+ self assert: browser alphabetizeMessageCategories.
+ self assert: browser classOrMetaClassOrganizer categories isSorted.
+
+ browser metaClassIndicated: true.
+ self assert: browser alphabetizeMessageCategories.
+ self assert: browser classOrMetaClassOrganizer categories isSorted.!
Item was changed:
----- Method: BrowserTest>>testDefaultClassList (in category 'as yet unclassified') -----
testDefaultClassList
+ browser selectSystemCategory: nil.
- browser selectedSystemCategory: nil.
self assert: browser defaultClassList isEmpty.
browser selectedSystemCategory: Browser category.
self assert: browser defaultClassList = (SystemOrganization listAtCategoryNamed: Browser category)!
Item was changed:
----- Method: BrowserTest>>testGetSystemCategoryListIndex (in category 'as yet unclassified') -----
testGetSystemCategoryListIndex
| cat |
cat := SystemOrganization categories first.
+ browser selectSystemCategory: cat.
- browser selectedSystemCategory: cat.
self assert: browser systemCategoryListIndex = (SystemOrganization categories indexOf: browser selectedSystemCategory).!
Item was changed:
----- Method: BrowserTest>>testMessageCatListSingleton (in category 'as yet unclassified') -----
testMessageCatListSingleton
| catName |
+ browser selectSystemCategory: browser class category.
- browser selectedSystemCategory: browser class category.
browser selectClass: browser class.
self assert: browser messageCatListSingleton = #().
catName := browser messageCategoryList second.
browser selectMessageCategoryNamed: catName.
self assert: browser messageCatListSingleton = {catName}.!
Item was changed:
----- Method: BrowserTest>>testMessageCategoryList (in category 'as yet unclassified') -----
testMessageCategoryList
+ browser selectSystemCategory: browser class category.
- browser selectedSystemCategory: browser class category.
browser selectClass: browser class.
self assert: browser messageCategoryList = ({ClassOrganizer allCategory}, browser class organization categories).
browser selectClass: nil.
self assert: browser messageCategoryList = #().
browser selectClass: browser class.
browser metaClassIndicated: true.
self assert: browser messageCategoryList = ({ClassOrganizer allCategory}, browser class classSide organization categories).!
Item was changed:
----- Method: BrowserTest>>testMetaClassIndicatedFalseOnExistingClass (in category 'as yet unclassified') -----
testMetaClassIndicatedFalseOnExistingClass
+ browser selectSystemCategory: browser class category.
- browser selectedSystemCategory: browser class category.
browser classListIndex: (browser classList indexOf: browser class name).
browser metaClassIndicated: false.
self assert: browser messageListIndex = 0.
self assert: browser messageCategoryListIndex = 0.
self deny: browser contents isEmpty. "It shows the class definition."
self deny: browser messageCategoryList isEmpty.
self assert: browser messageList = (browser class organization allMethodSelectors).
self assert: browser editSelection = #editClass.!
Item was changed:
----- Method: BrowserTest>>testMetaClassIndicatedNotOnNoClass (in category 'as yet unclassified') -----
testMetaClassIndicatedNotOnNoClass
+ browser selectSystemCategory: browser class category.
- browser selectedSystemCategory: browser class category.
browser selectClass: nil.
browser metaClassIndicated: false.
self assert: browser messageListIndex = 0.
self assert: browser messageCategoryListIndex = 0.
self deny: browser contents isEmpty. "It shows the class definition."
self assert: browser messageCategoryList isEmpty.
self assert: browser messageList isEmpty.
self assert: browser editSelection = #newClass.!
Item was changed:
----- Method: BrowserTest>>testMetaClassIndicatedNotWithNoSystemCategorySelected (in category 'as yet unclassified') -----
testMetaClassIndicatedNotWithNoSystemCategorySelected
+ browser selectSystemCategory: nil.
- browser selectedSystemCategory: nil.
browser metaClassIndicated: false.
self assert: browser messageListIndex = 0.
self assert: browser messageCategoryListIndex = 0.
self assert: browser contents isEmpty. "It shows the Class definition."
self assert: browser messageCategoryList isEmpty.
self assert: browser editSelection = #none.!
Item was changed:
----- Method: BrowserTest>>testMetaClassIndicatedOnNoClass (in category 'as yet unclassified') -----
testMetaClassIndicatedOnNoClass
+ browser selectSystemCategory: browser class category.
- browser selectedSystemCategory: browser class category.
browser selectClass: nil.
browser metaClassIndicated: true.
self assert: browser messageListIndex = 0.
self assert: browser messageCategoryListIndex = 0.
self assert: browser contents isEmpty.
self assert: browser messageCategoryList isEmpty.
self assert: browser messageList isEmpty.
self assert: browser editSelection = #none.!
Item was changed:
----- Method: BrowserTest>>testMetaClassIndicatedTrueOnExistingClass (in category 'as yet unclassified') -----
testMetaClassIndicatedTrueOnExistingClass
+ browser selectSystemCategory: browser class category.
- browser selectedSystemCategory: browser class category.
browser classListIndex: (browser classList indexOf: browser class name).
browser metaClassIndicated: true.
self assert: browser messageListIndex = 0.
self assert: browser messageCategoryListIndex = 0.
self deny: browser contents isEmpty. "It shows the Class definition."
self deny: browser messageCategoryList isEmpty.
self assert: browser messageList = (browser class classSide organization allMethodSelectors).!
Item was changed:
----- Method: BrowserTest>>testMetaClassIndicatedWithNoSystemCategorySelected (in category 'as yet unclassified') -----
testMetaClassIndicatedWithNoSystemCategorySelected
+ browser selectSystemCategory: nil.
- browser selectedSystemCategory: nil.
browser metaClassIndicated: true.
self assert: browser messageListIndex = 0.
self assert: browser messageCategoryListIndex = 0.
self assert: browser contents isEmpty. "It shows the Class definition."
self assert: browser messageCategoryList isEmpty.
self assert: browser editSelection = #none.!
Item was changed:
----- Method: BrowserTest>>testRawMessageCategoryList (in category 'as yet unclassified') -----
testRawMessageCategoryList
+ browser selectSystemCategory: browser class category.
- browser selectedSystemCategory: browser class category.
browser selectClass: browser class.
self assert: browser rawMessageCategoryList = browser class organization categories.
browser selectClass: nil.
self assert: browser rawMessageCategoryList = #().
browser selectClass: browser class.
browser metaClassIndicated: true.
self assert: browser rawMessageCategoryList = browser class classSide organization categories.!
Item was added:
+ ----- Method: BrowserTest>>testSelectClassNamed (in category 'as yet unclassified') -----
+ testSelectClassNamed
+ browser selectSystemCategory: browser class category.
+ browser selectClassNamed: browser class name.
+ self assert: browser selectedClassName = browser class name.
+
+ browser selectClassNamed: nil.
+ self assert: browser selectedClassName isNil.
+
+ browser selectClassNamed: browser class name asString.
+ self assert: browser selectedClassName = browser class name.!
Item was changed:
----- Method: BrowserTest>>testSelectClassSelectsClass (in category 'as yet unclassified') -----
testSelectClassSelectsClass
+ browser selectSystemCategory: browser class category.
- browser selectedSystemCategory: browser class category.
browser classListIndex: (browser classList indexOf: browser class name).
self assert: browser classListIndex ~= 0.!
Item was changed:
----- Method: BrowserTest>>testSelectMessageCategoryNamed (in category 'as yet unclassified') -----
testSelectMessageCategoryNamed
| catName |
+ browser selectSystemCategory: browser class category.
- browser selectedSystemCategory: browser class category.
browser selectClass: browser class.
catName := browser messageCategoryList anyOne.
browser selectMessageCategoryNamed: catName.
self assert: browser selectedMessageCategoryName = catName.!
Item was added:
+ ----- Method: BrowserTest>>testSelectedClass (in category 'as yet unclassified') -----
+ testSelectedClass
+ browser selectSystemCategory: browser class category.
+ browser selectClassNamed: browser class name.
+ self assert: browser selectedClass = browser class.
+
+ browser selectClassNamed: nil.
+ self assert: browser selectedClass isNil.
+
+ browser selectSystemCategory: nil.
+ browser selectClassNamed: browser class name.
+ self assert: browser selectedClass isNil.!
Item was changed:
----- Method: BrowserTest>>testSelectedEnvironment (in category 'as yet unclassified') -----
testSelectedEnvironment
+ browser selectSystemCategory: browser class category.
- browser selectedSystemCategory: browser class category.
self assert: browser selectedEnvironment = Smalltalk.
browser selectedSystemCategory: nil.
self assert: browser selectedEnvironment isNil.!
Item was changed:
----- Method: BrowserTest>>testSelectedSystemCategory (in category 'as yet unclassified') -----
testSelectedSystemCategory
| cat newCat |
cat := SystemOrganization categories first.
newCat := SystemOrganization categories second.
+ browser selectSystemCategory: cat.
- browser selectedSystemCategory: cat.
self assert: browser selectedSystemCategory = cat.
browser systemCategoryListIndex: 2.
self assert: browser selectedSystemCategory = newCat.!
Item was added:
+ TestCase subclass: #HierarchyBrowserTest
+ instanceVariableNames: 'browser'
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'ToolsTests-Browser'!
Item was added:
+ ----- Method: HierarchyBrowserTest>>setUp (in category 'as yet unclassified') -----
+ setUp
+ browser := HierarchyBrowser new.!
Item was added:
+ ----- Method: HierarchyBrowserTest>>testSelectedClassName (in category 'as yet unclassified') -----
+ testSelectedClassName
+ browser initHierarchyForClass: browser class.
+ self assert: browser selectedClassName = browser class name.!
Item was changed:
----- Method: PackagePaneBrowserTest>>testClassList (in category 'as yet unclassified') -----
testClassList
+ browser selectSystemCategory: browser class category.
- browser selectedSystemCategory: browser class category.
self assert: browser classList = (SystemOrganization listAtCategoryNamed: browser class category).
browser selectedSystemCategory: nil.
self assert: browser classList isEmpty.!
Item was changed:
----- 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 selectSystemCategory: nil.
- browser selectedSystemCategory: nil.
self assert: browser classList isEmpty.!
More information about the Packages
mailing list