[squeak-dev] The Inbox: ToolsTests-fbs.9.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Mar 9 22:46:41 UTC 2011
A new version of ToolsTests was added to project The Inbox:
http://source.squeak.org/inbox/ToolsTests-fbs.9.mcz
==================== Summary ====================
Name: ToolsTests-fbs.9
Author: fbs
Time: 5 March 2011, 9:54:48.327 pm
UUID: 73b81967-976e-f949-84fa-2d49db19013d
Ancestors: ToolsTests-fbs.8
More tests, and catching up to Tools-fbs.304's renamings.
=============== 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 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 Squeak-dev
mailing list
|