• Home
  • Features
  • Pricing
  • Docs
  • Announcements
  • Sign In

moosetechnology / GitProjectHealth / 11163879852

03 Oct 2024 02:24PM UTC coverage: 58.906% (+25.2%) from 33.667%
11163879852

push

github

web-flow
Merge pull request #75 from moosetechnology/develop

V1.0.0

6210 of 8212 new or added lines in 80 files covered. (75.62%)

130 existing lines in 6 files now uncovered.

8903 of 15114 relevant lines covered (58.91%)

0.59 hits per line

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

90.7
/src/GitLabHealth-Model-Analysis/CommentContributionMetric.class.st
1
Class {
2
        #name : #CommentContributionMetric,
3
        #superclass : #UserCommitsMetric,
4
        #category : #'GitLabHealth-Model-Analysis'
5
}
6

7
{ #category : #calculating }
8
CommentContributionMetric >> calculate [
1✔
9

1✔
10
        | groupedByDate gitAnalyzer contributions |
1✔
11
        userCommits ifNil: [ self load ].
1✔
12
        groupedByDate := self setupGroupedDate.
1✔
13

1✔
14
        gitAnalyzer := GitAnalyzer new.
1✔
15

1✔
16
        contributions := userCommits collect: [ :commit |
1✔
17
                                 commit -> (gitAnalyzer
1✔
18
                                          fromCommit: commit;
1✔
19
                                          analyseCommentContribution) ].
1✔
20

1✔
21

1✔
22
        contributions do: [ :assoc |
1✔
23
                | dateOver |
1✔
24
                dateOver := self transformDate: assoc key created_at to: over.
1✔
25
                groupedByDate
1✔
26
                        at: dateOver printString
1✔
27
                        ifPresent: [ :v | v add: assoc value ]
1✔
28
                        ifAbsentPut: [
1✔
29
                                OrderedCollection new
1✔
30
                                        add: assoc value;
1✔
31
                                        yourself ] ].
1✔
32

1✔
33
        groupedByDate := groupedByDate collect: [ :contribs |
1✔
34
                                 contribs
1✔
35
                                         ifNotEmpty: [ contribs sum ]
1✔
36
                                         ifEmpty: [ 0 ] ].
1✔
37

1✔
38

1✔
39
        ^ groupedByDate average asFloat
1✔
40
]
1✔
41

42
{ #category : #accessing }
NEW
43
CommentContributionMetric >> description [
×
NEW
44

×
NEW
45
        ^ 'comment contribution (avg)'
×
NEW
46
]
×
47

48
{ #category : #loading }
49
CommentContributionMetric >> load [
1✔
50

1✔
51
        userCommits := self
1✔
52
                               loadUserCompleteCommitsSince: (period at: #since)
1✔
53
                               until: (period at: #until)
1✔
54
]
1✔
STATUS · Troubleshooting · Open an Issue · Sales · Support · CAREERS · ENTERPRISE · START FREE · SCHEDULE DEMO
ANNOUNCEMENTS · TWITTER · TOS & SLA · Supported CI Services · What's a CI service? · Automated Testing

© 2026 Coveralls, Inc