[squeak-dev] The Inbox: ToolsTests-fbs.23.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Mar 17 11:20:11 UTC 2011
A new version of ToolsTests was added to project The Inbox:
http://source.squeak.org/inbox/ToolsTests-fbs.23.mcz
==================== Summary ====================
Name: ToolsTests-fbs.23
Author: fbs
Time: 17 March 2011, 7:28:22.74 am
UUID: 06d9813c-e6ce-294d-9c3a-290dab76d49c
Ancestors: ToolsTests-fbs.22
The start of removing messageListIndex: added the instvar, setting it in parallel with messageListIndex in places where we have tests.
=============== Diff against ToolsTests-fbs.22 ===============
Item was added:
+ ----- Method: BrowserTest>>testBuildMessageCategoryBrowserEditString (in category 'as yet unclassified') -----
+ testBuildMessageCategoryBrowserEditString
+ | spawn |
+ browser selectSystemCategory: browser class category.
+ browser selectClass: browser class.
+ browser messageCategoryListIndex: 1.
+ browser messageListIndex: 1.
+
+ spawn := browser buildMessageCategoryBrowserEditString: 'We don''t yet test that we do the right thing with this string!!'.
+ [self assert: spawn selectedSystemCategory = browser selectedSystemCategory.
+ self assert: spawn selectedClass = browser selectedClass.
+ self assert: spawn messageCategoryListIndex = browser messageCategoryListIndex.
+ self assert: spawn messageListIndex = browser messageListIndex]
+ ensure: [ ToolBuilder default close: spawn topView ].!
Item was added:
+ ----- Method: BrowserTest>>testBuildMessageCategoryBrowserEditStringNoCategorySelected (in category 'as yet unclassified') -----
+ testBuildMessageCategoryBrowserEditStringNoCategorySelected
+ browser selectSystemCategory: browser class category.
+ browser selectClass: browser class.
+ browser messageCategoryListIndex: 0.
+
+ self assert: (browser buildMessageCategoryBrowserEditString: 'foo') isNil.!
Item was added:
+ ----- Method: BrowserTest>>testHasMessageCategorySelected (in category 'as yet unclassified') -----
+ testHasMessageCategorySelected
+ browser selectSystemCategory: browser class category.
+ browser selectClass: browser class.
+ browser messageCategoryListIndex: 0.
+ self deny: browser hasMessageCategorySelected.
+
+ browser messageCategoryListIndex: 1.
+ self assert: browser hasMessageCategorySelected.
+
+ browser messageCategoryListIndex: 0.
+ self deny: browser hasMessageCategorySelected.!
Item was added:
+ ----- Method: BrowserTest>>testHasMessageSelected (in category 'as yet unclassified') -----
+ testHasMessageSelected
+ browser selectSystemCategory: browser class category.
+ browser selectClass: browser class.
+ browser messageCategoryListIndex: 1.
+
+ self deny: browser hasMessageSelected.
+
+ browser messageListIndex: 0.
+ self deny: browser hasMessageSelected.
+
+ browser messageListIndex: 1.
+ self assert: browser hasMessageSelected.
+
+ browser messageListIndex: 0.
+ self deny: browser hasMessageSelected.!
Item was added:
+ ----- Method: BrowserTest>>testMessageCategoryListIndex (in category 'as yet unclassified') -----
+ testMessageCategoryListIndex
+ browser selectSystemCategory: browser class category.
+ browser selectClass: browser class.
+
+ self assert: browser messageCategoryList size > 1 description: 'Sanity check: test refers to first two categories.'.
+
+ browser messageCategoryListIndex: 0.
+ self assert: browser selectedMessageCategoryName isNil.
+
+ browser messageCategoryListIndex: 1.
+ self assert: browser selectedMessageCategoryName = browser messageCategoryList first.
+
+ browser messageListIndex: 1.
+ browser messageCategoryListIndex: 2.
+ self assert: browser selectedMessageName isNil description: 'Changing category deselects method'.!
Item was added:
+ ----- Method: BrowserTest>>testSelectMessageCategoryEditSelection (in category 'as yet unclassified') -----
+ testSelectMessageCategoryEditSelection
+ browser selectSystemCategory: browser class category.
+ browser selectClass: browser class.
+ browser selectMessageCategoryNamed: browser messageCategoryList first.
+
+ self assert: browser editSelection = #newMessage.!
Item was added:
+ ----- Method: BrowserTest>>testSelectMessageCategoryEditSelectionNoMsgCat (in category 'as yet unclassified') -----
+ testSelectMessageCategoryEditSelectionNoMsgCat
+ browser selectSystemCategory: browser class category.
+ browser selectClass: browser class.
+ .
+ browser messageCategoryListIndex: 0.
+
+ self assert: browser editSelection = #editClass.!
Item was added:
+ ----- Method: BrowserTest>>testSelectMessageCategoryEditSelectionNoMsgCatNoClass (in category 'as yet unclassified') -----
+ testSelectMessageCategoryEditSelectionNoMsgCatNoClass
+ browser selectSystemCategory: browser class category.
+ browser selectClass: nil.
+ .
+ browser messageCategoryListIndex: 0.
+
+ self assert: browser editSelection = #newClass.!
More information about the Squeak-dev
mailing list
|