[squeak-dev] The Inbox: ToolsTests-fbs.34.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Mar 29 17:17:26 UTC 2011
A new version of ToolsTests was added to project The Inbox:
http://source.squeak.org/inbox/ToolsTests-fbs.34.mcz
==================== Summary ====================
Name: ToolsTests-fbs.34
Author: fbs
Time: 29 March 2011, 4:47:57.148 pm
UUID: 44997699-a02e-f142-91df-8fce64038c0f
Ancestors: ToolsTests-fbs.33
Further MessageSet subclass tests.
=============== Diff against ToolsTests-fbs.33 ===============
Item was added:
+ ----- Method: MessageNamesTest>>testSelectedClassOrMetaClass (in category 'as yet unclassified') -----
+ testSelectedClassOrMetaClass
+ | firstClass |
+ browser searchString: 'cull'.
+ firstClass := browser messageList first actualClass.
+
+ browser selectMessageNamed: browser messageList first selector.
+ self assert: browser selectedClassOrMetaClass = firstClass.
+
+ browser selectMessageNamed: nil.
+ self assert: browser selectedClassOrMetaClass isNil.
+
+ "And just to be sure:"
+ browser selectMessageNamed: browser messageList first selector.
+ self assert: browser selectedClassOrMetaClass = firstClass.!
Item was changed:
----- 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.!
- self assert: browser selection isSymbol.!
Item was changed:
----- 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 selectMessageNamed: nil.
count := browser messageList size.
browser removeMessageFromBrowser.
self assert: count = browser messageList size description: 'Some method was removed'.!
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.!
More information about the Squeak-dev
mailing list
|