18218947233

Committed 03 Oct 2025 09:48AM UTC coverage: 66.756% (-0.02%) from 66.772%

Build # 18218947233

Build Type

push

github

Committed by

ClotildeToullec

Commit Message

Merge d2ac1f883

Run Details

240 of 353 new or added lines in 16 files covered. (67.99%)

352 existing lines in 33 files now uncovered.

20573 of 30818 relevant lines covered (66.76%)

1.34 hits per line

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

0.0

/src/MooseIDE-LayerVisualization/MiFilterViolationStrategy.class.st

Class {
        #name : 'MiFilterViolationStrategy',
        #superclass : 'MiLayerDisplayStrategy',
        #category : 'MooseIDE-LayerVisualization-Strategy',
        #package : 'MooseIDE-LayerVisualization',
        #tag : 'Strategy'
}

{ #category : 'filtering' }
MiFilterViolationStrategy >> fetchNotSharedDTOs [

        | shared clientLayers serverLayers incomingCache dict clientProviders serverProviders rootClassBlock |
        shared := visualizationModel sharedLayer.
        clientLayers := visualizationModel clientLayers asSet
                                flatten.
        serverLayers := visualizationModel serverLayers asSet
                                flatten.
        incomingCache := visualizationModel incomingCache.
        dict := Dictionary new.
        dict at: #client put: OrderedCollection new.
        dict at: #server put: OrderedCollection new.
        dict at: #shared put: OrderedCollection new.
        dict at: #nothing put: OrderedCollection new.
        rootClassBlock := [ :c | visualizationModel classDependenciesFor: c ].
        clientProviders := clientLayers flatCollectAsSet: rootClassBlock.
        serverProviders := serverLayers flatCollectAsSet: rootClassBlock.
        shared do: [ :dto | 
                (clientProviders like: dto)
                        ifNotNil: [ 
                                (serverProviders like: dto)
                                        ifNotNil: [ self addDto: dto in: dict atKey: #shared ]
                                        ifNil: [ self addDto: dto in: dict atKey: #client ] ]
                        ifNil: [ 
                                (serverProviders like: dto)
                                        ifNotNil: [ self addDto: dto in: dict atKey: #server ]
                                        ifNil: [ self addDto: dto in: dict atKey: #nothing ] ] ].

        ^ dict
]

{ #category : 'filtering' }
MiFilterViolationStrategy >> fetchViolating: layers [

        | outgoingCache incomingCache |
        outgoingCache := visualizationModel outgoingCache.
        incomingCache := visualizationModel incomingCache.


        ^ layers collect: [ :sl | 
                  sl selectAsSet: [ :c | 
                          | in out |
                          out := outgoingCache at: c ifAbsent: [ OrderedCollection new ].
                          in := incomingCache at: c ifAbsent: [ OrderedCollection new ].
                          ((visualizationModel classDependenciesFor: c) anySatisfy: [ :pps | 
                                   visualizationModel sharedLayer includes: pps ]) or: [ 
                                  out , in anySatisfy: [ :p | 
                                          (visualizationModel purgatoryLayer includes: p) or: [ 
                                                  visualizationModel sharedLayer includes: p ] ] ] ] ]
]

{ #category : 'filtering' }
MiFilterViolationStrategy >> fetchViolatingClients [


        ^ self fetchViolating:  visualizationModel clientLayers 
]

{ #category : 'filtering' }
MiFilterViolationStrategy >> fetchViolatingServers [

        ^ self fetchViolating: visualizationModel serverLayers
]

{ #category : 'filtering' }
MiFilterViolationStrategy >> shouldDisplaySharedDTOs [

        ^ false
]

1	Class {
2	#name : 'MiFilterViolationStrategy',
3	#superclass : 'MiLayerDisplayStrategy',
4	#category : 'MooseIDE-LayerVisualization-Strategy',
5	#package : 'MooseIDE-LayerVisualization',
6	#tag : 'Strategy'
7	}
8
9	{ #category : 'filtering' }
UNCOV 10	MiFilterViolationStrategy >> fetchNotSharedDTOs [	×
UNCOV 11		×
12	\| shared clientLayers serverLayers incomingCache dict clientProviders serverProviders rootClassBlock \|	×
13	shared := visualizationModel sharedLayer.	×
14	clientLayers := visualizationModel clientLayers asSet	×
15	flatten.	×
16	serverLayers := visualizationModel serverLayers asSet	×
17	flatten.	×
18	incomingCache := visualizationModel incomingCache.	×
19	dict := Dictionary new.	×
20	dict at: #client put: OrderedCollection new.	×
21	dict at: #server put: OrderedCollection new.	×
22	dict at: #shared put: OrderedCollection new.	×
23	dict at: #nothing put: OrderedCollection new.	×
24	rootClassBlock := [ :c \| visualizationModel classDependenciesFor: c ].	×
25	clientProviders := clientLayers flatCollectAsSet: rootClassBlock.	×
26	serverProviders := serverLayers flatCollectAsSet: rootClassBlock.	×
27	shared do: [ :dto \|	×
28	(clientProviders like: dto)	×
29	ifNotNil: [	×
30	(serverProviders like: dto)	×
31	ifNotNil: [ self addDto: dto in: dict atKey: #shared ]	×
32	ifNil: [ self addDto: dto in: dict atKey: #client ] ]	×
33	ifNil: [	×
34	(serverProviders like: dto)	×
35	ifNotNil: [ self addDto: dto in: dict atKey: #server ]	×
36	ifNil: [ self addDto: dto in: dict atKey: #nothing ] ] ].	×
37		×
38	^ dict	×
39	]	×
40
41	{ #category : 'filtering' }
UNCOV 42	MiFilterViolationStrategy >> fetchViolating: layers [	×
UNCOV 43		×
44	\| outgoingCache incomingCache \|	×
45	outgoingCache := visualizationModel outgoingCache.	×
46	incomingCache := visualizationModel incomingCache.	×
47		×
48		×
49	^ layers collect: [ :sl \|	×
50	sl selectAsSet: [ :c \|	×
51	\| in out \|	×
52	out := outgoingCache at: c ifAbsent: [ OrderedCollection new ].	×
53	in := incomingCache at: c ifAbsent: [ OrderedCollection new ].	×
54	((visualizationModel classDependenciesFor: c) anySatisfy: [ :pps \|	×
55	visualizationModel sharedLayer includes: pps ]) or: [	×
56	out , in anySatisfy: [ :p \|	×
57	(visualizationModel purgatoryLayer includes: p) or: [	×
58	visualizationModel sharedLayer includes: p ] ] ] ] ]	×
59	]	×
60
61	{ #category : 'filtering' }
UNCOV 62	MiFilterViolationStrategy >> fetchViolatingClients [	×
UNCOV 63		×
64		×
65	^ self fetchViolating: visualizationModel clientLayers	×
66	]	×
67
68	{ #category : 'filtering' }
UNCOV 69	MiFilterViolationStrategy >> fetchViolatingServers [	×
UNCOV 70		×
71	^ self fetchViolating: visualizationModel serverLayers	×
72	]	×
73
74	{ #category : 'filtering' }
UNCOV 75	MiFilterViolationStrategy >> shouldDisplaySharedDTOs [	×
UNCOV 76		×
77	^ false	×
78	]	×

moosetechnology / MooseIDE / 18218947233

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