[squeak-dev] The Trunk: ToolsTests-fbs.40.mcz
commits at source.squeak.org
commits at source.squeak.org
Sun Apr 17 21:49:13 UTC 2011
Levente Uzonyi uploaded a new version of ToolsTests to project The Trunk:
http://source.squeak.org/trunk/ToolsTests-fbs.40.mcz
==================== Summary ====================
Name: ToolsTests-fbs.40
Author: fbs
Time: 17 April 2011, 10:29:53.768 pm
UUID: 9e9fe3b4-b00b-e241-be77-4ce429e1477c
Ancestors: ToolsTests-fbs.39
Lame autoSelectString test. "Lame" because we just check that a particular update's sent by the model.
=============== Diff against ToolsTests-fbs.39 ===============
Item was changed:
TestCase subclass: #MessageSetTest
+ instanceVariableNames: 'browser updates'
- instanceVariableNames: 'browser'
classVariableNames: ''
poolDictionaries: ''
category: 'ToolsTests-Browser'!
Item was added:
+ ----- Method: MessageSetTest>>initialize (in category 'initialize-release') -----
+ initialize
+ super initialize.
+
+ "Contains the triggers sent by the model during its updates."
+ updates := OrderedCollection new.!
Item was changed:
----- Method: MessageSetTest>>setUp (in category 'running') -----
setUp
browser := (MessageSet
openMessageList: (SystemNavigation default allImplementorsOf: #browseAllImplementorsOf:)
name: 'Test MessageSet'
+ autoSelect: nil) model.
+
+ browser addDependent: self.!
- autoSelect: nil) model.!
Item was added:
+ ----- Method: MessageSetTest>>testAutoSelectString (in category 'testing') -----
+ testAutoSelectString
+ browser autoSelectString: 'browseAllImplementorsOf:'.
+ self assert: browser autoSelectString = 'browseAllImplementorsOf:'.
+ browser messageListIndex: 2.
+ self assert: (updates includes: #autoSelect).!
Item was added:
+ ----- Method: MessageSetTest>>update: (in category 'private') -----
+ update: aSelector
+ updates addLast: aSelector.!
Item was changed:
----- Method: MessageTraceTest>>setUp (in category 'as yet unclassified') -----
setUp
browser := (MessageTrace
openMessageList: (SystemNavigation default allImplementorsOf: #browseAllImplementorsOf:)
name: 'Test MessageSet'
+ autoSelect: nil) model.
+
+ browser addDependent: self.!
- autoSelect: nil) model.!
More information about the Squeak-dev
mailing list
|