11498216048

Committed 24 Oct 2024 11:19AM UTC coverage: 58.319% (-1.4%) from 59.724%

Build # 11498216048

Build Type

push

github

Committed by

web-flow

Commit Message

Merge pull request #97 from moosetechnology/feature-merge-metamodel

Feature merge metamodel

Run Details

629 of 1639 new or added lines in 51 files covered. (38.38%)

7 existing lines in 2 files now uncovered.

9446 of 16197 relevant lines covered (58.32%)

0.58 hits per line

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

29.8

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

"
The diff of a commit

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

### Parents
| Relation | Origin | Opposite | Type | Comment |
|---|
| `commit` | `GLHDiff` | `diffs` | `GLHCommit` | |

### Children
| Relation | Origin | Opposite | Type | Comment |
|---|
| `diffRanges` | `GLHDiff` | `diff` | `GLHDiffRange` | |
| `file` | `GLHDiff` | `diffs` | `GLHFile` | |

### Other
| Relation | Origin | Opposite | Type | Comment |
|---|
| `mergeRequest` | `GLHDiff` | `diffs` | `GLHMergeRequest` | |


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

| Name | Type | Default value | Comment |
|---|
| `deleted_file` | `Boolean` | false | Is the file of the diff has been removed|
| `diffString` | `String` | nil | The string presenting the diff. It should follow the [Detailed-Unified](https://www.gnu.org/software/diffutils/manual/html_node/Detailed-Unified.html) format|
| `name` | `String` | nil | Basic name of the entity, not full reference.|
| `new_file` | `Boolean` | false | Is the file of the diff is a new file|
| `new_path` | `String` | nil | The path to the file in the resulted repository commitish|
| `old_path` | `String` | nil | The path to the file in the origin repository commitish|
| `renamed_file` | `Boolean` | false | Is the file of the diff has been renamed (see old_path/new_path) file|

"
Class {
        #name : 'GLHDiff',
        #superclass : 'GLHEntity',
        #traits : 'FamixTNamedEntity',
        #classTraits : 'FamixTNamedEntity classTrait',
        #instVars : [
                '#commit => FMOne type: #GLHCommit opposite: #diffs',
                '#deleted_file => FMProperty defaultValue: false',
                '#diffRanges => FMMany type: #GLHDiffRange opposite: #diff',
                '#diffString => FMProperty',
                '#file => FMMany type: #GLHFile opposite: #diffs',
                '#mergeRequest => FMOne type: #GLHMergeRequest opposite: #diffs',
                '#new_file => FMProperty defaultValue: false',
                '#new_path => FMProperty',
                '#old_path => FMProperty',
                '#renamed_file => FMProperty defaultValue: false'
        ],
        #category : 'GitLabHealth-Model-Entities',
        #package : 'GitLabHealth-Model',
        #tag : 'Entities'
}

