[squeak-dev] The Trunk: ToolBuilder-Tests-cmm.1.mcz
Chris Muller
asqueaker at gmail.com
Sun Dec 15 22:33:50 UTC 2013
Now I'm starting to cuss! I don't know why you didn't just start over
again but I cannot tolerate a corrupt MC model from the get-go for this new
package.
MC cannot support two versions with the same exact name, _especially_ in
the same ancestry!
I didn't want to hassle you yet again so I went ahead and re-did it -- made
ToolBuilder-Tests-cmm.1 and updated update-fbs.272 to point to that one.
Deleted your fbs.1 from the repository.
- Chris
On Sun, Dec 15, 2013 at 4:25 PM, <commits at source.squeak.org> wrote:
> Chris Muller uploaded a new version of ToolBuilder-Tests to project The
> Trunk:
> http://source.squeak.org/trunk/ToolBuilder-Tests-cmm.1.mcz
>
> ==================== Summary ====================
>
> Name: ToolBuilder-Tests-cmm.1
> Author: cmm
> Time: 15 December 2013, 4:25:47.507 pm
> UUID: e77685b9-ca09-40c0-b84e-6caee75f4075
> Ancestors:
>
> ToolBuilder-Tests contains the specification that a compliant ToolBuilder
> must fulfill, together with the unit tests for ToolBuilder-Kernel.
>
> ==================== Snapshot ====================
>
> SystemOrganization addCategory: #'ToolBuilder-Tests'!
>
> TestCase subclass: #PluggableMenuItemSpecTests
> instanceVariableNames: ''
> classVariableNames: ''
> poolDictionaries: ''
> category: 'ToolBuilder-Tests'!
>
> ----- Method:
> PluggableMenuItemSpecTests>>testBeCheckableMakesItemCheckable (in category
> 'as yet unclassified') -----
> testBeCheckableMakesItemCheckable
> | itemSpec |
> itemSpec := PluggableMenuItemSpec new.
> itemSpec beCheckable.
> self assert: itemSpec isCheckable description: 'Item not
> checkable'.!
>
> ----- Method: PluggableMenuItemSpecTests>>testByDefaultNotCheckable (in
> category 'as yet unclassified') -----
> testByDefaultNotCheckable
> | itemSpec |
> itemSpec := PluggableMenuItemSpec new.
> self deny: itemSpec isCheckable.!
>
> ----- Method: PluggableMenuItemSpecTests>>testNoMarkerMakesItemChecked (in
> category 'as yet unclassified') -----
> testNoMarkerMakesItemChecked
> | itemSpec |
> itemSpec := PluggableMenuItemSpec new.
> itemSpec label: '<no>no'.
> itemSpec analyzeLabel.
> self assert: itemSpec isCheckable description: 'item not
> checkable'.
> self deny: itemSpec checked description: 'item checked'.!
>
> ----- Method: PluggableMenuItemSpecTests>>testOffMarkerMakesItemChecked
> (in category 'as yet unclassified') -----
> testOffMarkerMakesItemChecked
> | itemSpec |
> itemSpec := PluggableMenuItemSpec new.
> itemSpec label: '<off>off'.
> itemSpec analyzeLabel.
> self assert: itemSpec isCheckable description: 'item not
> checkable'.
> self deny: itemSpec checked description: 'item checked'.!
>
> ----- Method: PluggableMenuItemSpecTests>>testOnMarkerMakesItemChecked (in
> category 'as yet unclassified') -----
> testOnMarkerMakesItemChecked
> | itemSpec |
> itemSpec := PluggableMenuItemSpec new.
> itemSpec label: '<on>on'.
> itemSpec analyzeLabel.
> self assert: itemSpec isCheckable description: 'item not
> checkable'.
> self assert: itemSpec isCheckable description: 'item not checked'.!
>
> ----- Method: PluggableMenuItemSpecTests>>testYesMarkerMakesItemChecked
> (in category 'as yet unclassified') -----
> testYesMarkerMakesItemChecked
> | itemSpec |
> itemSpec := PluggableMenuItemSpec new.
> itemSpec label: '<yes>on'.
> itemSpec analyzeLabel.
> self assert: itemSpec isCheckable description: 'item not
> checkable'.
> self assert: itemSpec isCheckable description: 'item not checked'.!
>
> TestCase subclass: #ToolBuilderTests
> instanceVariableNames: 'builder widget queries'
> classVariableNames: ''
> poolDictionaries: ''
> category: 'ToolBuilder-Tests'!
>
> !ToolBuilderTests commentStamp: 'ar 2/11/2005 15:01' prior: 0!
> Some tests to make sure ToolBuilder does what it says.!
>
> ----- Method: ToolBuilderTests class>>isAbstract (in category 'testing')
> -----
> isAbstract
> ^self == ToolBuilderTests!
>
> ----- Method: ToolBuilderTests>>acceptWidgetText (in category 'support')
> -----
> acceptWidgetText
> "accept text in widget"
> ^ self subclassResponsibility!
>
> ----- Method: ToolBuilderTests>>assertItemFiresWith: (in category
> 'tests-menus') -----
> assertItemFiresWith: aBlock
> | spec |
> spec := builder pluggableMenuSpec new.
> spec model: self.
> aBlock value: spec.
> widget := builder build: spec.
> queries := IdentitySet new.
> self fireMenuItemWidget.
> self assert: (queries includes: #fireMenuAction)!
>
> ----- Method: ToolBuilderTests>>buttonWidgetEnabled (in category
> 'support') -----
> buttonWidgetEnabled
> "Answer whether the current widget (a button) is currently enabled"
>
> ^ widget getModelState!
>
> ----- Method: ToolBuilderTests>>changeListWidget (in category 'support')
> -----
> changeListWidget
> "Change the list widget's selection index"
> self subclassResponsibility!
>
> ----- Method: ToolBuilderTests>>expectedButtonSideEffects (in category
> 'support') -----
> expectedButtonSideEffects
> "side effect queries we expect to see on buttons"
> ^#()!
>
> ----- Method: ToolBuilderTests>>fireButton (in category 'tests-button')
> -----
> fireButton
> queries add: #fireButton.!
>
> ----- Method: ToolBuilderTests>>fireButtonWidget (in category 'support')
> -----
> fireButtonWidget
> "Fire the widget, e.g., perform what is needed for the guy to
> trigger its action"
> self subclassResponsibility!
>
> ----- Method: ToolBuilderTests>>fireMenuAction (in category 'tests-menus')
> -----
> fireMenuAction
> queries add: #fireMenuAction!
>
> ----- Method: ToolBuilderTests>>fireMenuItemWidget (in category
> 'tests-menus') -----
> fireMenuItemWidget
> self subclassResponsibility!
>
> ----- Method: ToolBuilderTests>>getChildren (in category 'tests-panel')
> -----
> getChildren
> queries add: #getChildren.
> ^#()!
>
> ----- Method: ToolBuilderTests>>getChildrenOf: (in category 'tests-trees')
> -----
> getChildrenOf: item
> queries add: #getChildrenOf.
> ^(1 to: 9) asArray!
>
> ----- Method: ToolBuilderTests>>getColor (in category 'tests-text') -----
> getColor
> queries add: #getColor.
> ^Color tan!
>
> ----- Method: ToolBuilderTests>>getEnabled (in category 'tests-button')
> -----
> getEnabled
> queries add: #getEnabled.
> ^true!
>
> ----- Method: ToolBuilderTests>>getHelpOf: (in category 'tests-trees')
> -----
> getHelpOf: item
> ^'help'!
>
> ----- Method: ToolBuilderTests>>getIconOf: (in category 'tests-trees')
> -----
> getIconOf: item
> queries add: #getIconOf.
> ^nil!
>
> ----- Method: ToolBuilderTests>>getLabel (in category 'tests-button') -----
> getLabel
> queries add: #getLabel.
> ^'TestLabel'!
>
> ----- Method: ToolBuilderTests>>getLabelOf: (in category 'tests-trees')
> -----
> getLabelOf: item
> queries add: #getLabelOf.
> ^item asString!
>
> ----- Method: ToolBuilderTests>>getList (in category 'tests-lists') -----
> getList
> queries add: #getList.
> ^(1 to: 100) collect:[:i| i printString].!
>
> ----- Method: ToolBuilderTests>>getListIndex (in category 'tests-lists')
> -----
> getListIndex
> queries add: #getListIndex.
> ^13!
>
> ----- Method: ToolBuilderTests>>getListSelection (in category
> 'tests-lists') -----
> getListSelection
> queries add: #getListSelection.
> ^'55'!
>
> ----- Method: ToolBuilderTests>>getMenu: (in category 'tests-lists') -----
> getMenu: aMenu
> queries add: #getMenu.
> ^aMenu!
>
> ----- Method: ToolBuilderTests>>getRoots (in category 'tests-trees') -----
> getRoots
> queries add: #getRoots.
> ^(1 to: 9) asArray!
>
> ----- Method: ToolBuilderTests>>getState (in category 'tests-button') -----
> getState
> queries add: #getState.
> ^true!
>
> ----- Method: ToolBuilderTests>>getText (in category 'tests-text') -----
> getText
> queries add: #getText.
> ^Text new!
>
> ----- Method: ToolBuilderTests>>getTextSelection (in category
> 'tests-text') -----
> getTextSelection
> queries add: #getTextSelection.
> ^(1 to: 0)!
>
> ----- Method: ToolBuilderTests>>getTreeSelectionPath (in category
> 'tests-trees') -----
> getTreeSelectionPath
> queries add: #getTreeSelectionPath.
> ^{2. 4. 3}!
>
> ----- Method: ToolBuilderTests>>hasChildren: (in category 'tests-trees')
> -----
> hasChildren: item
> queries add: #hasChildren.
> ^true!
>
> ----- Method: ToolBuilderTests>>keyPress: (in category 'tests-lists') -----
> keyPress: key
> queries add: #keyPress.!
>
> ----- Method: ToolBuilderTests>>makeButton (in category 'tests-button')
> -----
> makeButton
> | spec |
> spec := self makeButtonSpec.
> widget := builder build: spec.
> ^widget!
>
> ----- Method: ToolBuilderTests>>makeButtonSpec (in category
> 'tests-button') -----
> makeButtonSpec
> | spec |
> spec := builder pluggableButtonSpec new.
> spec name: #button.
> spec model: self.
> spec label: #getLabel.
> spec color: #getColor.
> spec state: #getState.
> spec enabled: #getEnabled.
> ^spec!
>
> ----- Method: ToolBuilderTests>>makeInputField (in category 'tests-input')
> -----
> makeInputField
> | spec |
> spec := self makeInputFieldSpec.
> widget := builder build: spec.!
>
> ----- Method: ToolBuilderTests>>makeInputFieldSpec (in category
> 'tests-input') -----
> makeInputFieldSpec
> | spec |
> spec := builder pluggableInputFieldSpec new.
> spec name: #input.
> spec model: self.
> spec getText: #getText.
> spec selection: #getTextSelection.
> spec color: #getColor.
> "<-- the following cannot be tested very well -->"
> spec setText: #setText:.
> spec menu: #getMenu:.
> ^spec!
>
> ----- Method: ToolBuilderTests>>makeItemList (in category 'tests-lists')
> -----
> makeItemList
> | spec |
> spec := self makeItemListSpec.
> widget := builder build: spec.!
>
> ----- Method: ToolBuilderTests>>makeItemListSpec (in category
> 'tests-lists') -----
> makeItemListSpec
> | spec |
> spec := builder pluggableListSpec new.
> spec name: #list.
> spec model: self.
> spec list: #getList.
> spec getSelected: #getListSelection.
> "<-- the following cannot be tested very well -->"
> spec setSelected: #setListSelection:.
> spec menu: #getMenu:.
> spec keyPress: #keyPress:.
> ^spec!
>
> ----- Method: ToolBuilderTests>>makeList (in category 'tests-lists') -----
> makeList
> | spec |
> spec := self makeListSpec.
> widget := builder build: spec.!
>
> ----- Method: ToolBuilderTests>>makeListSpec (in category 'tests-lists')
> -----
> makeListSpec
> | spec |
> spec := builder pluggableListSpec new.
> spec name: #list.
> spec model: self.
> spec list: #getList.
> spec getIndex: #getListIndex.
> "<-- the following cannot be tested very well -->"
> spec setIndex: #setListIndex:.
> spec menu: #getMenu:.
> spec keyPress: #keyPress:.
> ^spec!
>
> ----- Method: ToolBuilderTests>>makePanel (in category 'tests-panel') -----
> makePanel
> | spec |
> spec := self makePanelSpec.
> widget := builder build: spec.!
>
> ----- Method: ToolBuilderTests>>makePanelSpec (in category 'tests-panel')
> -----
> makePanelSpec
> | spec |
> spec := builder pluggablePanelSpec new.
> spec name: #panel.
> spec model: self.
> spec children: #getChildren.
> ^spec!
>
> ----- Method: ToolBuilderTests>>makeText (in category 'tests-text') -----
> makeText
> | spec |
> spec := self makeTextSpec.
> widget := builder build: spec.!
>
> ----- Method: ToolBuilderTests>>makeTextSpec (in category 'tests-text')
> -----
> makeTextSpec
> | spec |
> spec := builder pluggableTextSpec new.
> spec name: #text.
> spec model: self.
> spec getText: #getText.
> spec selection: #getTextSelection.
> spec color: #getColor.
> "<-- the following cannot be tested very well -->"
> spec setText: #setText:.
> spec menu: #getMenu:.
> ^spec!
>
> ----- Method: ToolBuilderTests>>makeTree (in category 'tests-trees') -----
> makeTree
> | spec |
> spec := self makeTreeSpec.
> widget := builder build: spec.!
>
> ----- Method: ToolBuilderTests>>makeTreeSpec (in category 'tests-trees')
> -----
> makeTreeSpec
> | spec |
> spec := builder pluggableTreeSpec new.
> spec name: #tree.
> spec model: self.
> spec roots: #getRoots.
> "<-- the following cannot be tested very well -->"
> spec getSelectedPath: #getTreeSelectionPath.
> spec getChildren: #getChildrenOf:.
> spec hasChildren: #hasChildren:.
> spec label: #getLabelOf:.
> spec icon: #getIconOf:.
> spec help: #getHelpOf:.
> spec setSelected: #setTreeSelection:.
> spec menu: #getMenu:.
> spec keyPress: #keyPress:.
> ^spec!
>
> ----- Method: ToolBuilderTests>>makeWindow (in category 'tests-window')
> -----
> makeWindow
> | spec |
> spec := self makeWindowSpec.
> widget := builder build: spec.!
>
> ----- Method: ToolBuilderTests>>makeWindowSpec (in category
> 'tests-window') -----
> makeWindowSpec
> | spec |
> spec := builder pluggableWindowSpec new.
> spec name: #window.
> spec model: self.
> spec children: #getChildren.
> spec label: #getLabel.
> spec closeAction: #noteWindowClosed.
> ^spec!
>
> ----- Method: ToolBuilderTests>>noteWindowClosed (in category
> 'tests-window') -----
> noteWindowClosed
> queries add: #noteWindowClosed.!
>
> ----- Method: ToolBuilderTests>>openWindow (in category 'tests-window')
> -----
> openWindow
> | spec |
> spec := self makeWindowSpec.
> widget := builder open: spec.!
>
> ----- Method: ToolBuilderTests>>returnFalse (in category 'support') -----
> returnFalse
> ^false!
>
> ----- Method: ToolBuilderTests>>returnTrue (in category 'support') -----
> returnTrue
> ^true!
>
> ----- Method: ToolBuilderTests>>setListIndex: (in category 'tests-lists')
> -----
> setListIndex: index
> queries add: #setListIndex.!
>
> ----- Method: ToolBuilderTests>>setListSelection: (in category
> 'tests-lists') -----
> setListSelection: newIndex
> queries add: #setListSelection.!
>
> ----- Method: ToolBuilderTests>>setText: (in category 'tests-text') -----
> setText: newText
> queries add: #setText.
> ^false!
>
> ----- Method: ToolBuilderTests>>setTreeSelection: (in category
> 'tests-trees') -----
> setTreeSelection: node
> queries add: #setTreeSelection.!
>
> ----- Method: ToolBuilderTests>>setUp (in category 'support') -----
> setUp
> queries := IdentitySet new.!
>
> ----- Method: ToolBuilderTests>>shutDown (in category 'support') -----
> shutDown
> self myDependents: nil!
>
> ----- Method: ToolBuilderTests>>testAddTargetSelectorArgumentList (in
> category 'tests-menus') -----
> testAddTargetSelectorArgumentList
> self assertItemFiresWith:
> [:spec | spec
> add: 'Menu Item'
> target: self
> selector: #fireMenuAction
> argumentList: #()]!
>
> ----- Method: ToolBuilderTests>>testButtonFiresBlock (in category
> 'tests-button') -----
> testButtonFiresBlock
> | spec |
> spec := builder pluggableButtonSpec new.
> spec model: self.
> spec action: [self fireButton].
> widget := builder build: spec.
> queries := IdentitySet new.
> self fireButtonWidget.
> self assert: (queries includes: #fireButton).!
>
> ----- Method: ToolBuilderTests>>testButtonFiresMessage (in category
> 'tests-button') -----
> testButtonFiresMessage
> | spec |
> spec := builder pluggableButtonSpec new.
> spec model: self.
> spec action: (MessageSend receiver: self selector: #fireButton
> arguments: #()).
> widget := builder build: spec.
> queries := IdentitySet new.
> self fireButtonWidget.
> self assert: (queries includes: #fireButton).!
>
> ----- Method: ToolBuilderTests>>testButtonFiresSymbol (in category
> 'tests-button') -----
> testButtonFiresSymbol
> | spec |
> spec := builder pluggableButtonSpec new.
> spec model: self.
> spec action: #fireButton.
> widget := builder build: spec.
> queries := IdentitySet new.
> self fireButtonWidget.
> self assert: (queries includes: #fireButton).!
>
> ----- Method: ToolBuilderTests>>testButtonInitiallyDisabled (in category
> 'tests-button') -----
> testButtonInitiallyDisabled
> | spec |
> spec := builder pluggableButtonSpec new.
> spec model: self.
> spec label: #getLabel.
> spec color: #getColor.
> spec state: #getState.
> spec enabled: #returnFalse.
> widget := builder build: spec.
> self deny: (self buttonWidgetEnabled)!
>
> ----- Method: ToolBuilderTests>>testButtonInitiallyDisabledSelector (in
> category 'tests-button') -----
> testButtonInitiallyDisabledSelector
> | spec |
> spec := builder pluggableButtonSpec new.
> spec model: self.
> spec label: #getLabel.
> spec color: #getColor.
> spec state: #getState.
> spec enabled: #returnFalse.
> widget := builder build: spec.
> self deny: (self buttonWidgetEnabled)!
>
> ----- Method: ToolBuilderTests>>testButtonInitiallyEnabled (in category
> 'tests-button') -----
> testButtonInitiallyEnabled
> | spec |
> spec := builder pluggableButtonSpec new.
> spec model: self.
> spec label: #getLabel.
> spec color: #getColor.
> spec state: #getState.
> spec enabled: #returnTrue.
> widget := builder build: spec.
> self assert: (self buttonWidgetEnabled)!
>
> ----- Method: ToolBuilderTests>>testButtonInitiallyEnabledSelector (in
> category 'tests-button') -----
> testButtonInitiallyEnabledSelector
> | spec |
> spec := builder pluggableButtonSpec new.
> spec model: self.
> spec label: #getLabel.
> spec color: #getColor.
> spec state: #getState.
> spec enabled: #returnTrue.
> widget := builder build: spec.
> self assert: (self buttonWidgetEnabled)!
>
> ----- Method: ToolBuilderTests>>testButtonWidgetID (in category
> 'tests-button') -----
> testButtonWidgetID
> self makeButton.
> self assert: (builder widgetAt: #button) == widget.!
>
> ----- Method: ToolBuilderTests>>testGetButtonColor (in category
> 'tests-button') -----
> testGetButtonColor
> self makeButton.
> queries := IdentitySet new.
> self changed: #getColor.
> self assert: (queries includes: #getColor).
> self assert: self widgetColor = self getColor.!
>
> ----- Method: ToolBuilderTests>>testGetButtonEnabled (in category
> 'tests-button') -----
> testGetButtonEnabled
> self makeButton.
> queries := IdentitySet new.
> self changed: #getEnabled.
> self assert: (queries includes: #getEnabled).!
>
> ----- Method: ToolBuilderTests>>testGetButtonLabel (in category
> 'tests-button') -----
> testGetButtonLabel
> self makeButton.
> queries := IdentitySet new.
> self changed: #getLabel.
> self assert: (queries includes: #getLabel).!
>
> ----- Method: ToolBuilderTests>>testGetButtonSideEffects (in category
> 'tests-button') -----
> testGetButtonSideEffects
> self makeButton.
> queries := IdentitySet new.
> self changed: #testSignalWithNoDiscernableEffect.
> self expectedButtonSideEffects do:[:sym|
> self assert: (queries includes: sym).
> queries remove: sym.
> ].
> self assert: queries isEmpty.!
>
> ----- Method: ToolBuilderTests>>testGetButtonState (in category
> 'tests-button') -----
> testGetButtonState
> self makeButton.
> queries := IdentitySet new.
> self changed: #getState.
> self assert: (queries includes: #getState).!
>
> ----- Method: ToolBuilderTests>>testGetInputFieldColor (in category
> 'tests-input') -----
> testGetInputFieldColor
> self makeInputField.
> queries := IdentitySet new.
> self changed: #getColor.
> self assert: (queries includes: #getColor).
> self assert: self widgetColor = self getColor.!
>
> ----- Method: ToolBuilderTests>>testGetInputFieldSelection (in category
> 'tests-input') -----
> testGetInputFieldSelection
> self makeInputField.
> queries := IdentitySet new.
> self changed: #getTextSelection.
> self assert: (queries includes: #getTextSelection).!
>
> ----- Method: ToolBuilderTests>>testGetInputFieldSideEffectFree (in
> category 'tests-input') -----
> testGetInputFieldSideEffectFree
> self makeInputField.
> queries := IdentitySet new.
> self changed: #testSignalWithNoDiscernableEffect.
> self assert: queries isEmpty.!
>
> ----- Method: ToolBuilderTests>>testGetInputFieldText (in category
> 'tests-input') -----
> testGetInputFieldText
> self makeInputField.
> queries := IdentitySet new.
> self changed: #getText.
> self assert: (queries includes: #getText).!
>
> ----- Method: ToolBuilderTests>>testGetItemListSideEffectFree (in category
> 'tests-lists') -----
> testGetItemListSideEffectFree
> self makeItemList.
> queries := IdentitySet new.
> self changed: #testSignalWithNoDiscernableEffect.
> self assert: queries isEmpty.!
>
> ----- Method: ToolBuilderTests>>testGetList (in category 'tests-lists')
> -----
> testGetList
> self makeList.
> queries := IdentitySet new.
> self changed: #getList.
> self assert: (queries includes: #getList).!
>
> ----- Method: ToolBuilderTests>>testGetListIndex (in category
> 'tests-lists') -----
> testGetListIndex
> self makeList.
> queries := IdentitySet new.
> self changed: #getListIndex.
> self assert: (queries includes: #getListIndex).!
>
> ----- Method: ToolBuilderTests>>testGetListSelection (in category
> 'tests-lists') -----
> testGetListSelection
> self makeItemList.
> queries := IdentitySet new.
> self changed: #getListSelection.
> self assert: (queries includes: #getListSelection).!
>
> ----- Method: ToolBuilderTests>>testGetListSideEffectFree (in category
> 'tests-lists') -----
> testGetListSideEffectFree
> self makeList.
> queries := IdentitySet new.
> self changed: #testSignalWithNoDiscernableEffect.
> self assert: queries isEmpty.!
>
> ----- Method: ToolBuilderTests>>testGetPanelChildren (in category
> 'tests-panel') -----
> testGetPanelChildren
> self makePanel.
> queries := IdentitySet new.
> self changed: #getChildren.
> self assert: (queries includes: #getChildren).!
>
> ----- Method: ToolBuilderTests>>testGetPanelSideEffectFree (in category
> 'tests-panel') -----
> testGetPanelSideEffectFree
> self makePanel.
> queries := IdentitySet new.
> self changed: #testSignalWithNoDiscernableEffect.
> self assert: queries isEmpty.!
>
> ----- Method: ToolBuilderTests>>testGetText (in category 'tests-text')
> -----
> testGetText
> self makeText.
> queries := IdentitySet new.
> self changed: #getText.
> self assert: (queries includes: #getText).!
>
> ----- Method: ToolBuilderTests>>testGetTextColor (in category
> 'tests-text') -----
> testGetTextColor
> self makeText.
> queries := IdentitySet new.
> self changed: #getColor.
> self assert: (queries includes: #getColor).
> self assert: self widgetColor = self getColor.!
>
> ----- Method: ToolBuilderTests>>testGetTextSelection (in category
> 'tests-text') -----
> testGetTextSelection
> self makeText.
> queries := IdentitySet new.
> self changed: #getTextSelection.
> self assert: (queries includes: #getTextSelection).!
>
> ----- Method: ToolBuilderTests>>testGetTextSideEffectFree (in category
> 'tests-text') -----
> testGetTextSideEffectFree
> self makeText.
> queries := IdentitySet new.
> self changed: #testSignalWithNoDiscernableEffect.
> self assert: queries isEmpty.!
>
> ----- Method: ToolBuilderTests>>testGetWindowChildren (in category
> 'tests-window') -----
> testGetWindowChildren
> self makeWindow.
> queries := IdentitySet new.
> self changed: #getChildren.
> self assert: (queries includes: #getChildren).!
>
> ----- Method: ToolBuilderTests>>testGetWindowLabel (in category
> 'tests-window') -----
> testGetWindowLabel
> self makeWindow.
> queries := IdentitySet new.
> self changed: #getLabel.
> self assert: (queries includes: #getLabel).!
>
> ----- Method: ToolBuilderTests>>testGetWindowSideEffectFree (in category
> 'tests-window') -----
> testGetWindowSideEffectFree
> self makeWindow.
> queries := IdentitySet new.
> self changed: #testSignalWithNoDiscernableEffect.
> self assert: queries isEmpty.!
>
> ----- Method: ToolBuilderTests>>testInputWidgetID (in category
> 'tests-input') -----
> testInputWidgetID
> self makeInputField.
> self assert: (builder widgetAt: #input) == widget.!
>
> ----- Method: ToolBuilderTests>>testItemListWidgetID (in category
> 'tests-lists') -----
> testItemListWidgetID
> self makeItemList.
> self assert: (builder widgetAt: #list) == widget.!
>
> ----- Method: ToolBuilderTests>>testListWidgetID (in category
> 'tests-lists') -----
> testListWidgetID
> self makeList.
> self assert: (builder widgetAt: #list) == widget.!
>
> ----- Method: ToolBuilderTests>>testPanelWidgetID (in category
> 'tests-panel') -----
> testPanelWidgetID
> self makePanel.
> self assert: (builder widgetAt: #panel) == widget.!
>
> ----- Method: ToolBuilderTests>>testSetInputField (in category
> 'tests-input') -----
> testSetInputField
> self makeInputField.
> queries := IdentitySet new.
> self acceptWidgetText.
> self assert: (queries includes: #setText).!
>
> ----- Method: ToolBuilderTests>>testSetListIndex (in category
> 'tests-lists') -----
> testSetListIndex
> self makeList.
> queries := IdentitySet new.
> self changeListWidget.
> self assert: (queries includes: #setListIndex).!
>
> ----- Method: ToolBuilderTests>>testSetListSelection (in category
> 'tests-lists') -----
> testSetListSelection
> self makeItemList.
> queries := IdentitySet new.
> self changeListWidget.
> self assert: (queries includes: #setListSelection).!
>
> ----- Method: ToolBuilderTests>>testSetText (in category 'tests-text')
> -----
> testSetText
> self makeText.
> queries := IdentitySet new.
> self acceptWidgetText.
> self assert: (queries includes: #setText).!
>
> ----- Method: ToolBuilderTests>>testTextWidgetID (in category
> 'tests-text') -----
> testTextWidgetID
> self makeText.
> self assert: (builder widgetAt: #text) == widget!
>
> ----- Method: ToolBuilderTests>>testTreeExpandPath (in category
> 'tests-trees') -----
> testTreeExpandPath
> "@@@@: REMOVE THIS - it's a hack (changed: #openPath)"
> self makeTree.
> queries := IdentitySet new.
> self changed: {#openPath. '4'. '2'. '3'}.
> self waitTick.
> self assert: (queries includes: #getChildrenOf).
> self assert: (queries includes: #setTreeSelection).
> self assert: (queries includes: #getLabelOf).
> !
>
> ----- Method: ToolBuilderTests>>testTreeExpandPathFirst (in category
> 'tests-trees') -----
> testTreeExpandPathFirst
> "@@@@: REMOVE THIS - it's a hack (changed: #openPath)"
> self makeTree.
> queries := IdentitySet new.
> self changed: {#openPath. '1'. '2'. '2'}.
> self waitTick.
> self assert: (queries includes: #getChildrenOf).
> self assert: (queries includes: #setTreeSelection).
> self assert: (queries includes: #getLabelOf).
> !
>
> ----- Method: ToolBuilderTests>>testTreeGetSelectionPath (in category
> 'tests-trees') -----
> testTreeGetSelectionPath
> self makeTree.
> queries := IdentitySet new.
> self changed: #getTreeSelectionPath.
> self waitTick.
> self assert: (queries includes: #getTreeSelectionPath).
> self assert: (queries includes: #getChildrenOf).
> self assert: (queries includes: #setTreeSelection).
> !
>
> ----- Method: ToolBuilderTests>>testTreeRoots (in category 'tests-trees')
> -----
> testTreeRoots
> self makeTree.
> queries := IdentitySet new.
> self changed: #getRoots.
> self assert: (queries includes: #getRoots).!
>
> ----- Method: ToolBuilderTests>>testTreeWidgetID (in category
> 'tests-trees') -----
> testTreeWidgetID
> self makeTree.
> self assert: (builder widgetAt: #tree) == widget.!
>
> ----- Method: ToolBuilderTests>>testWindowCloseAction (in category
> 'tests-window') -----
> testWindowCloseAction
> self openWindow.
> builder close: widget.
> self assert: (queries includes: #noteWindowClosed).!
>
> ----- Method: ToolBuilderTests>>testWindowID (in category 'tests-window')
> -----
> testWindowID
> self makeWindow.
> self assert: (builder widgetAt: #window) == widget.!
>
> ----- Method: ToolBuilderTests>>waitTick (in category 'support') -----
> waitTick
> ^nil!
>
> ----- Method: ToolBuilderTests>>widgetColor (in category 'support') -----
> widgetColor
> "Answer color from widget"
> self subclassResponsibility
>
> "NOTE: You can bail out if you don't know how to get the color
> from the widget:
> ^self getColor
> will work."!
>
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20131215/34d0eb6d/attachment-0001.htm
More information about the Squeak-dev
mailing list
|