[squeak-dev] modularity goals (was: The Trunk: ToolBuilderTests-fbs.1.mcz)Chris Muller asqueaker at gmail.comMon Dec 9 00:34:47 UTC 2013
There has been a great effort headed up by Frank to organize behaviors into a hierarchy of packages with no cyclic dependencies. This is a great goal and great effort. But the introduction of this new package (with just two classes) prompts a need to understand what _all_ the goals are for this process. Certainly, everyone agrees we want no cyclic dependencies between packages. But this extraction doesn't help that. Nothing will ever depend on ToolBuilderTests, so how does this new leaf of the package-dependency hierarchy, justify its existence in cyberspace? Getting SUnit completely out of the image will mean ALL packages must be split between their "-Kernel" and "-Tests" components. Is that the plan? I'm not necessarily against it -- I'm just having trouble articulating what's wrong with co-location of a package's tests, with the package itself, and it depending on SUnit vs. not. SUnit is not that big and depends on nothing but Core. On Sat, Dec 7, 2013 at 1:49 PM, <commits at source.squeak.org> wrote: > Frank Shearar uploaded a new version of ToolBuilderTests to project The Trunk: > http://source.squeak.org/trunk/ToolBuilderTests-fbs.1.mcz > > ==================== Summary ==================== > > Name: ToolBuilderTests-fbs.1 > Author: fbs > Time: 7 December 2013, 7:47:14.931 pm > UUID: f75a55b6-ea0a-4b43-bf08-dfcf82dc99fb > Ancestors: > > ToolBuilder SUnit tests. > > ==================== Snapshot ==================== > > SystemOrganization addCategory: #ToolBuilderTests! > > TestCase subclass: #PluggableMenuItemSpecTests > instanceVariableNames: '' > classVariableNames: '' > poolDictionaries: '' > category: 'ToolBuilderTests'! > > ----- 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: 'ToolBuilderTests'! > > !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 |