{ #category : 'meta' }
GLHDiff class >> annotation [

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

{ #category : 'adding' }
GLHDiff >> addDiffRange: anObject [
        <generated>
        ^ self diffRanges add: anObject
]

{ #category : 'adding' }
GLHDiff >> addFile: anObject [
        <generated>
        ^ self file add: anObject
]

{ #category : 'accessing' }
GLHDiff >> commit [
        "Relation named: #commit type: #GLHCommit opposite: #diffs"

        <generated>
        <container>
        ^ commit
]

{ #category : 'accessing' }
GLHDiff >> commit: anObject [

        <generated>
        commit := anObject
]

{ #category : 'navigation' }
GLHDiff >> commitGroup [
        <generated>
        <navigation: 'Commit'>
        ^ MooseSpecializedGroup with: self commit
]

{ #category : 'accessing' }
GLHDiff >> deleted_file [

        <FMProperty: #deleted_file type: #Boolean defaultValue: false>
        <generated>
        <FMComment: 'Is the file of the diff has been removed'>
        ^ deleted_file ifNil: [ deleted_file := false ]
]

{ #category : 'accessing' }
GLHDiff >> deleted_file: anObject [
        <generated>
        deleted_file := anObject
]

{ #category : 'accessing' }
GLHDiff >> diffRanges [
        "Relation named: #diffRanges type: #GLHDiffRange opposite: #diff"

        <generated>
        <derived>
        ^ diffRanges
]

{ #category : 'accessing' }
GLHDiff >> diffRanges: anObject [

        <generated>
        diffRanges value: anObject
]

{ #category : 'navigation' }
GLHDiff >> diffRangesGroup [
        <generated>
        <navigation: 'DiffRanges'>
        ^ MooseSpecializedGroup withAll: self diffRanges asSet
]

{ #category : 'accessing' }
GLHDiff >> diffString [

        <FMProperty: #diffString type: #String>
        <generated>
        <FMComment: 'The string presenting the diff. It should follow the [Detailed-Unified](https://www.gnu.org/software/diffutils/manual/html_node/Detailed-Unified.html) format'>
        ^ diffString
]

{ #category : 'accessing' }
GLHDiff >> diffString: anObject [
        <generated>
        diffString := anObject
]

{ #category : 'accessing' }
GLHDiff >> file [
        "Relation named: #file type: #GLHFile opposite: #diffs"

        <generated>
        <derived>
        ^ file
]

{ #category : 'accessing' }
GLHDiff >> file: anObject [

        <generated>
        file value: anObject
]

{ #category : 'navigation' }
GLHDiff >> fileGroup [
        <generated>
        <navigation: 'File'>
        ^ MooseSpecializedGroup withAll: self file asSet
]

{ #category : 'as yet unclassified' }
GLHDiff >> inspectionGLHDiff [

        <inspectorPresentationOrder: 3 title: 'Files Impacted'>
        | canvas |
        canvas := RSCommitDiff canvasFor: self.

        ^ canvas asPresenter
]

{ #category : 'accessing' }
GLHDiff >> mergeRequest [
        "Relation named: #mergeRequest type: #GLHMergeRequest opposite: #diffs"

        <generated>
        ^ mergeRequest
]

{ #category : 'accessing' }
GLHDiff >> mergeRequest: anObject [

        <generated>
        mergeRequest := anObject
]

{ #category : 'accessing' }
GLHDiff >> new_file [

        <FMProperty: #new_file type: #Boolean defaultValue: false>
        <generated>
        <FMComment: 'Is the file of the diff is a new file'>
        ^ new_file ifNil: [ new_file := false ]
]

{ #category : 'accessing' }
GLHDiff >> new_file: anObject [
        <generated>
        new_file := anObject
]

{ #category : 'accessing' }
GLHDiff >> new_path [

        <FMProperty: #new_path type: #String>
        <generated>
        <FMComment: 'The path to the file in the resulted repository commitish'>
        ^ new_path
]

{ #category : 'accessing' }
GLHDiff >> new_path: anObject [
        <generated>
        new_path := anObject
]

{ #category : 'accessing' }
GLHDiff >> old_path [

        <FMProperty: #old_path type: #String>
        <generated>
        <FMComment: 'The path to the file in the origin repository commitish'>
        ^ old_path
]

{ #category : 'accessing' }
GLHDiff >> old_path: anObject [
        <generated>
        old_path := anObject
]

{ #category : 'accessing' }
GLHDiff >> renamed_file [

        <FMProperty: #renamed_file type: #Boolean defaultValue: false>
        <generated>
        <FMComment: 'Is the file of the diff has been renamed (see old_path/new_path) file'>
        ^ renamed_file ifNil: [ renamed_file := false ]
]

{ #category : 'accessing' }
GLHDiff >> renamed_file: anObject [
        <generated>
        renamed_file := anObject
]

1	"
2	The diff of a commit
3
4	## Relations
5	======================
6
7	### Parents
8	\| Relation \| Origin \| Opposite \| Type \| Comment \|
9	\|---\|
10	\| `commit` \| `GLHDiff` \| `diffs` \| `GLHCommit` \| \|
11
12	### Children
13	\| Relation \| Origin \| Opposite \| Type \| Comment \|
14	\|---\|
15	\| `diffRanges` \| `GLHDiff` \| `diff` \| `GLHDiffRange` \| \|
16	\| `file` \| `GLHDiff` \| `diffs` \| `GLHFile` \| \|
17
18	### Other
19	\| Relation \| Origin \| Opposite \| Type \| Comment \|
20	\|---\|
21	\| `mergeRequest` \| `GLHDiff` \| `diffs` \| `GLHMergeRequest` \| \|
22
23
24	## Properties
25	======================
26
27	\| Name \| Type \| Default value \| Comment \|
28	\|---\|
29	\| `deleted_file` \| `Boolean` \| false \| Is the file of the diff has been removed\|
30	\| `diffString` \| `String` \| nil \| The string presenting the diff. It should follow the [Detailed-Unified](https://www.gnu.org/software/diffutils/manual/html_node/Detailed-Unified.html) format\|
31	\| `name` \| `String` \| nil \| Basic name of the entity, not full reference.\|
32	\| `new_file` \| `Boolean` \| false \| Is the file of the diff is a new file\|
33	\| `new_path` \| `String` \| nil \| The path to the file in the resulted repository commitish\|
34	\| `old_path` \| `String` \| nil \| The path to the file in the origin repository commitish\|
35	\| `renamed_file` \| `Boolean` \| false \| Is the file of the diff has been renamed (see old_path/new_path) file\|
36
37	"
38	Class {
39	#name : 'GLHDiff',
40	#superclass : 'GLHEntity',
41	#traits : 'FamixTNamedEntity',
42	#classTraits : 'FamixTNamedEntity classTrait',
43	#instVars : [
44	'#commit => FMOne type: #GLHCommit opposite: #diffs',
45	'#deleted_file => FMProperty defaultValue: false',
46	'#diffRanges => FMMany type: #GLHDiffRange opposite: #diff',
47	'#diffString => FMProperty',
48	'#file => FMMany type: #GLHFile opposite: #diffs',
49	'#mergeRequest => FMOne type: #GLHMergeRequest opposite: #diffs',
50	'#new_file => FMProperty defaultValue: false',
51	'#new_path => FMProperty',
52	'#old_path => FMProperty',
53	'#renamed_file => FMProperty defaultValue: false'
54	],
55	#category : 'GitLabHealth-Model-Entities',
56	#package : 'GitLabHealth-Model',
57	#tag : 'Entities'
58	}
59
60	{ #category : 'meta' }
61	GLHDiff class >> annotation [	×
62		×
63	<FMClass: #Diff super: #GLHEntity>	×
64	<package: #'GitLabHealth-Model'>	×
65	<generated>	×
66	^ self	×
67	]	×
68
69	{ #category : 'adding' }
NEW 70	GLHDiff >> addDiffRange: anObject [	×
NEW 71	<generated>	×
NEW 72	^ self diffRanges add: anObject	×
NEW 73	]	×
74
75	{ #category : 'adding' }
NEW 76	GLHDiff >> addFile: anObject [	×
NEW 77	<generated>	×
NEW 78	^ self file add: anObject	×
NEW 79	]	×
80
81	{ #category : 'accessing' }
82	GLHDiff >> commit [	1✔
83	"Relation named: #commit type: #GLHCommit opposite: #diffs"	1✔
84		1✔
85	<generated>	1✔
86	<container>	1✔
87	^ commit	1✔
88	]	1✔
89
90	{ #category : 'accessing' }
91	GLHDiff >> commit: anObject [	×
92		×
93	<generated>	×
94	commit := anObject	×
95	]	×
96
97	{ #category : 'navigation' }
98	GLHDiff >> commitGroup [	×
99	<generated>	×
100	<navigation: 'Commit'>	×
101	^ MooseSpecializedGroup with: self commit	×
102	]	×
103
104	{ #category : 'accessing' }
105	GLHDiff >> deleted_file [	×
106		×
107	<FMProperty: #deleted_file type: #Boolean defaultValue: false>	×
108	<generated>	×
109	<FMComment: 'Is the file of the diff has been removed'>	×
110	^ deleted_file ifNil: [ deleted_file := false ]	×
111	]	×
112
113	{ #category : 'accessing' }
114	GLHDiff >> deleted_file: anObject [	×
115	<generated>	×
116	deleted_file := anObject	×
117	]	×
118
119	{ #category : 'accessing' }
120	GLHDiff >> diffRanges [	1✔
121	"Relation named: #diffRanges type: #GLHDiffRange opposite: #diff"	1✔
122		1✔
123	<generated>	1✔
124	<derived>	1✔
125	^ diffRanges	1✔
126	]	1✔
127
128	{ #category : 'accessing' }
129	GLHDiff >> diffRanges: anObject [	1✔
130		1✔
131	<generated>	1✔
132	diffRanges value: anObject	1✔
133	]	1✔
134
135	{ #category : 'navigation' }
NEW 136	GLHDiff >> diffRangesGroup [	×
NEW 137	<generated>	×
NEW 138	<navigation: 'DiffRanges'>	×
NEW 139	^ MooseSpecializedGroup withAll: self diffRanges asSet	×
NEW 140	]	×
141
142	{ #category : 'accessing' }
143	GLHDiff >> diffString [	1✔
144		1✔
145	<FMProperty: #diffString type: #String>	1✔
146	<generated>	1✔
147	<FMComment: 'The string presenting the diff. It should follow the [Detailed-Unified](https://www.gnu.org/software/diffutils/manual/html_node/Detailed-Unified.html) format'>	1✔
148	^ diffString	1✔
149	]	1✔
150
151	{ #category : 'accessing' }
152	GLHDiff >> diffString: anObject [	1✔
153	<generated>	1✔
154	diffString := anObject	1✔
155	]	1✔
156
157	{ #category : 'accessing' }
NEW 158	GLHDiff >> file [	×
NEW 159	"Relation named: #file type: #GLHFile opposite: #diffs"	×
NEW 160		×
NEW 161	<generated>	×
NEW 162	<derived>	×
NEW 163	^ file	×
NEW 164	]	×
165
166	{ #category : 'accessing' }
NEW 167	GLHDiff >> file: anObject [	×
NEW 168		×
NEW 169	<generated>	×
NEW 170	file value: anObject	×
NEW 171	]	×
172
173	{ #category : 'navigation' }
NEW 174	GLHDiff >> fileGroup [	×
NEW 175	<generated>	×
NEW 176	<navigation: 'File'>	×
NEW 177	^ MooseSpecializedGroup withAll: self file asSet	×
NEW 178	]	×
179
180	{ #category : 'as yet unclassified' }
181	GLHDiff >> inspectionGLHDiff [	×
182		×
183	<inspectorPresentationOrder: 3 title: 'Files Impacted'>	×
184	\| canvas \|	×
185	canvas := RSCommitDiff canvasFor: self.	×
186		×
187	^ canvas asPresenter	×
188	]	×
189
190	{ #category : 'accessing' }
NEW 191	GLHDiff >> mergeRequest [	×
NEW 192	"Relation named: #mergeRequest type: #GLHMergeRequest opposite: #diffs"	×
NEW 193		×
NEW 194	<generated>	×
NEW 195	^ mergeRequest	×
NEW 196	]	×
197
198	{ #category : 'accessing' }
NEW 199	GLHDiff >> mergeRequest: anObject [	×
NEW 200		×
NEW 201	<generated>	×
NEW 202	mergeRequest := anObject	×
NEW 203	]	×
204
205	{ #category : 'accessing' }
206	GLHDiff >> new_file [	×
207		×
208	<FMProperty: #new_file type: #Boolean defaultValue: false>	×
209	<generated>	×
210	<FMComment: 'Is the file of the diff is a new file'>	×
211	^ new_file ifNil: [ new_file := false ]	×
212	]	×
213
214	{ #category : 'accessing' }
215	GLHDiff >> new_file: anObject [	×
216	<generated>	×
217	new_file := anObject	×
218	]	×
219
220	{ #category : 'accessing' }
221	GLHDiff >> new_path [	1✔
222		1✔
223	<FMProperty: #new_path type: #String>	1✔
224	<generated>	1✔
225	<FMComment: 'The path to the file in the resulted repository commitish'>	1✔
226	^ new_path	1✔
227	]	1✔
228
229	{ #category : 'accessing' }
230	GLHDiff >> new_path: anObject [	1✔
231	<generated>	1✔
232	new_path := anObject	1✔
233	]	1✔
234
235	{ #category : 'accessing' }
236	GLHDiff >> old_path [	×
237		×
238	<FMProperty: #old_path type: #String>	×
239	<generated>	×
240	<FMComment: 'The path to the file in the origin repository commitish'>	×
241	^ old_path	×
242	]	×
243
244	{ #category : 'accessing' }
245	GLHDiff >> old_path: anObject [	1✔
246	<generated>	1✔
247	old_path := anObject	1✔
248	]	1✔
249
250	{ #category : 'accessing' }
251	GLHDiff >> renamed_file [	×
252		×
253	<FMProperty: #renamed_file type: #Boolean defaultValue: false>	×
254	<generated>	×
255	<FMComment: 'Is the file of the diff has been renamed (see old_path/new_path) file'>	×
256	^ renamed_file ifNil: [ renamed_file := false ]	×
257	]	×
258
259	{ #category : 'accessing' }
260	GLHDiff >> renamed_file: anObject [	×
261	<generated>	×
262	renamed_file := anObject	×
263	]	×

moosetechnology / GitProjectHealth / 11498216048

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