15776545908

Committed 20 Jun 2025 10:07AM UTC coverage: 74.916% (+0.5%) from 74.453%

Build # 15776545908

Build Type

Pull #209

github

Committed by

web-flow

Commit Message

Merge pull request #213 from moosetechnology/more-test-notes

add the massively important asFloat....

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

Run Details

681 of 1102 new or added lines in 10 files covered. (61.8%)

52 existing lines in 2 files now uncovered.

17567 of 23449 relevant lines covered (74.92%)

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: commits [

        | c lb oldestCommit horizontal commitGroups groupToCommitByDate alreadyAdded dates |
        c := RSCompositeChart new.
        commits ifEmpty: [ ^ c canvas].
        oldestCommit := commits last.
        dates := (oldestCommit committed_date to: Date today) dates.

        commitGroups := commits groupedBy: self groupCommitBlock.

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

        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 := chart yValues ].

        horizontal := c horizontalTick fromNames:
                              (dates collect: [ :date | date printString ]).
        horizontal configuration fontSize: 2.
        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: commits [	×
NEW 12		×
NEW 13	\| c lb oldestCommit horizontal commitGroups groupToCommitByDate alreadyAdded dates \|	×
NEW 14	c := RSCompositeChart new.	×
NEW 15	commits ifEmpty: [ ^ c canvas].	×
NEW 16	oldestCommit := commits last.	×
NEW 17	dates := (oldestCommit committed_date to: Date today) dates.	×
NEW 18		×
NEW 19	commitGroups := commits groupedBy: self groupCommitBlock.	×
NEW 20		×
NEW 21	groupToCommitByDate := commitGroups associations collect: [ :assoc \|	×
NEW 22	assoc key -> (dates collect: [ :date \|	×
NEW 23	date	×
NEW 24	->	×
NEW 25	(assoc value select: [ :commit \|	×
NEW 26	commit committed_date asDate = date ]) ]) ].	×
NEW 27		×
NEW 28	alreadyAdded := dates collect: [ :d \| 0 ].	×
NEW 29	groupToCommitByDate do: [ :assocGroupToCommitByDate \|	×
NEW 30	\| chart \|	×
NEW 31	chart := (RSAbstractChart barHeights:	×
NEW 32	(assocGroupToCommitByDate value collect: [ :dateToCommit \|	×
NEW 33	dateToCommit value size ])) bottom: alreadyAdded.	×
NEW 34	c add: chart.	×
NEW 35	alreadyAdded := chart yValues ].	×
NEW 36		×
NEW 37	horizontal := c horizontalTick fromNames:	×
NEW 38	(dates collect: [ :date \| date printString ]).	×
NEW 39	horizontal configuration fontSize: 2.	×
NEW 40	horizontal useDiagonalLabel.	×
NEW 41	c verticalTick integer.	×
NEW 42	c ylabel: 'Number of commits'.	×
NEW 43	c title: 'Number of commits by date'.	×
NEW 44	c build.	×
NEW 45	lb := RSLegend new.	×
NEW 46	lb layout vertical.	×
NEW 47	commitGroups keys doWithIndex: [ :groupObject :index \|	×
NEW 48	lb	×
NEW 49	text: groupObject fullDisplayString	×
NEW 50	withBoxColor: (c plots at: index) computeColor ].	×
NEW 51	lb container: c canvas.	×
NEW 52	lb location	×
NEW 53	right;	×
NEW 54	middle;	×
NEW 55	offset: 10 @ 0.	×
NEW 56	lb build.	×
NEW 57	^ c canvas	×
NEW 58	]	×
59
60	{ #category : #'as yet unclassified' }
NEW 61	GLHCommitDistributionVisualization >> groupCommitBlock [	×
NEW 62		×
NEW 63	^ groupCommitBlock	×
NEW 64	]	×
65
66	{ #category : #'as yet unclassified' }
NEW 67	GLHCommitDistributionVisualization >> groupCommitBlock: anObject [	×
NEW 68		×
NEW 69	groupCommitBlock := anObject	×
NEW 70	]	×
71
72	{ #category : #initialization }
NEW 73	GLHCommitDistributionVisualization >> initialize [	×
NEW 74		×
NEW 75	super initialize.	×
NEW 76	groupCommitBlock := [ :commit \| commit commitCreator ]	×
NEW 77	]	×

moosetechnology / GitProjectHealth / 15776545908

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