Skip to content

Commit

Permalink
fixed menu tests
Browse files Browse the repository at this point in the history
  • Loading branch information
estebanlm committed Oct 21, 2024
1 parent 150c28d commit a71d27b
Showing 1 changed file with 8 additions and 8 deletions.
16 changes: 8 additions & 8 deletions Iceberg-UI-Tests/IceTipRepositoriesBrowserTest.class.st
Original file line number Diff line number Diff line change
Expand Up @@ -182,21 +182,21 @@ IceTipRepositoriesBrowserTest >> testListHasContextMenuHasPackagesOptionEnabled
| menu |

presenter projectsPanelRepositoryList selectIndex: 1.
menu := presenter projectsPanelRepositoryList contextMenu value.
menu := presenter projectsPanelRepositoryList actions.

self assert: (menu defaultGroup menuItems at: 1) name equals: 'Packages'.
self assert: (menu defaultGroup menuItems at: 1) isEnabled
self assert: (menu allCommands anySatisfy: [ :each | each name = 'Packages' ]).
self assert: (menu allCommands detect: [ :each | each name = 'Packages' ]) canBeExecuted
]

{ #category : 'tests - context menu' }
IceTipRepositoriesBrowserTest >> testListHasContextMenuHasRepairRepositoryOptionDisabled [

| menu |
presenter projectsPanelRepositoryList selectIndex: 1.
menu := presenter projectsPanelRepositoryList contextMenu value.
menu := presenter projectsPanelRepositoryList actions.

self deny: (menu defaultGroup menuItems anySatisfy: [ :each |
each name = IceTipRepairCommand defaultName ])
self assert: (menu allCommands anySatisfy: [ :each | each name = IceTipRepairCommand defaultName ]).
self deny: (menu allCommands detect: [ :each | each name = IceTipRepairCommand defaultName ]) canBeExecuted
]

{ #category : 'tests - context menu' }
Expand All @@ -205,9 +205,9 @@ IceTipRepositoriesBrowserTest >> testListHasContextMenuOnSelection [
| menu |

presenter projectsPanelRepositoryList selectIndex: 1.
menu := presenter projectsPanelRepositoryList contextMenu value.
menu := presenter projectsPanelRepositoryList actions.

self assert: menu defaultGroup menuItems isNotEmpty
self assert: (menu allCommands select: [ :each | each canBeExecuted ]) isNotEmpty
]

{ #category : 'tests - table' }
Expand Down

0 comments on commit a71d27b

Please sign in to comment.