16163940073

Committed 09 Jul 2025 08:10AM UTC coverage: 74.26% (-0.6%) from 74.908%

Build # 16163940073

Build Type

Pull #216

github

Committed by

web-flow

Commit Message

Merge ee8bd9087 into 8f0fcd09b

Pull Request Pull Request #216: add issue class in model

Run Details

10 of 328 new or added lines in 6 files covered. (3.05%)

24 existing lines in 2 files now uncovered.

17584 of 23679 relevant lines covered (74.26%)

0.74 hits per line

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

0.0

/src/GitLabHealth-Model-Visualization/GLHCommitDistributionByWeekDayVisualization.class.st

Class {
        #name : #GLHCommitDistributionByWeekDayVisualization,
        #superclass : #GLHCommitDistributionVisualization,
        #category : #'GitLabHealth-Model-Visualization'
}

{ #category : #'instance creation' }
GLHCommitDistributionByWeekDayVisualization >> forCommits: aCommitsCollection [

        | c lb horizontal commitGroups alreadyAdded dates groupToCommitByProject |
        c := RSCompositeChart new.
        aCommitsCollection ifEmpty: [ ^ c canvas ].

        dates := Date dayNames.

        "default is group by commitCreator (initialize)"
        commitGroups := aCommitsCollection groupedBy: [ :commit |
                                commit repository project name ].

        groupToCommitByProject := commitGroups associations collect: [ :assoc |
                                          assoc key -> (dates collect: [ :date |
                                                   date
                                                   -> (assoc value select: [ :commit |
                                                                    commit committed_date dayOfWeekName
                                                                    = date ]) ]) ].



        alreadyAdded := dates asArray collect: [ :d | 0 ].

        groupToCommitByProject do: [ :assocGroupToCommitByProject |
                | chart |
                chart := (RSAbstractChart barHeights:
                                  (assocGroupToCommitByProject value collect: [
                                           :project2Commits | project2Commits value size ]))
                                 bottom: alreadyAdded.
                c add: chart.
                chart color: assocGroupToCommitByProject key asColorHSL.
                alreadyAdded := alreadyAdded + chart yValues asArray ].

        horizontal := c horizontalTick fromNames: dates.
        horizontal configuration fontSize: 10.
        horizontal useDiagonalLabel.
        c verticalTick integer.
        c ylabel: 'Number of commits'.
        c title: 'Number of commits by Day of the Week'.
        c build.
        
        
        
        lb := RSLegend new.
        lb layout vertical.
        commitGroups keys doWithIndex: [ :groupObject :index |
                lb
                        text: groupObject fullDisplayString
                        withBoxColor: (c plots at: index) computeColor ].
        lb container: c canvas.
        lb location
                right;
                middle;
                offset: 10 @ 0.
        lb build.
        ^ c canvas
]

1	Class {
2	#name : #GLHCommitDistributionByWeekDayVisualization,
3	#superclass : #GLHCommitDistributionVisualization,
4	#category : #'GitLabHealth-Model-Visualization'
5	}
6
7	{ #category : #'instance creation' }
NEW 8	GLHCommitDistributionByWeekDayVisualization >> forCommits: aCommitsCollection [	×
NEW 9		×
NEW 10	\| c lb horizontal commitGroups alreadyAdded dates groupToCommitByProject \|	×
NEW 11	c := RSCompositeChart new.	×
NEW 12	aCommitsCollection ifEmpty: [ ^ c canvas ].	×
NEW 13		×
NEW 14	dates := Date dayNames.	×
NEW 15		×
NEW 16	"default is group by commitCreator (initialize)"	×
NEW 17	commitGroups := aCommitsCollection groupedBy: [ :commit \|	×
NEW 18	commit repository project name ].	×
NEW 19		×
NEW 20	groupToCommitByProject := commitGroups associations collect: [ :assoc \|	×
NEW 21	assoc key -> (dates collect: [ :date \|	×
NEW 22	date	×
NEW 23	-> (assoc value select: [ :commit \|	×
NEW 24	commit committed_date dayOfWeekName	×
NEW 25	= date ]) ]) ].	×
NEW 26		×
NEW 27		×
NEW 28		×
NEW 29	alreadyAdded := dates asArray collect: [ :d \| 0 ].	×
NEW 30		×
NEW 31	groupToCommitByProject do: [ :assocGroupToCommitByProject \|	×
NEW 32	\| chart \|	×
NEW 33	chart := (RSAbstractChart barHeights:	×
NEW 34	(assocGroupToCommitByProject value collect: [	×
NEW 35	:project2Commits \| project2Commits value size ]))	×
NEW 36	bottom: alreadyAdded.	×
NEW 37	c add: chart.	×
NEW 38	chart color: assocGroupToCommitByProject key asColorHSL.	×
NEW 39	alreadyAdded := alreadyAdded + chart yValues asArray ].	×
NEW 40		×
NEW 41	horizontal := c horizontalTick fromNames: dates.	×
NEW 42	horizontal configuration fontSize: 10.	×
NEW 43	horizontal useDiagonalLabel.	×
NEW 44	c verticalTick integer.	×
NEW 45	c ylabel: 'Number of commits'.	×
NEW 46	c title: 'Number of commits by Day of the Week'.	×
NEW 47	c build.	×
NEW 48		×
NEW 49		×
NEW 50		×
NEW 51	lb := RSLegend new.	×
NEW 52	lb layout vertical.	×
NEW 53	commitGroups keys doWithIndex: [ :groupObject :index \|	×
NEW 54	lb	×
NEW 55	text: groupObject fullDisplayString	×
NEW 56	withBoxColor: (c plots at: index) computeColor ].	×
NEW 57	lb container: c canvas.	×
NEW 58	lb location	×
NEW 59	right;	×
NEW 60	middle;	×
NEW 61	offset: 10 @ 0.	×
NEW 62	lb build.	×
NEW 63	^ c canvas	×
NEW 64	]	×

moosetechnology / GitProjectHealth / 16163940073

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