16020007540

Committed 02 Jul 2025 08:25AM UTC coverage: 74.906% (+0.5%) from 74.453%

Build # 16020007540

Build Type

Pull #209

github

Committed by

web-flow

Commit Message

Merge pull request #215 from moosetechnology/fix-commit-distributions

fixing commit not sort and comparing commit within different time zone

Pull Request Pull Request #209: Update with correct average for notes

Run Details

654 of 1074 new or added lines in 8 files covered. (60.89%)

52 existing lines in 2 files now uncovered.

17567 of 23452 relevant lines covered (74.91%)

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

moosetechnology / GitProjectHealth / 16020007540

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