[squeak-dev] The Trunk: ToolsTests-fbs.36.mczcommits at source.squeak.org commits at source.squeak.orgWed Apr 20 23:27:29 UTC 2011
Levente Uzonyi uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-fbs.36.mcz ==================== Summary ==================== Name: ToolsTests-fbs.36 Author: fbs Time: 30 March 2011, 8:56:54.768 am UUID: 019edd2a-cc7b-6d43-bc9f-b33e46d28786 Ancestors: ToolsTests-fbs.35 More tests: test BrowserTest>>testFileOutMessageCategories. =============== Diff against ToolsTests-fbs.20 =============== 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>>testContentsSelection (in category 'as yet unclassified') ----- + testContentsSelection + browser selectSystemCategory: browser class category. + browser selectClass: browser class. + + "No category or message selected." + self assert: browser contentsSelection isEmpty. + + "Category selected, but no message selected." + browser messageCategoryListIndex: 1. + browser selectMessageNamed: browser messageList first. + self assert: browser contentsSelection isEmpty. + + "Category and message selected." + browser selectMessageNamed: nil. + self deny: browser contentsSelection isEmpty.! Item was changed: ----- Method: BrowserTest>>testDefaultClassList (in category 'as yet unclassified') ----- testDefaultClassList browser selectSystemCategory: nil. self assert: browser defaultClassList isEmpty. + browser selectSystemCategory: Browser category. - browser selectedSystemCategory: Browser category. self assert: browser defaultClassList = (SystemOrganization listAtCategoryNamed: Browser category)! Item was added: + ----- Method: BrowserTest>>testFileOutMessageCategories (in category 'as yet unclassified') ----- + testFileOutMessageCategories + | fileName | + browser selectSystemCategory: browser class category. + browser selectClass: browser class. + browser messageCategoryListIndex: 1. + + "Handcrafted from ClassDescription>>fileOutCategory:asHtml:" + fileName := browser selectedClass name, '-', browser selectedMessageCategoryName, FileDirectory dot, 'st'. + self deny: (FileDirectory default fileExists: fileName). + + [browser fileOutMessageCategories. + self assert: (FileDirectory default fileExists: fileName). + ] ensure: [FileDirectory default deleteFileNamed: fileName].! Item was changed: ----- Method: BrowserTest>>testHasClassSelected (in category 'as yet unclassified') ----- testHasClassSelected + browser selectSystemCategory: browser class category. - browser selectedSystemCategory: browser class category. self deny: browser hasClassSelected. + - browser selectClass: browser class. self assert: browser hasClassSelected. + - browser selectClass: nil. + self deny: browser hasClassSelected. + + browser selectClassNamed: browser class name asString. + self assert: browser hasClassSelected.! - self deny: browser hasClassSelected.! 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>>testHomeCategory (in category 'as yet unclassified') ----- + testHomeCategory + "This also 'just happens' to test #selectOriginalCategoryForCurrentMethod. It's not appropriate to directly test a private method. (It's a private method because its comment says so, not its category.)" + browser selectSystemCategory: browser class category. + browser selectClass: browser class. + browser messageCategoryListIndex: 0. "Select -- all --" + browser selectMessageNamed: browser messageList first. + browser showHomeCategory. + + self assert: browser selectedMessageCategoryName = (browser class organization categoryOfElement: browser selectedMessageName).! 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>>testSelectClass (in category 'as yet unclassified') ----- + testSelectClass + browser selectSystemCategory: browser class category. + browser selectClass: browser class. + self assert: browser hasClassSelected. + + browser selectClass: nil. + self deny: browser hasClassSelected.! Item was changed: ----- Method: BrowserTest>>testSelectClassEditSelectionNoClass (in category 'as yet unclassified') ----- testSelectClassEditSelectionNoClass + browser selectSystemCategory: browser class category. - browser selectedSystemCategory: browser class category. browser selectClass: nil. self assert: browser editSelection = #newClass.! Item was changed: ----- Method: BrowserTest>>testSelectClassEditSelectionWhenCommentSelected (in category 'as yet unclassified') ----- testSelectClassEditSelectionWhenCommentSelected | editSelection | + browser selectSystemCategory: Heap category. - browser selectedSystemCategory: Heap category. browser selectClass: Heap. browser editComment. browser messageListIndex: 0. browser messageListIndex: 0. editSelection := browser editSelection. browser selectClass: Interval. self assert: browser editSelection = editSelection.! Item was changed: ----- Method: BrowserTest>>testSelectClassEditSelectionWhenEditingClass (in category 'as yet unclassified') ----- testSelectClassEditSelectionWhenEditingClass + browser selectSystemCategory: Heap category. - browser selectedSystemCategory: Heap category. browser selectClass: Heap. browser metaClassIndicated: false. browser messageListIndex: 0. browser messageListIndex: 0. browser selectClass: Interval. self assert: browser editSelection = #editClass.! Item was changed: ----- Method: BrowserTest>>testSelectClassEditSelectionWhenEditingMetaclass (in category 'as yet unclassified') ----- testSelectClassEditSelectionWhenEditingMetaclass + browser selectSystemCategory: Heap category. - browser selectedSystemCategory: Heap category. browser selectClass: Heap. browser metaClassIndicated: true. browser messageListIndex: 0. browser messageListIndex: 0. browser selectClass: Interval. self assert: browser editSelection = #editClass.! Item was changed: ----- Method: BrowserTest>>testSelectClassEditSelectionWhenMsgSelected (in category 'as yet unclassified') ----- testSelectClassEditSelectionWhenMsgSelected + browser selectSystemCategory: Heap category. - browser selectedSystemCategory: Heap category. browser selectClass: Heap. browser selectMessageCategoryNamed: 'adding'. browser messageListIndex: (browser messageList indexOf: #add:). browser selectClass: Interval. self assert: browser editSelection = #editMessage.! Item was changed: ----- Method: BrowserTest>>testSelectClassEditSelectionWhenNoMsgButCatSelected (in category 'as yet unclassified') ----- testSelectClassEditSelectionWhenNoMsgButCatSelected + browser selectSystemCategory: Heap category. - browser selectedSystemCategory: Heap category. browser selectClass: Heap. browser selectMessageCategoryNamed: 'adding'. browser messageListIndex: 0. browser selectClass: Interval. self assert: browser editSelection = #newMessage.! Item was changed: ----- Method: BrowserTest>>testSelectClassReselectsMessage (in category 'as yet unclassified') ----- testSelectClassReselectsMessage "Colections-Sequences contains a number of classes with similar protocols. In particular, several classes have a method called #add: in a category 'adding'." | selectedMsgCat selectedMethod | selectedMsgCat := 'adding'. selectedMethod := #add:. + browser selectSystemCategory: Heap category. - browser selectedSystemCategory: Heap category. browser selectClass: Heap. browser selectMessageCategoryNamed: selectedMsgCat. browser messageListIndex: (browser messageList indexOf: selectedMethod). browser selectClass: Interval. self assert: browser selectedMessageCategoryName = selectedMsgCat. self assert: browser selectedMessageName = selectedMethod.! 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.! Item was added: + ----- Method: BrowserTest>>testSelectMessageNamed (in category 'as yet unclassified') ----- + testSelectMessageNamed + browser selectSystemCategory: browser class category. + browser selectClass: browser class. + browser messageCategoryListIndex: 1. + + browser selectMessageNamed: browser messageList first. + self assert: browser selectedMessageName = browser messageList first. + self assert: browser messageListIndex = 1. + + browser selectMessageNamed: nil. + self assert: browser selectedMessageName isNil. + self assert: browser messageListIndex = 0. + + browser selectMessageNamed: browser messageList second. + self assert: browser selectedMessageName = browser messageList second. + self assert: browser messageListIndex = 2. + + browser selectMessageNamed: browser messageList first asString. + self assert: browser selectedMessageName = browser messageList first. + self assert: browser messageListIndex = 1.! Item was changed: ----- Method: BrowserTest>>testSelectedEnvironment (in category 'as yet unclassified') ----- testSelectedEnvironment browser selectSystemCategory: browser class category. self assert: browser selectedEnvironment = Smalltalk. + browser selectSystemCategory: nil. - browser selectedSystemCategory: nil. self assert: browser selectedEnvironment isNil.! Item was added: + ----- Method: BrowserTest>>testShowHomeCategory (in category 'as yet unclassified') ----- + testShowHomeCategory + browser selectSystemCategory: browser class category. + browser selectClass: browser class. + "Select '--all--'." + browser selectMessageCategoryNamed: browser messageCategoryList first. + browser selectMessageNamed: browser messageList first. + + browser showHomeCategory. + self assert: browser messageCategoryListIndex > 1.! Item was changed: ----- Method: BrowserTest>>testSpawnHierarchy (in category 'as yet unclassified') ----- testSpawnHierarchy | spawn | + browser selectSystemCategory: browser class category. - browser selectedSystemCategory: browser class category. browser selectClass: browser class. browser selectMessageCategoryNamed: browser messageCategoryList last. browser messageListIndex: (browser messageList size). spawn := browser spawnHierarchy. [self assert: spawn selectedSystemCategory = browser selectedSystemCategory. self assert: spawn selectedClassName = browser selectedClassName. self assert: spawn selectedMessageCategoryName = browser selectedMessageCategoryName. self assert: spawn messageListIndex = browser messageListIndex.] ensure: [ ToolBuilder default close: spawn topView ].! Item was changed: ----- Method: FileContentsBrowserTest>>testChangeMessageCategoriesLeavesClassSelected (in category 'as yet unclassified') ----- testChangeMessageCategoriesLeavesClassSelected + browser selectSystemCategory: browser systemCategoryList first. - browser selectedSystemCategory: browser systemCategoryList first. browser selectClassNamed: browser classList first. "This is a no-op." browser changeMessageCategories: browser classOrMetaClassOrganizer printString. self assert: browser selectedClassName = browser class name.! Item was changed: ----- Method: HierarchyBrowserTest>>testInitHierarchyForClass (in category 'as yet unclassified') ----- testInitHierarchyForClass | b | + b := HierarchyBrowser new initHierarchyForClass: browser class. self assert: b selectedClassName = browser class name.! Item was added: + TestCase subclass: #MessageNamesTest + instanceVariableNames: 'browser' + classVariableNames: '' + poolDictionaries: '' + category: 'ToolsTests-Browser'! Item was added: + ----- Method: MessageNamesTest>>setUp (in category 'as yet unclassified') ----- + setUp + browser := MessageNames openMessageNames.! Item was added: + ----- Method: MessageNamesTest>>tearDown (in category 'as yet unclassified') ----- + tearDown + ToolBuilder default close: browser topView.! Item was added: + ----- Method: MessageNamesTest>>testCannotUnselectCategory (in category 'as yet unclassified') ----- + testCannotUnselectCategory + | selectorList | + browser searchString: 'cull'. + browser selectorListIndex: 1. + selectorList := browser selectorList copy. + + browser selectorListIndex: 0. + self assert: selectorList = browser selectorList.! Item was added: + ----- Method: MessageNamesTest>>testOpenMessageNames (in category 'as yet unclassified') ----- + testOpenMessageNames + | b | + b := MessageNames openMessageNames. + [self assert: (b isKindOf: MessageNames)] + ensure: [ToolBuilder default close: b topView].! Item was added: + ----- Method: MessageNamesTest>>testSearchString (in category 'as yet unclassified') ----- + testSearchString + | cCount cullCount cullCullCount | + browser searchString: 'c'. + cCount := browser selectorList size. + + browser searchString: 'cull:'. + cullCount := browser selectorList size. + + self assert: cullCount < cCount. + + browser searchString: 'cull:cull:'. + cullCullCount := browser selectorList size. + + self assert: cullCullCount < cullCount.! Item was added: + ----- Method: MessageNamesTest>>testSelectedClassOrMetaClass (in category 'as yet unclassified') ----- + testSelectedClassOrMetaClass + | firstClass | + browser searchString: 'cull'. + firstClass := browser messageList first actualClass. + + browser messageListIndex: 1. + self assert: browser selectedClassOrMetaClass = firstClass. + + browser messageListIndex: 0. + self assert: browser selectedClassOrMetaClass isNil. + + "And just to be sure:" + browser messageListIndex: 1. + self assert: browser selectedClassOrMetaClass = firstClass.! Item was added: + ----- Method: MessageNamesTest>>testSelectedMessageCategoryName (in category 'as yet unclassified') ----- + testSelectedMessageCategoryName + browser searchString: 'cull'. + browser selectorListIndex: 1. + browser messageListIndex: 1. + self deny: browser selectedMessageCategoryName isNil. + + browser messageListIndex: 0. + self assert: browser selectedMessageCategoryName isNil.! Item was added: + ----- Method: MessageNamesTest>>testSelection (in category 'as yet unclassified') ----- + testSelection + browser searchString: 'cull'. + browser selectorListIndex: 1. + browser messageListIndex: 1. + self assert: (browser selection isKindOf: MethodReference). + browser messageListIndex: 0. + self assert: browser selection isNil.! Item was added: + TestCase subclass: #MessageSetTest + instanceVariableNames: 'browser' + classVariableNames: '' + poolDictionaries: '' + category: 'ToolsTests-Browser'! Item was added: + ----- Method: MessageSetTest>>setUp (in category 'as yet unclassified') ----- + setUp + browser := (MessageSet + openMessageList: (SystemNavigation default allImplementorsOf: #browseAllImplementorsOf:) + name: 'Test MessageSet' + autoSelect: nil) model.! Item was added: + ----- Method: MessageSetTest>>tearDown (in category 'as yet unclassified') ----- + tearDown + ToolBuilder default close: browser topView.! Item was added: + ----- Method: MessageSetTest>>testContents (in category 'as yet unclassified') ----- + testContents + browser messageListIndex: 0. + self assert: browser contents = ''. + + browser messageListIndex: 1. + self deny: browser contents = ''. + ! Item was added: + ----- Method: MessageSetTest>>testHasMessageSelected (in category 'as yet unclassified') ----- + testHasMessageSelected + browser messageListIndex: 1. + self assert: browser hasMessageSelected. + + browser messageListIndex: 0. + self deny: browser hasMessageSelected. + + "And just to be sure:" + browser messageListIndex: 1. + self assert: browser hasMessageSelected.! Item was added: + ----- Method: MessageSetTest>>testRemoveMessageFromBrowser (in category 'as yet unclassified') ----- + testRemoveMessageFromBrowser + | count sel | + browser messageListIndex: 1. + sel := browser selection. + + browser removeMessageFromBrowser. + self deny: (browser messageList includes: sel) description: 'Method not removed'. + + browser messageListIndex: 0. + count := browser messageList size. + browser removeMessageFromBrowser. + self assert: count = browser messageList size description: 'Some method was removed'.! Item was added: + ----- Method: MessageSetTest>>testSelectedClassOrMetaClass (in category 'as yet unclassified') ----- + testSelectedClassOrMetaClass + | firstClass | + firstClass := browser messageList first actualClass. + + browser messageListIndex: 1. + self assert: browser selectedClassOrMetaClass = firstClass. + + browser messageListIndex: 0. + self assert: browser selectedClassOrMetaClass isNil. + + "And just to be sure:" + browser messageListIndex: 1. + self assert: browser selectedClassOrMetaClass = firstClass.! Item was added: + ----- Method: MessageSetTest>>testSelectedMessageCategoryName (in category 'as yet unclassified') ----- + testSelectedMessageCategoryName + | firstCat methodRef | + methodRef := browser messageList first. + firstCat := methodRef actualClass organization categoryOfElement: methodRef selector. + + browser messageListIndex: 1. + self assert: browser selectedMessageCategoryName = firstCat. + + browser messageListIndex: 0. + self assert: browser selectedMessageCategoryName isNil. + + "And just to be sure:" + browser messageListIndex: 1. + self assert: browser selectedMessageCategoryName = firstCat.! Item was added: + ----- Method: MessageSetTest>>testSelectedMessageName (in category 'as yet unclassified') ----- + testSelectedMessageName + | firstSel | + firstSel := browser messageList first selector. + + browser messageListIndex: 1. + self assert: browser selectedMessageName = firstSel. + + browser messageListIndex: 0. + self assert: browser selectedMessageName isNil. + + "And just to be sure:" + browser messageListIndex: 1. + self assert: browser selectedMessageName = firstSel.! Item was added: + ----- Method: MessageSetTest>>testSelection (in category 'as yet unclassified') ----- + testSelection + | firstRef | + firstRef := browser messageList first. + + browser messageListIndex: 1. + self assert: browser selection = firstRef. + + browser messageListIndex: 0. + self assert: browser selection isNil. + + "And just to be sure:" + browser messageListIndex: 1. + self assert: browser selection = firstRef.! Item was added: + MessageSetTest subclass: #MessageTraceTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'ToolsTests-Browser'! Item was added: + ----- Method: MessageTraceTest>>setUp (in category 'as yet unclassified') ----- + setUp + browser := (MessageTrace + openMessageList: (SystemNavigation default allImplementorsOf: #browseAllImplementorsOf:) + name: 'Test MessageSet' + autoSelect: nil) model.! Item was changed: ----- Method: PackagePaneBrowserTest>>testClassList (in category 'as yet unclassified') ----- testClassList browser selectSystemCategory: browser class category. self assert: browser classList = (SystemOrganization listAtCategoryNamed: browser class category). + browser selectSystemCategory: nil. - browser selectedSystemCategory: nil. self assert: browser classList isEmpty.! Item was added: + ----- Method: PackagePaneBrowserTest>>testPackageListIndex (in category 'as yet unclassified') ----- + testPackageListIndex + browser packageListIndex: 0. + self assert: browser selectedClass isNil. + + browser selectCategoryForClass: browser class. + + "Clicking the selected package unselects the selected class." + browser packageListIndex: browser packageListIndex. + self assert: browser selectedClass isNil.!
More information about the Squeak-dev mailing list |