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

72.55

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

"
I am a singleton, I store global values for settings used by CoUsageMapBuilder
"
Class {
        #name : 'MiCoUsageMapSettings',
        #superclass : 'Object',
        #instVars : [
                'properties'
        ],
        #category : 'MooseIDE-CoUsageMap-Settings',
        #package : 'MooseIDE-CoUsageMap',
        #tag : 'Settings'
}

{ #category : 'accessing - defaults' }
MiCoUsageMapSettings >> defaultInnerBoxExtractor [

        ^MiCoInnerEntitiesAttributeAccessExtractor 
]

{ #category : 'accessing - defaults' }
MiCoUsageMapSettings >> defaultInnerBoxRange [
        ^ #(5 100)
]

{ #category : 'accessing - defaults' }
MiCoUsageMapSettings >> defaultInnerBoxScaleType [
        ^ #linear
]

{ #category : 'accessing - defaults' }
MiCoUsageMapSettings >> defaultThreshold75 [
        ^ 75
]

{ #category : 'accessing' }
MiCoUsageMapSettings >> innerBoxExtractor [
        ^ self propertiesMap at: #innerBoxExtractor ifAbsent: [ self defaultInnerBoxExtractor ]
]

{ #category : 'accessing' }
MiCoUsageMapSettings >> innerBoxExtractor: aString [
        self propertiesMap at: #innerBoxExtractor put: aString
]

{ #category : 'accessing' }
MiCoUsageMapSettings >> innerBoxRange [
        ^ self propertiesMap at: #innerBoxRange ifAbsent: [ self defaultInnerBoxRange ]
]

{ #category : 'accessing' }
MiCoUsageMapSettings >> innerBoxRange: anInterval [
        self propertiesMap at: #innerBoxRange put: anInterval
]

{ #category : 'accessing' }
MiCoUsageMapSettings >> innerBoxScaleType [
        ^ self propertiesMap at: #innerBoxScaleType ifAbsent: [ self defaultInnerBoxScaleType ]
]

{ #category : 'accessing' }
MiCoUsageMapSettings >> innerBoxScaleType: aString [
        self propertiesMap at: #innerBoxScaleType put: aString
]

{ #category : 'private' }
MiCoUsageMapSettings >> propertiesMap [
        ^ properties ifNil: [ properties := Dictionary new ]
]

{ #category : 'class initialization' }
MiCoUsageMapSettings >> reset [
        properties := nil
]

{ #category : 'class initialization' }
MiCoUsageMapSettings >> resetText [
        <script>
        self propertiesMap
                removeKey: #innerBoxExtractor ifAbsent: []
]

{ #category : 'accessing' }
MiCoUsageMapSettings >> scaleTypes [
        ^ #(linear symlog)
]

{ #category : 'accessing' }
MiCoUsageMapSettings >> threshold75PercentGroup [
        ^ self propertiesMap at: #threshold75 ifAbsent: [ self defaultThreshold75 ]
]

{ #category : 'accessing' }
MiCoUsageMapSettings >> threshold75PercentGroup: aNumber [
        self propertiesMap at: #threshold75 put: aNumber
]

1	"
2	I am a singleton, I store global values for settings used by CoUsageMapBuilder
3	"
4	Class {
5	#name : 'MiCoUsageMapSettings',
6	#superclass : 'Object',
7	#instVars : [
8	'properties'
9	],
10	#category : 'MooseIDE-CoUsageMap-Settings',
11	#package : 'MooseIDE-CoUsageMap',
12	#tag : 'Settings'
13	}
14
15	{ #category : 'accessing - defaults' }
16	MiCoUsageMapSettings >> defaultInnerBoxExtractor [	2✔
17		2✔
18	^MiCoInnerEntitiesAttributeAccessExtractor	2✔
19	]	2✔
20
21	{ #category : 'accessing - defaults' }
22	MiCoUsageMapSettings >> defaultInnerBoxRange [	2✔
23	^ #(5 100)	2✔
24	]	2✔
25
26	{ #category : 'accessing - defaults' }
27	MiCoUsageMapSettings >> defaultInnerBoxScaleType [	2✔
28	^ #linear	2✔
29	]	2✔
30
31	{ #category : 'accessing - defaults' }
32	MiCoUsageMapSettings >> defaultThreshold75 [	2✔
33	^ 75	2✔
34	]	2✔
35
36	{ #category : 'accessing' }
37	MiCoUsageMapSettings >> innerBoxExtractor [	2✔
38	^ self propertiesMap at: #innerBoxExtractor ifAbsent: [ self defaultInnerBoxExtractor ]	2✔
39	]	2✔
40
41	{ #category : 'accessing' }
42	MiCoUsageMapSettings >> innerBoxExtractor: aString [	2✔
43	self propertiesMap at: #innerBoxExtractor put: aString	2✔
44	]	2✔
45
46	{ #category : 'accessing' }
47	MiCoUsageMapSettings >> innerBoxRange [	2✔
48	^ self propertiesMap at: #innerBoxRange ifAbsent: [ self defaultInnerBoxRange ]	2✔
49	]	2✔
50
51	{ #category : 'accessing' }
UNCOV 52	MiCoUsageMapSettings >> innerBoxRange: anInterval [	×
UNCOV 53	self propertiesMap at: #innerBoxRange put: anInterval	×
UNCOV 54	]	×
55
56	{ #category : 'accessing' }
57	MiCoUsageMapSettings >> innerBoxScaleType [	2✔
58	^ self propertiesMap at: #innerBoxScaleType ifAbsent: [ self defaultInnerBoxScaleType ]	2✔
59	]	2✔
60
61	{ #category : 'accessing' }
UNCOV 62	MiCoUsageMapSettings >> innerBoxScaleType: aString [	×
UNCOV 63	self propertiesMap at: #innerBoxScaleType put: aString	×
UNCOV 64	]	×
65
66	{ #category : 'private' }
67	MiCoUsageMapSettings >> propertiesMap [	2✔
68	^ properties ifNil: [ properties := Dictionary new ]	2✔
69	]	2✔
70
71	{ #category : 'class initialization' }
UNCOV 72	MiCoUsageMapSettings >> reset [	×
UNCOV 73	properties := nil	×
UNCOV 74	]	×
75
76	{ #category : 'class initialization' }
UNCOV 77	MiCoUsageMapSettings >> resetText [	×
UNCOV 78	<script>	×
UNCOV 79	self propertiesMap	×
NEW 80	removeKey: #innerBoxExtractor ifAbsent: []	×
UNCOV 81	]	×
82
83	{ #category : 'accessing' }
84	MiCoUsageMapSettings >> scaleTypes [	2✔
85	^ #(linear symlog)	2✔
86	]	2✔
87
88	{ #category : 'accessing' }
89	MiCoUsageMapSettings >> threshold75PercentGroup [	2✔
90	^ self propertiesMap at: #threshold75 ifAbsent: [ self defaultThreshold75 ]	2✔
91	]	2✔
92
93	{ #category : 'accessing' }
94	MiCoUsageMapSettings >> threshold75PercentGroup: aNumber [	2✔
95	self propertiesMap at: #threshold75 put: aNumber	2✔
96	]	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