[Pkg] The Trunk: ToolsTests-fbs.39.mcz
commits at source.squeak.org
commits at source.squeak.org
Sun Apr 17 21:48:52 UTC 2011
Levente Uzonyi uploaded a new version of ToolsTests to project The Trunk:
http://source.squeak.org/trunk/ToolsTests-fbs.39.mcz
==================== Summary ====================
Name: ToolsTests-fbs.39
Author: fbs
Time: 17 April 2011, 10:05:02.949 pm
UUID: ceeae3a4-42f9-5840-9651-6bb312c3fc3e
Ancestors: ToolsTests-fbs.38
Message category reorganising.
=============== Diff against ToolsTests-fbs.38 ===============
Item was changed:
+ ----- Method: MessageSetTest>>setUp (in category 'running') -----
- ----- Method: MessageSetTest>>setUp (in category 'as yet unclassified') -----
setUp
browser := (MessageSet
openMessageList: (SystemNavigation default allImplementorsOf: #browseAllImplementorsOf:)
name: 'Test MessageSet'
autoSelect: nil) model.!
Item was changed:
+ ----- Method: MessageSetTest>>tearDown (in category 'running') -----
- ----- Method: MessageSetTest>>tearDown (in category 'as yet unclassified') -----
tearDown
ToolBuilder default close: browser topView.!
Item was changed:
+ ----- Method: MessageSetTest>>testContents (in category 'testing') -----
- ----- 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 changed:
+ ----- Method: MessageSetTest>>testHasMessageSelected (in category 'testing') -----
- ----- 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 changed:
+ ----- Method: MessageSetTest>>testRemoveMessageFromBrowser (in category 'testing') -----
- ----- 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 changed:
+ ----- Method: MessageSetTest>>testSelectedClassOrMetaClass (in category 'testing') -----
- ----- 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 changed:
+ ----- Method: MessageSetTest>>testSelectedMessageCategoryName (in category 'testing') -----
- ----- 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 changed:
+ ----- Method: MessageSetTest>>testSelectedMessageName (in category 'testing') -----
- ----- 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 changed:
+ ----- Method: MessageSetTest>>testSelection (in category 'testing') -----
- ----- 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.!
More information about the Packages
mailing list