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/MiFilterMultiLayerViolationStrategy.class.st

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

{ #category : 'filtering' }
MiFilterMultiLayerViolationStrategy >> fetchViolatingDaos [

        ^ visualizationModel daoLayer select: [ :dao | 
                  ((visualizationModel classDependenciesFor: dao) anySatisfy: [ :c | 
                           (visualizationModel serviceLayer includes: c) or: [ 
                                   visualizationModel serverLayers flatten includes: c ] ]) or: [ 
                          (visualizationModel classDependantsFor: dao) anySatisfy: [ :c | 
                                  visualizationModel serverLayers flatten includes: c ] ] ]
]

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

        ^ visualizationModel serverLayers collect: [ :layer | 
                  layer select: [ :server | 
                          (self serverHasDirectLinkWithDAO: server) or: [ 
                                  self serverHasDirectLinkFromService: server ] ] ]
]

{ #category : 'filtering' }
MiFilterMultiLayerViolationStrategy >> fetchViolatingServices [

        ^ visualizationModel serviceLayer select: [ :service | 
                  ((visualizationModel classDependantsFor: service) anySatisfy: [ :c | 
                           visualizationModel daoLayer includes: c ]) or: [ 
                          (visualizationModel classDependenciesFor: service) anySatisfy: [ 
                                  :c | visualizationModel serverLayersIncludes: c ] ] ]
]

{ #category : 'filtering' }
MiFilterMultiLayerViolationStrategy >> fetchViolatingTransverse [

        ^ visualizationModel transverseLayer select: [ :transverse | 
                  (visualizationModel classDependenciesFor: transverse) anySatisfy: [ 
                          :c | 
                          (visualizationModel daoLayer includes: c) or: [ 
                                  (visualizationModel serverLayersIncludes: c) or: [ 
                                          visualizationModel serviceLayer includes: c ] ] ] ]
]

{ #category : 'filtering' }
MiFilterMultiLayerViolationStrategy >> serverHasDirectLinkFromService: aServerClass [

        | testBlock |
        testBlock := [ :c | 
                     | actualClass |
                     actualClass := visualizationModel rootClass: c.
                     (visualizationModel serviceLayer includes: c) ifTrue: [ 
                             ^ true ] ].
        aServerClass allClients do: testBlock.


        ^ false
]

{ #category : 'filtering' }
MiFilterMultiLayerViolationStrategy >> serverHasDirectLinkWithDAO: aServerClass [

        | testBlock |
        testBlock := [ :c | 
                     | actualClass |
                     actualClass := visualizationModel rootClass: c.
                     (visualizationModel daoLayer includes: c) ifTrue: [ 
                             ^ true ] ].
        aServerClass allClients do: testBlock.
        aServerClass allProviders do: testBlock.


        ^ false
]

1	Class {
2	#name : 'MiFilterMultiLayerViolationStrategy',
3	#superclass : 'MiMultiLayerStrategy',
4	#category : 'MooseIDE-LayerVisualization-Strategy',
5	#package : 'MooseIDE-LayerVisualization',
6	#tag : 'Strategy'
7	}
8
9	{ #category : 'filtering' }
UNCOV 10	MiFilterMultiLayerViolationStrategy >> fetchViolatingDaos [	×
UNCOV 11		×
12	^ visualizationModel daoLayer select: [ :dao \|	×
13	((visualizationModel classDependenciesFor: dao) anySatisfy: [ :c \|	×
14	(visualizationModel serviceLayer includes: c) or: [	×
15	visualizationModel serverLayers flatten includes: c ] ]) or: [	×
16	(visualizationModel classDependantsFor: dao) anySatisfy: [ :c \|	×
17	visualizationModel serverLayers flatten includes: c ] ] ]	×
18	]	×
19
20	{ #category : 'filtering' }
UNCOV 21	MiFilterMultiLayerViolationStrategy >> fetchViolatingServers [	×
UNCOV 22		×
23	^ visualizationModel serverLayers collect: [ :layer \|	×
24	layer select: [ :server \|	×
25	(self serverHasDirectLinkWithDAO: server) or: [	×
26	self serverHasDirectLinkFromService: server ] ] ]	×
27	]	×
28
29	{ #category : 'filtering' }
UNCOV 30	MiFilterMultiLayerViolationStrategy >> fetchViolatingServices [	×
UNCOV 31		×
32	^ visualizationModel serviceLayer select: [ :service \|	×
33	((visualizationModel classDependantsFor: service) anySatisfy: [ :c \|	×
34	visualizationModel daoLayer includes: c ]) or: [	×
35	(visualizationModel classDependenciesFor: service) anySatisfy: [	×
36	:c \| visualizationModel serverLayersIncludes: c ] ] ]	×
37	]	×
38
39	{ #category : 'filtering' }
UNCOV 40	MiFilterMultiLayerViolationStrategy >> fetchViolatingTransverse [	×
UNCOV 41		×
42	^ visualizationModel transverseLayer select: [ :transverse \|	×
43	(visualizationModel classDependenciesFor: transverse) anySatisfy: [	×
44	:c \|	×
45	(visualizationModel daoLayer includes: c) or: [	×
46	(visualizationModel serverLayersIncludes: c) or: [	×
47	visualizationModel serviceLayer includes: c ] ] ] ]	×
48	]	×
49
50	{ #category : 'filtering' }
UNCOV 51	MiFilterMultiLayerViolationStrategy >> serverHasDirectLinkFromService: aServerClass [	×
UNCOV 52		×
53	\| testBlock \|	×
54	testBlock := [ :c \|	×
55	\| actualClass \|	×
56	actualClass := visualizationModel rootClass: c.	×
57	(visualizationModel serviceLayer includes: c) ifTrue: [	×
58	^ true ] ].	×
59	aServerClass allClients do: testBlock.	×
60		×
61		×
62	^ false	×
63	]	×
64
65	{ #category : 'filtering' }
UNCOV 66	MiFilterMultiLayerViolationStrategy >> serverHasDirectLinkWithDAO: aServerClass [	×
UNCOV 67		×
68	\| testBlock \|	×
69	testBlock := [ :c \|	×
70	\| actualClass \|	×
71	actualClass := visualizationModel rootClass: c.	×
72	(visualizationModel daoLayer includes: c) ifTrue: [	×
73	^ true ] ].	×
74	aServerClass allClients do: testBlock.	×
75	aServerClass allProviders do: testBlock.	×
76		×
77		×
78	^ false	×
79	]	×

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