19307692782

Committed 12 Nov 2025 06:23PM UTC coverage: 65.7% (+0.2%) from 65.543%

Build # 19307692782

Build Type

push

github

Committed by

web-flow

Commit Message

Merge pull request #1513 from moosetechnology/co-usage-settings

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.

21196 of 32262 relevant lines covered (65.7%)

1.31 hits per line

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

86.49

/src/MooseIDE-CoUsageMap/MiCoInnerEntitiesAttributeAccessExtractor.class.st

Class {
        #name : 'MiCoInnerEntitiesAttributeAccessExtractor',
        #superclass : 'MiCoInnerEntitiesAbstractExtractor',
        #category : 'MooseIDE-CoUsageMap-Model',
        #package : 'MooseIDE-CoUsageMap',
        #tag : 'Model'
}

{ #category : 'accessing' }
MiCoInnerEntitiesAttributeAccessExtractor class >> description [

        ^'Inner boxes are all the attributes accessed by the entities
(typically methods) represented by the container boxes'
]

{ #category : 'accessing' }
MiCoInnerEntitiesAttributeAccessExtractor class >> menuItemName [

        ^'Attribute access'
]

{ #category : 'execute' }
MiCoInnerEntitiesAttributeAccessExtractor >> attributeAccessorInvocations: anEntity [
        "building the list manually instead of using 2 #flatCollect:"

        | attributes |
        attributes := OrderedCollection new.

        anEntity outgoingInvocations
                do: [ :invoc |
                        invoc candidates
                                do: [ :mth |
                                        mth isAccessor ifTrue: [ attributes  addAll: (self directAttributeAccesses: mth) ]
                        ]
                ].

        ^attributes 

]

{ #category : 'execute' }
MiCoInnerEntitiesAttributeAccessExtractor >> directAttributeAccesses: entityWithAccesses [

        ^entityWithAccesses accesses
                collect: [ :access | access variable ]
                thenSelect: [ :var | var isAttribute ]
]

{ #category : 'execute' }
MiCoInnerEntitiesAttributeAccessExtractor >> innerEntitiesFor: anEntity [

        ^(self directAttributeAccesses: anEntity) , (self attributeAccessorInvocations: anEntity)

]

1	Class {
2	#name : 'MiCoInnerEntitiesAttributeAccessExtractor',
3	#superclass : 'MiCoInnerEntitiesAbstractExtractor',
4	#category : 'MooseIDE-CoUsageMap-Model',
5	#package : 'MooseIDE-CoUsageMap',
6	#tag : 'Model'
7	}
8
9	{ #category : 'accessing' }
NEW 10	MiCoInnerEntitiesAttributeAccessExtractor class >> description [	×
NEW 11		×
NEW 12	^'Inner boxes are all the attributes accessed by the entities	×
NEW 13	(typically methods) represented by the container boxes'	×
NEW 14	]	×
15
16	{ #category : 'accessing' }
17	MiCoInnerEntitiesAttributeAccessExtractor class >> menuItemName [	2✔
18		2✔
19	^'Attribute access'	2✔
20	]	2✔
21
22	{ #category : 'execute' }
23	MiCoInnerEntitiesAttributeAccessExtractor >> attributeAccessorInvocations: anEntity [	2✔
24	"building the list manually instead of using 2 #flatCollect:"	2✔
25		2✔
26	\| attributes \|	2✔
27	attributes := OrderedCollection new.	2✔
28		2✔
29	anEntity outgoingInvocations	2✔
30	do: [ :invoc \|	2✔
31	invoc candidates	2✔
32	do: [ :mth \|	2✔
33	mth isAccessor ifTrue: [ attributes addAll: (self directAttributeAccesses: mth) ]	2✔
34	]	2✔
35	].	2✔
36		2✔
37	^attributes	2✔
38		2✔
39	]	2✔
40
41	{ #category : 'execute' }
42	MiCoInnerEntitiesAttributeAccessExtractor >> directAttributeAccesses: entityWithAccesses [	2✔
43		2✔
44	^entityWithAccesses accesses	2✔
45	collect: [ :access \| access variable ]	2✔
46	thenSelect: [ :var \| var isAttribute ]	2✔
47	]	2✔
48
49	{ #category : 'execute' }
50	MiCoInnerEntitiesAttributeAccessExtractor >> innerEntitiesFor: anEntity [	2✔
51		2✔
52	^(self directAttributeAccesses: anEntity) , (self attributeAccessorInvocations: anEntity)	2✔
53		2✔
54	]	2✔

moosetechnology / MooseIDE / 19307692782

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