[squeak-dev] The Trunk: ToolBuilder-Tests-cmm.1.mcz

Frank Shearar frank.shearar at gmail.com
Sun Dec 15 22:45:16 UTC 2013


What are you talking about? I issued a new package, with a new name.
"ToolBuilder-Kernel" is not "Toolbuilder-Kernel". Seriously, I don't
appreciate this tone, Chris.

Yes, I screwed up. But I don't need you jumping up and down.

If you knew that a case sensitive difference in the package name was
inadequate, maybe you should have warned me. That would have been
useful. MC versions have UUIDs. If they do not use these versions to
determine their ancestry, the model is _broken_.

frank

On 15 December 2013 22:33, Chris Muller <asqueaker at gmail.com> wrote:
> 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."!
>>
>>
>
>
>
>


More information about the Squeak-dev mailing list