Squeak 4.6: ToolBuilder-Tests-cmm.1.mcz

Chris Muller uploaded a new version of ToolBuilder-Tests to project Squeak 4.6:
http://source.squeak.org/squeak46/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."!