10181519324

Committed 31 Jul 2024 01:49PM UTC coverage: 33.456% (+0.2%) from 33.234%

Build # 10181519324

Build Type

push

github

Committed by

web-flow

Commit Message

Merge pull request #13 from moosetechnology/omptimize-addAllOfTypeUnless

optimize also the `addAll:ofType:unless:` and add similar tests

Run Details

36 of 36 new or added lines in 1 file covered. (100.0%)

6 existing lines in 1 file now uncovered.

2719 of 8127 relevant lines covered (33.46%)

0.33 hits per line

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

5.79

/src/GitLabHealth-Model/GLHGroup.class.st

"
A GitLab Group

## Relations
======================

### Parents
| Relation | Origin | Opposite | Type | Comment |
|---|
| `group` | `GLHGroup` | `subGroups` | `GLHGroup` | |

### Children
| Relation | Origin | Opposite | Type | Comment |
|---|
| `projects` | `GLHGroup` | `group` | `GLHProject` | |
| `subGroups` | `GLHGroup` | `group` | `GLHGroup` | |


## Properties
======================

| Name | Type | Default value | Comment |
|---|
| `avatar_url` | `String` | nil | |
| `description` | `String` | nil | |
| `id` | `Number` | nil | |
| `name` | `String` | nil | Basic name of the entity, not full reference.|
| `visibility` | `String` | nil | |
| `web_url` | `String` | nil | |

"
Class {
        #name : #GLHGroup,
        #superclass : #GLHEntity,
        #traits : 'FamixTNamedEntity',
        #classTraits : 'FamixTNamedEntity classTrait',
        #instVars : [
                '#id => FMProperty',
                '#web_url => FMProperty',
                '#description => FMProperty',
                '#visibility => FMProperty',
                '#avatar_url => FMProperty',
                '#projects => FMMany type: #GLHProject opposite: #group',
                '#subGroups => FMMany type: #GLHGroup opposite: #group',
                '#group => FMOne type: #GLHGroup opposite: #subGroups'
        ],
        #category : #'GitLabHealth-Model-Entities'
}

