19231568911

Committed 10 Nov 2025 12:26PM UTC coverage: 66.047% (+0.2%) from 65.887%

Build # 19231568911

Build Type

Pull #1513

github

Committed by

web-flow

Commit Message

Merge 3954f27eb into ea6401bd0

Pull Request Pull Request #1513: Co usage settings

Run Details

412 of 438 new or added lines in 19 files covered. (94.06%)

23 existing lines in 4 files now uncovered.

21114 of 31968 relevant lines covered (66.05%)

1.32 hits per line

Source File
Press 'n' to go to next uncovered line, 'b' for previous

94.7

/src/MooseIDE-CoUsageMap-Tests/MiCoUsageMapBrowserTest.class.st

Class {
        #name : 'MiCoUsageMapBrowserTest',
        #superclass : 'MiAbstractBrowserTest',
        #instVars : [
                'mooseModel'
        ],
        #category : 'MooseIDE-CoUsageMap-Tests-Browser',
        #package : 'MooseIDE-CoUsageMap-Tests',
        #tag : 'Browser'
}

{ #category : 'running' }
MiCoUsageMapBrowserTest >> browserClass [

        ^MiCoUsageMapBrowser
]

{ #category : 'running' }
MiCoUsageMapBrowserTest >> populateBrowser: anotherMooseModel [
        "necessary for inherited #testTagMenuListsTags
         unfortunatelly it uses its own MooseModel"

        anotherMooseModel newMethodNamed: 'method'.

        browser followEntity: anotherMooseModel allModelMethods.

]

{ #category : 'running' }
MiCoUsageMapBrowserTest >> receiveEntityToSelect [

        browser receiveEntity: entityToSelect asMooseGroup
]

{ #category : 'running' }
MiCoUsageMapBrowserTest >> setUp [

        super setUp.

        mooseModel := MiCoUsageTestFamixModel new.

        browser followEntity: mooseModel allMethods.

]

{ #category : 'running' }
MiCoUsageMapBrowserTest >> settingsApplyButtonPresenter [

        ^settingsWindow buttons detect: [ :btn | btn label = 'Apply' ]
]

{ #category : 'running' }
MiCoUsageMapBrowserTest >> settingsCloseButtonPresenter [

        ^settingsWindow buttons detect: [ :btn | btn label = 'Cancel' ]
]

{ #category : 'running' }
MiCoUsageMapBrowserTest >> settingsInnerBoxExtractorListPresenter [

        ^settingsWindow presenter
                presenterAt: #lstInnerBoxExtractor
]

{ #category : 'running' }
MiCoUsageMapBrowserTest >> settingsResetButtonPresenter [

        ^nil
]

{ #category : 'tests' }
MiCoUsageMapBrowserTest >> testCanOpenSettings [

        browser hasSettings ifFalse: [ ^ self skip ].

        "This should not raise an error"
        settingsWindow := browser openSettings
]

{ #category : 'tests' }
MiCoUsageMapBrowserTest >> testConsumerProducer [
        self assert: ((browser application consumersOf: FamixTag) 
                anySatisfy: [ :each | each = browser mapVisualization ]).
        
        self assert: ((browser application consumersOf: FamixTagAssociation) 
                anySatisfy: [ :each | each = browser mapVisualization ]).
        
        self assert: ((browser application producersOf: FamixTagAssociation)
                anySatisfy: [ :each | each = browser mapVisualization ])
]

{ #category : 'tests' }
MiCoUsageMapBrowserTest >> testSelectedTagSetAndGet [

        | model entity entity2 tag |
        self skip.

        model := FamixRepTestModel new.
        tag := model tagNamed: 'aTag'.
        entity := FamixRepTestClass new
                          name: 'aClass';
                          mooseModel: model;
                          yourself.
        entity2 := FamixRepTestClass new
                           name: 'anotherClass';
                           mooseModel: model;
                           yourself.

        browser followEntity: {
                        entity.
                        entity2 }.
        browser selectedTag: tag.
        self assert: browser selectedTag equals: tag
]

{ #category : 'tests' }
MiCoUsageMapBrowserTest >> testSettingsAction [
        "must be redefined in browsers that do have settings"

        self assert: browser hasSettings
]

{ #category : 'tests' }
MiCoUsageMapBrowserTest >> testSettingsChangeValue [

        settingsWindow := browser specModel openSettings.

        self settingsInnerBoxExtractorListPresenter selectItem: MiCoInnerEntitiesClientClassesExtractor.
        self settingsApplyButtonPresenter  click.
                
        self assert: browser specModel settings innerBoxExtractor equals: MiCoInnerEntitiesClientClassesExtractor .

]

{ #category : 'tests' }
MiCoUsageMapBrowserTest >> testSettingsClickCancel [

        self skip: 'until settings are made standard'.

        self
                assert: browser specModel settings innerBoxExtractor
                equals: browser specModel settings defaultInnerBoxExtractor.

        settingsWindow := browser specModel openSettings.
        self settingsInnerBoxExtractorListPresenter selectItem: MiCoInnerEntitiesClientClassesExtractor.

        self settingsCloseButtonPresenter click.

        self assert: browser specModel settings innerBoxExtractor equals: MiCoInnerEntitiesAttributeAccessExtractor.

]

{ #category : 'tests' }
MiCoUsageMapBrowserTest >> testSettingsClickOK [
        "Apply button should close the block setting window"

        settingsWindow := browser openSettings.

        self assert: settingsWindow isOpen.

        self settingsApplyButtonPresenter click.

        self assert: settingsWindow isClosed.

]

{ #category : 'tests' }
MiCoUsageMapBrowserTest >> testSettingsClickReset [

        self skip: 'until settings are made standard'.

        browser specModel settings innerBoxExtractor: 'Blah'.

        settingsWindow := browser specModel openSettings.

        self
                assert: self settingsInnerBoxExtractorListPresenter text
                equals: 'Blah'.

        self settingsResetButtonPresenter click.

        self
                deny: self settingsInnerBoxExtractorListPresenter text
                equals: 'Blah'.
        self deny: self settingsInnerBoxExtractorListPresenter text isEmpty.

]

{ #category : 'tests' }
MiCoUsageMapBrowserTest >> testSettingsDefaultValues [

        settingsWindow := browser specModel openSettings.

        self assert: browser specModel settings innerBoxExtractor equals: MiCoInnerEntitiesAttributeAccessExtractor.
]

1	Class {
2	#name : 'MiCoUsageMapBrowserTest',
3	#superclass : 'MiAbstractBrowserTest',
4	#instVars : [
5	'mooseModel'
6	],
7	#category : 'MooseIDE-CoUsageMap-Tests-Browser',
8	#package : 'MooseIDE-CoUsageMap-Tests',
9	#tag : 'Browser'
10	}
11
12	{ #category : 'running' }
13	MiCoUsageMapBrowserTest >> browserClass [	2✔
14		2✔
15	^MiCoUsageMapBrowser	2✔
16	]	2✔
17
18	{ #category : 'running' }
19	MiCoUsageMapBrowserTest >> populateBrowser: anotherMooseModel [	2✔
20	"necessary for inherited #testTagMenuListsTags	2✔
21	unfortunatelly it uses its own MooseModel"	2✔
22		2✔
23	anotherMooseModel newMethodNamed: 'method'.	2✔
24		2✔
25	browser followEntity: anotherMooseModel allModelMethods.	2✔
26		2✔
27	]	2✔
28
29	{ #category : 'running' }
30	MiCoUsageMapBrowserTest >> receiveEntityToSelect [	2✔
31		2✔
32	browser receiveEntity: entityToSelect asMooseGroup	2✔
33	]	2✔
34
35	{ #category : 'running' }
36	MiCoUsageMapBrowserTest >> setUp [	2✔
37		2✔
38	super setUp.	2✔
39		2✔
40	mooseModel := MiCoUsageTestFamixModel new.	2✔
41		2✔
42	browser followEntity: mooseModel allMethods.	2✔
43		2✔
44	]	2✔
45
46	{ #category : 'running' }
47	MiCoUsageMapBrowserTest >> settingsApplyButtonPresenter [	2✔
48		2✔
49	^settingsWindow buttons detect: [ :btn \| btn label = 'Apply' ]	2✔
50	]	2✔
51
52	{ #category : 'running' }
NEW 53	MiCoUsageMapBrowserTest >> settingsCloseButtonPresenter [	×
UNCOV 54		×
NEW 55	^settingsWindow buttons detect: [ :btn \| btn label = 'Cancel' ]	×
UNCOV 56	]	×
57
58	{ #category : 'running' }
59	MiCoUsageMapBrowserTest >> settingsInnerBoxExtractorListPresenter [	2✔
60		2✔
61	^settingsWindow presenter	2✔
62	presenterAt: #lstInnerBoxExtractor	2✔
63	]	2✔
64
65	{ #category : 'running' }
NEW 66	MiCoUsageMapBrowserTest >> settingsResetButtonPresenter [	×
UNCOV 67		×
NEW 68	^nil	×
UNCOV 69	]	×
70
71	{ #category : 'tests' }
72	MiCoUsageMapBrowserTest >> testCanOpenSettings [	2✔
73		2✔
74	browser hasSettings ifFalse: [ ^ self skip ].	2✔
75		2✔
76	"This should not raise an error"	2✔
77	settingsWindow := browser openSettings	2✔
78	]	2✔
79
80	{ #category : 'tests' }
81	MiCoUsageMapBrowserTest >> testConsumerProducer [	2✔
82	self assert: ((browser application consumersOf: FamixTag)	2✔
83	anySatisfy: [ :each \| each = browser mapVisualization ]).	2✔
84		2✔
85	self assert: ((browser application consumersOf: FamixTagAssociation)	2✔
86	anySatisfy: [ :each \| each = browser mapVisualization ]).	2✔
87		2✔
88	self assert: ((browser application producersOf: FamixTagAssociation)	2✔
89	anySatisfy: [ :each \| each = browser mapVisualization ])	2✔
90	]	2✔
91
92	{ #category : 'tests' }
93	MiCoUsageMapBrowserTest >> testSelectedTagSetAndGet [	2✔
94		2✔
95	\| model entity entity2 tag \|	2✔
96	self skip.	2✔
97		2✔
98	model := FamixRepTestModel new.	2✔
99	tag := model tagNamed: 'aTag'.	2✔
100	entity := FamixRepTestClass new	2✔
101	name: 'aClass';	2✔
102	mooseModel: model;	2✔
103	yourself.	2✔
104	entity2 := FamixRepTestClass new	2✔
105	name: 'anotherClass';	2✔
106	mooseModel: model;	2✔
107	yourself.	2✔
108		2✔
109	browser followEntity: {	2✔
110	entity.	2✔
111	entity2 }.	2✔
112	browser selectedTag: tag.	2✔
113	self assert: browser selectedTag equals: tag	2✔
114	]	2✔
115
116	{ #category : 'tests' }
117	MiCoUsageMapBrowserTest >> testSettingsAction [	2✔
118	"must be redefined in browsers that do have settings"	2✔
119		2✔
120	self assert: browser hasSettings	2✔
121	]	2✔
122
123	{ #category : 'tests' }
124	MiCoUsageMapBrowserTest >> testSettingsChangeValue [	2✔
125		2✔
126	settingsWindow := browser specModel openSettings.	2✔
127		2✔
128	self settingsInnerBoxExtractorListPresenter selectItem: MiCoInnerEntitiesClientClassesExtractor.	2✔
129	self settingsApplyButtonPresenter click.	2✔
130		2✔
131	self assert: browser specModel settings innerBoxExtractor equals: MiCoInnerEntitiesClientClassesExtractor .	2✔
132		2✔
133	]	2✔
134
135	{ #category : 'tests' }
136	MiCoUsageMapBrowserTest >> testSettingsClickCancel [	2✔
137		2✔
138	self skip: 'until settings are made standard'.	2✔
139		2✔
140	self	2✔
141	assert: browser specModel settings innerBoxExtractor	2✔
142	equals: browser specModel settings defaultInnerBoxExtractor.	2✔
143		2✔
144	settingsWindow := browser specModel openSettings.	2✔
145	self settingsInnerBoxExtractorListPresenter selectItem: MiCoInnerEntitiesClientClassesExtractor.	2✔
146		2✔
147	self settingsCloseButtonPresenter click.	2✔
148		2✔
149	self assert: browser specModel settings innerBoxExtractor equals: MiCoInnerEntitiesAttributeAccessExtractor.	2✔
150		2✔
151	]	2✔
152
153	{ #category : 'tests' }
154	MiCoUsageMapBrowserTest >> testSettingsClickOK [	2✔
155	"Apply button should close the block setting window"	2✔
156		2✔
157	settingsWindow := browser openSettings.	2✔
158		2✔
159	self assert: settingsWindow isOpen.	2✔
160		2✔
161	self settingsApplyButtonPresenter click.	2✔
162		2✔
163	self assert: settingsWindow isClosed.	2✔
164		2✔
165	]	2✔
166
167	{ #category : 'tests' }
168	MiCoUsageMapBrowserTest >> testSettingsClickReset [	2✔
169		2✔
170	self skip: 'until settings are made standard'.	2✔
171		2✔
172	browser specModel settings innerBoxExtractor: 'Blah'.	2✔
173		2✔
174	settingsWindow := browser specModel openSettings.	2✔
175		2✔
176	self	2✔
177	assert: self settingsInnerBoxExtractorListPresenter text	2✔
178	equals: 'Blah'.	2✔
179		2✔
180	self settingsResetButtonPresenter click.	2✔
181		2✔
182	self	2✔
183	deny: self settingsInnerBoxExtractorListPresenter text	2✔
184	equals: 'Blah'.	2✔
185	self deny: self settingsInnerBoxExtractorListPresenter text isEmpty.	2✔
186		2✔
187	]	2✔
188
189	{ #category : 'tests' }
190	MiCoUsageMapBrowserTest >> testSettingsDefaultValues [	2✔
191		2✔
192	settingsWindow := browser specModel openSettings.	2✔
193		2✔
194	self assert: browser specModel settings innerBoxExtractor equals: MiCoInnerEntitiesAttributeAccessExtractor.	2✔
195	]	2✔

moosetechnology / MooseIDE / 19231568911

Source File Press 'n' to go to next uncovered line, 'b' for previous

Source File
Press 'n' to go to next uncovered line, 'b' for previous