[squeak-dev] The Trunk: MorphicTests-nice.24.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Dec 16 16:25:57 UTC 2013
Nicolas Cellier uploaded a new version of MorphicTests to project The Trunk:
http://source.squeak.org/trunk/MorphicTests-nice.24.mcz
==================== Summary ====================
Name: MorphicTests-nice.24
Author: nice
Time: 16 December 2013, 5:25:47.407 pm
UUID: e33a9ad3-2f39-4c19-a3a7-dc87f18177fc
Ancestors: MorphicTests-fbs.23
MorphicToolBuilderTests as other kind of TestCase should go in MorphicTests
=============== Diff against MorphicTests-fbs.23 ===============
Item was added:
+ ToolBuilderTests subclass: #MorphicToolBuilderTests
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'MorphicTests-ToolBuilder'!
+
+ !MorphicToolBuilderTests commentStamp: 'ar 2/11/2005 15:02' prior: 0!
+ Tests for the Morphic tool builder.!
Item was added:
+ ----- Method: MorphicToolBuilderTests>>acceptWidgetText (in category 'support') -----
+ acceptWidgetText
+ widget hasUnacceptedEdits: true.
+ widget accept.!
Item was added:
+ ----- Method: MorphicToolBuilderTests>>buttonWidgetEnabled (in category 'support') -----
+ buttonWidgetEnabled
+ "Answer whether the current widget (a button) is currently enabled"
+ ^widget enabled!
Item was added:
+ ----- Method: MorphicToolBuilderTests>>changeListWidget (in category 'support') -----
+ changeListWidget
+ widget changeModelSelection: widget getCurrentSelectionIndex + 1.!
Item was added:
+ ----- Method: MorphicToolBuilderTests>>expectedButtonSideEffects (in category 'support') -----
+ expectedButtonSideEffects
+ ^#(getColor getState getEnabled)!
Item was added:
+ ----- Method: MorphicToolBuilderTests>>fireButtonWidget (in category 'support') -----
+ fireButtonWidget
+ widget performAction.!
Item was added:
+ ----- Method: MorphicToolBuilderTests>>fireMenuItemWidget (in category 'support') -----
+ fireMenuItemWidget
+ (widget itemWithWording: 'Menu Item')
+ ifNotNil: [:item | item doButtonAction]!
Item was added:
+ ----- Method: MorphicToolBuilderTests>>setUp (in category 'support') -----
+ setUp
+ super setUp.
+ builder := MorphicToolBuilder new.!
Item was added:
+ ----- Method: MorphicToolBuilderTests>>testWindowDynamicLabel (in category 'tests-window') -----
+ testWindowDynamicLabel
+ self makeWindow.
+ self assert: (widget label = 'TestLabel').!
Item was added:
+ ----- Method: MorphicToolBuilderTests>>testWindowStaticLabel (in category 'tests-window') -----
+ testWindowStaticLabel
+ | spec |
+ spec := builder pluggableWindowSpec new.
+ spec model: self.
+ spec children: #().
+ spec label: 'TestLabel'.
+ widget := builder build: spec.
+ self assert: (widget label = 'TestLabel').!
Item was added:
+ ----- Method: MorphicToolBuilderTests>>widgetColor (in category 'support') -----
+ widgetColor
+ "Answer color from widget"
+ ^widget color!
More information about the Squeak-dev
mailing list
|