{ #category : #meta }
GLHGroup class >> annotation [

        <FMClass: #Group super: #GLHEntity>
        <package: #'GitLabHealth-Model'>
        <generated>
        ^ self
]

{ #category : #groups }
GLHGroup class >> annotationGLHGroupGroup [
        <generated>
        <mooseGroup>
        ^ GLHGroupGroup
]

{ #category : #adding }
GLHGroup >> addProject: anObject [
        <generated>
        ^ self projects add: anObject
]

{ #category : #adding }
GLHGroup >> addSubGroup: anObject [
        <generated>
        ^ self subGroups add: anObject
]

{ #category : #accessing }
GLHGroup >> avatar_url [

        <FMProperty: #avatar_url type: #String>
        <generated>
        ^ avatar_url
]

{ #category : #accessing }
GLHGroup >> avatar_url: anObject [
        <generated>
        avatar_url := anObject
]

{ #category : #accessing }
GLHGroup >> description [

        <FMProperty: #description type: #String>
        <generated>
        ^ description
]

{ #category : #accessing }
GLHGroup >> description: anObject [
        <generated>
        description := anObject
]

{ #category : #accessing }
GLHGroup >> group [
        "Relation named: #group type: #GLHGroup opposite: #subGroups"

        <generated>
        <container>
        ^ group
]

{ #category : #accessing }
GLHGroup >> group: anObject [

        <generated>
        group := anObject
]

{ #category : #navigation }
GLHGroup >> groupGroup [
        <generated>
        <navigation: 'Group'>
        ^ MooseSpecializedGroup with: self group
]

{ #category : #accessing }
GLHGroup >> id [

        <FMProperty: #id type: #Number>
        <generated>
        ^ id
]

{ #category : #accessing }
GLHGroup >> id: anObject [
        <generated>
        id := anObject
]

{ #category : #accessing }
GLHGroup >> projects [
        "Relation named: #projects type: #GLHProject opposite: #group"

        <generated>
        <derived>
        ^ projects
]

{ #category : #accessing }
GLHGroup >> projects: anObject [

        <generated>
        projects value: anObject
]

{ #category : #navigation }
GLHGroup >> projectsGroup [
        <generated>
        <navigation: 'Projects'>
        ^ MooseSpecializedGroup withAll: self projects asSet
]

{ #category : #accessing }
GLHGroup >> subGroups [
        "Relation named: #subGroups type: #GLHGroup opposite: #group"

        <generated>
        <derived>
        ^ subGroups
]

{ #category : #accessing }
GLHGroup >> subGroups: anObject [

        <generated>
        subGroups value: anObject
]

{ #category : #navigation }
GLHGroup >> subGroupsGroup [
        <generated>
        <navigation: 'SubGroups'>
        ^ MooseSpecializedGroup withAll: self subGroups asSet
]

{ #category : #accessing }
GLHGroup >> visibility [

        <FMProperty: #visibility type: #String>
        <generated>
        ^ visibility
]

{ #category : #accessing }
GLHGroup >> visibility: anObject [
        <generated>
        visibility := anObject
]

{ #category : #accessing }
GLHGroup >> web_url [

        <FMProperty: #web_url type: #String>
        <generated>
        ^ web_url
]

{ #category : #accessing }
GLHGroup >> web_url: anObject [
        <generated>
        web_url := anObject
]

1	"
2	A GitLab Group
3
4	## Relations
5	======================
6
7	### Parents
8	\| Relation \| Origin \| Opposite \| Type \| Comment \|
9	\|---\|
10	\| `group` \| `GLHGroup` \| `subGroups` \| `GLHGroup` \| \|
11
12	### Children
13	\| Relation \| Origin \| Opposite \| Type \| Comment \|
14	\|---\|
15	\| `projects` \| `GLHGroup` \| `group` \| `GLHProject` \| \|
16	\| `subGroups` \| `GLHGroup` \| `group` \| `GLHGroup` \| \|
17
18
19	## Properties
20	======================
21
22	\| Name \| Type \| Default value \| Comment \|
23	\|---\|
24	\| `avatar_url` \| `String` \| nil \| \|
25	\| `description` \| `String` \| nil \| \|
26	\| `id` \| `Number` \| nil \| \|
27	\| `name` \| `String` \| nil \| Basic name of the entity, not full reference.\|
28	\| `visibility` \| `String` \| nil \| \|
29	\| `web_url` \| `String` \| nil \| \|
30
31	"
32	Class {
33	#name : #GLHGroup,
34	#superclass : #GLHEntity,
35	#traits : 'FamixTNamedEntity',
36	#classTraits : 'FamixTNamedEntity classTrait',
37	#instVars : [
38	'#id => FMProperty',
39	'#web_url => FMProperty',
40	'#description => FMProperty',
41	'#visibility => FMProperty',
42	'#avatar_url => FMProperty',
43	'#projects => FMMany type: #GLHProject opposite: #group',
44	'#subGroups => FMMany type: #GLHGroup opposite: #group',
45	'#group => FMOne type: #GLHGroup opposite: #subGroups'
46	],
47	#category : #'GitLabHealth-Model-Entities'
48	}
49
50	{ #category : #meta }
51	GLHGroup class >> annotation [	×
52		×
53	<FMClass: #Group super: #GLHEntity>	×
54	<package: #'GitLabHealth-Model'>	×
55	<generated>	×
56	^ self	×
57	]	×
58
59	{ #category : #groups }
60	GLHGroup class >> annotationGLHGroupGroup [	×
61	<generated>	×
62	<mooseGroup>	×
63	^ GLHGroupGroup	×
64	]	×
65
66	{ #category : #adding }
67	GLHGroup >> addProject: anObject [	×
68	<generated>	×
69	^ self projects add: anObject	×
70	]	×
71
72	{ #category : #adding }
73	GLHGroup >> addSubGroup: anObject [	×
74	<generated>	×
75	^ self subGroups add: anObject	×
76	]	×
77
78	{ #category : #accessing }
79	GLHGroup >> avatar_url [	×
80		×
81	<FMProperty: #avatar_url type: #String>	×
82	<generated>	×
83	^ avatar_url	×
84	]	×
85
86	{ #category : #accessing }
87	GLHGroup >> avatar_url: anObject [	×
88	<generated>	×
89	avatar_url := anObject	×
90	]	×
91
92	{ #category : #accessing }
93	GLHGroup >> description [	×
94		×
95	<FMProperty: #description type: #String>	×
96	<generated>	×
97	^ description	×
98	]	×
99
100	{ #category : #accessing }
101	GLHGroup >> description: anObject [	×
102	<generated>	×
103	description := anObject	×
104	]	×
105
106	{ #category : #accessing }
107	GLHGroup >> group [	×
108	"Relation named: #group type: #GLHGroup opposite: #subGroups"	×
109		×
110	<generated>	×
111	<container>	×
112	^ group	×
113	]	×
114
115	{ #category : #accessing }
116	GLHGroup >> group: anObject [	×
117		×
118	<generated>	×
119	group := anObject	×
120	]	×
121
122	{ #category : #navigation }
123	GLHGroup >> groupGroup [	×
124	<generated>	×
125	<navigation: 'Group'>	×
126	^ MooseSpecializedGroup with: self group	×
127	]	×
128
129	{ #category : #accessing }
UNCOV 130	GLHGroup >> id [	×
UNCOV 131		×
UNCOV 132	<FMProperty: #id type: #Number>	×
UNCOV 133	<generated>	×
UNCOV 134	^ id	×
UNCOV 135	]	×
136
137	{ #category : #accessing }
138	GLHGroup >> id: anObject [	×
139	<generated>	×
140	id := anObject	×
141	]	×
142
143	{ #category : #accessing }
144	GLHGroup >> projects [	1✔
145	"Relation named: #projects type: #GLHProject opposite: #group"	1✔
146		1✔
147	<generated>	1✔
148	<derived>	1✔
149	^ projects	1✔
150	]	1✔
151
152	{ #category : #accessing }
153	GLHGroup >> projects: anObject [	×
154		×
155	<generated>	×
156	projects value: anObject	×
157	]	×
158
159	{ #category : #navigation }
160	GLHGroup >> projectsGroup [	×
161	<generated>	×
162	<navigation: 'Projects'>	×
163	^ MooseSpecializedGroup withAll: self projects asSet	×
164	]	×
165
166	{ #category : #accessing }
167	GLHGroup >> subGroups [	×
168	"Relation named: #subGroups type: #GLHGroup opposite: #group"	×
169		×
170	<generated>	×
171	<derived>	×
172	^ subGroups	×
173	]	×
174
175	{ #category : #accessing }
176	GLHGroup >> subGroups: anObject [	×
177		×
178	<generated>	×
179	subGroups value: anObject	×
180	]	×
181
182	{ #category : #navigation }
183	GLHGroup >> subGroupsGroup [	×
184	<generated>	×
185	<navigation: 'SubGroups'>	×
186	^ MooseSpecializedGroup withAll: self subGroups asSet	×
187	]	×
188
189	{ #category : #accessing }
190	GLHGroup >> visibility [	×
191		×
192	<FMProperty: #visibility type: #String>	×
193	<generated>	×
194	^ visibility	×
195	]	×
196
197	{ #category : #accessing }
198	GLHGroup >> visibility: anObject [	×
199	<generated>	×
200	visibility := anObject	×
201	]	×
202
203	{ #category : #accessing }
204	GLHGroup >> web_url [	×
205		×
206	<FMProperty: #web_url type: #String>	×
207	<generated>	×
208	^ web_url	×
209	]	×
210
211	{ #category : #accessing }
212	GLHGroup >> web_url: anObject [	×
213	<generated>	×
214	web_url := anObject	×
215	]	×

moosetechnology / GitProjectHealth / 10181519324

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