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/GLHCommitDistributionVisualization.class.st

Class {
        #name : #GLHCommitDistributionVisualization,
        #superclass : #MiAbstractVisualization,
        #instVars : [
                'groupCommitBlock'
        ],
        #category : #'GitLabHealth-Model-Visualization'
}

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

        | c lb horizontal commitGroups groupToCommitByDate alreadyAdded dates commits |
        c := RSCompositeChart new.
        aCommitsCollection ifEmpty: [ ^ c canvas ].
        commits := aCommitsCollection sort: [ :c1 :c2 |
                           c1 committed_date > c2 committed_date ].
        "collect dates from oldest to youngest among commits"
        dates := (commits last committed_date to:
                  commits first committed_date) dates.

        "default is group by commitCreator (initialize)"
        commitGroups := commits groupedBy: self groupCommitBlock.

        groupToCommitByDate := commitGroups associations collect: [ :assoc |
                                       assoc key -> (dates collect: [ :date |
                                                date
                                                ->
                                                        (assoc value select: [ :commit | "weird, but only way I know to compare two dates with different timezone."
                                                                 commit committed_date asDate asString
                                                                 = date asString ]) ]) ].

        alreadyAdded := dates collect: [ :d | 0 ].
        groupToCommitByDate do: [ :assocGroupToCommitByDate |
                | chart |
                chart := (RSAbstractChart barHeights:
                                  (assocGroupToCommitByDate value collect: [ :dateToCommit |
                                           dateToCommit value size ])) bottom: alreadyAdded.
                c add: chart.
                alreadyAdded := alreadyAdded + chart yValues ].

        horizontal := c horizontalTick fromNames:
                              (dates collect: [ :date | date printString ]).
        horizontal configuration fontSize: 10.
        horizontal useDiagonalLabel.
        c verticalTick integer.
        c ylabel: 'Number of commits'.
        c title: 'Number of commits by date'.
        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
]

{ #category : #'as yet unclassified' }
GLHCommitDistributionVisualization >> groupCommitBlock [

        ^ groupCommitBlock
]

{ #category : #'as yet unclassified' }
GLHCommitDistributionVisualization >> groupCommitBlock: anObject [

        groupCommitBlock := anObject
]

{ #category : #initialization }
GLHCommitDistributionVisualization >> initialize [

        super initialize.
        groupCommitBlock := [ :commit | commit commitCreator ]
]

1	Class {
2	#name : #GLHCommitDistributionVisualization,
3	#superclass : #MiAbstractVisualization,
4	#instVars : [
5	'groupCommitBlock'
6	],
7	#category : #'GitLabHealth-Model-Visualization'
8	}
9
10	{ #category : #'instance creation' }
11	GLHCommitDistributionVisualization >> forCommits: aCommitsCollection [	×
12		×
NEW 13	\| c lb horizontal commitGroups groupToCommitByDate alreadyAdded dates commits \|	×
14	c := RSCompositeChart new.	×
NEW 15	aCommitsCollection ifEmpty: [ ^ c canvas ].	×
NEW 16	commits := aCommitsCollection sort: [ :c1 :c2 \|	×
NEW 17	c1 committed_date > c2 committed_date ].	×
18	"collect dates from oldest to youngest among commits"	×
NEW 19	dates := (commits last committed_date to:	×
NEW 20	commits first committed_date) dates.	×
21		×
22	"default is group by commitCreator (initialize)"	×
23	commitGroups := commits groupedBy: self groupCommitBlock.	×
24		×
25	groupToCommitByDate := commitGroups associations collect: [ :assoc \|	×
26	assoc key -> (dates collect: [ :date \|	×
27	date	×
28	->	×
NEW 29	(assoc value select: [ :commit \| "weird, but only way I know to compare two dates with different timezone."	×
NEW 30	commit committed_date asDate asString	×
NEW 31	= date asString ]) ]) ].	×
NEW 32		×
33	alreadyAdded := dates collect: [ :d \| 0 ].	×
34	groupToCommitByDate do: [ :assocGroupToCommitByDate \|	×
35	\| chart \|	×
36	chart := (RSAbstractChart barHeights:	×
37	(assocGroupToCommitByDate value collect: [ :dateToCommit \|	×
38	dateToCommit value size ])) bottom: alreadyAdded.	×
39	c add: chart.	×
40	alreadyAdded := alreadyAdded + chart yValues ].	×
41		×
42	horizontal := c horizontalTick fromNames:	×
43	(dates collect: [ :date \| date printString ]).	×
44	horizontal configuration fontSize: 10.	×
45	horizontal useDiagonalLabel.	×
46	c verticalTick integer.	×
47	c ylabel: 'Number of commits'.	×
48	c title: 'Number of commits by date'.	×
49	c build.	×
50	lb := RSLegend new.	×
51	lb layout vertical.	×
52	commitGroups keys doWithIndex: [ :groupObject :index \|	×
53	lb	×
54	text: groupObject fullDisplayString	×
55	withBoxColor: (c plots at: index) computeColor ].	×
56	lb container: c canvas.	×
57	lb location	×
58	right;	×
59	middle;	×
60	offset: 10 @ 0.	×
61	lb build.	×
62	^ c canvas	×
63	]	×
64
65	{ #category : #'as yet unclassified' }
66	GLHCommitDistributionVisualization >> groupCommitBlock [	×
67		×
68	^ groupCommitBlock	×
69	]	×
70
71	{ #category : #'as yet unclassified' }
72	GLHCommitDistributionVisualization >> groupCommitBlock: anObject [	×
73		×
74	groupCommitBlock := anObject	×
75	]	×
76
77	{ #category : #initialization }
78	GLHCommitDistributionVisualization >> initialize [	×
79		×
80	super initialize.	×
81	groupCommitBlock := [ :commit \| commit commitCreator ]	×
82	]	×

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