10849645153

Committed 13 Sep 2024 01:03PM UTC coverage: 17.669%. First build

Build # 10849645153

Build Type

Pull #54

github

Committed by

web-flow

Commit Message

Merge 9d4695b3c into 6bbc9cee6

Pull Request Pull Request #54: Metrics fixing

Run Details

0 of 156 new or added lines in 17 files covered. (0.0%)

1589 of 8993 relevant lines covered (17.67%)

0.18 hits per line

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

0.0

/src/GitLabHealth-Model-Analysis/MergeRequestDurationMetric.class.st

Class {
        #name : #MergeRequestDurationMetric,
        #superclass : #UserMergeRequestMetric,
        #category : #'GitLabHealth-Model-Analysis'
}

{ #category : #calculating }
MergeRequestDurationMetric >> calculate [

        | groupedByDate gitAnalyzer mergeRequestsValidation filterGroups |
        userMergeRequests ifNil: [ self load ].
        groupedByDate := self setupGroupedDate.

        userMergeRequests ifEmpty: [ ^ nil ].

        gitAnalyzer := GitAnalyzer new.

        mergeRequestsValidation := userMergeRequests collect: [ :mr |
                                           gitAnalyzer
                                                   analyseMergeResquestValidation: mr ].


        mergeRequestsValidation do: [ :dic |
                | overDate |
                overDate := self transformDate: (dic at: #created_at) to: over.

                groupedByDate
                        at: overDate printString
                        ifPresent: [ :durations | durations add: (dic at: #duration) ]
                        ifAbsentPut: [
                                OrderedCollection new
                                        add: (dic at: #duration);
                                        yourself ] ].


        filterGroups := groupedByDate reject: [ :array | array isEmpty ].

        filterGroups associations do: [ :assoc |
                | sum denominator |
                denominator := assoc value size.

                sum := assoc value sum: [ :v |
                               v ifNil: [
                                       denominator := denominator - 1.
                                       0 asDuration ] ].
                denominator = 0 ifTrue: [ denominator := 1 ].

                filterGroups at: assoc key put: sum / denominator ].

        ^ filterGroups average asSeconds
]

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

        ^ 'average time to merge a merge request (in seconds)'
]

{ #category : #accessing }
MergeRequestDurationMetric >> name [

        ^ 'mergeRequestDuration'
]

1	Class {
2	#name : #MergeRequestDurationMetric,
3	#superclass : #UserMergeRequestMetric,
4	#category : #'GitLabHealth-Model-Analysis'
5	}
6
7	{ #category : #calculating }
8	MergeRequestDurationMetric >> calculate [	×
9		×
10	\| groupedByDate gitAnalyzer mergeRequestsValidation filterGroups \|	×
11	userMergeRequests ifNil: [ self load ].	×
12	groupedByDate := self setupGroupedDate.	×
13		×
14	userMergeRequests ifEmpty: [ ^ nil ].	×
15		×
16	gitAnalyzer := GitAnalyzer new.	×
17		×
18	mergeRequestsValidation := userMergeRequests collect: [ :mr \|	×
19	gitAnalyzer	×
20	analyseMergeResquestValidation: mr ].	×
21		×
22		×
23	mergeRequestsValidation do: [ :dic \|	×
24	\| overDate \|	×
25	overDate := self transformDate: (dic at: #created_at) to: over.	×
26		×
27	groupedByDate	×
28	at: overDate printString	×
29	ifPresent: [ :durations \| durations add: (dic at: #duration) ]	×
30	ifAbsentPut: [	×
31	OrderedCollection new	×
32	add: (dic at: #duration);	×
33	yourself ] ].	×
34		×
35		×
36	filterGroups := groupedByDate reject: [ :array \| array isEmpty ].	×
37		×
38	filterGroups associations do: [ :assoc \|	×
39	\| sum denominator \|	×
40	denominator := assoc value size.	×
41		×
42	sum := assoc value sum: [ :v \|	×
43	v ifNil: [	×
44	denominator := denominator - 1.	×
45	0 asDuration ] ].	×
46	denominator = 0 ifTrue: [ denominator := 1 ].	×
47		×
48	filterGroups at: assoc key put: sum / denominator ].	×
49		×
50	^ filterGroups average asSeconds	×
51	]	×
52
53	{ #category : #accessing }
54	MergeRequestDurationMetric >> description [	×
55		×
NEW 56	^ 'average time to merge a merge request (in seconds)'	×
57	]	×
58
59	{ #category : #accessing }
60	MergeRequestDurationMetric >> name [	×
61		×
62	^ 'mergeRequestDuration'	×
63	]	×

moosetechnology / GitProjectHealth / 10849645153

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