21145012808

Committed 19 Jan 2026 04:35PM UTC coverage: 97.557%. Remained the same

Build # 21145012808

Build Type

Pull #115

github

Committed by

jecisc

Commit Message

Drop Pharo 8 compatibility

Pull Request Pull Request #115: Drop Pharo 8 and add Pharo13 compatibility

Run Details

559 of 573 relevant lines covered (97.56%)

2.88 hits per line

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

100.0

/src/Chanel/ChanelTestCaseNameCleaner.class.st

"
Description
--------------------

I am a cleaner renaming each test case ending with ""Tests"" to end with ""Test"" since this is ""a XXTestCase"".
"
Class {
        #name : 'ChanelTestCaseNameCleaner',
        #superclass : 'ChanelAbstractCleaner',
        #category : 'Chanel',
        #package : 'Chanel'
}

{ #category : 'cleaning' }
ChanelTestCaseNameCleaner >> clean [
        self configuration definedTestCases iterator
                | [ :class | class name endsWith: 'Tests' ] selectIt
                | [ :class | self class environment hasClassNamed: class name allButLast ] rejectIt
                > [ :class | self rename: class as: class name allButLast ] doIt
]

{ #category : 'cleaning' }
ChanelTestCaseNameCleaner >> rename: class as: aString [

        | refactoringClass parameter |
        ('Renaming ' , class name , ' to ' , aString) record.
        self flag: #pharo10.
        self flag: #pharo11.
        parameter := SystemVersion current major < 10
                             ifTrue: [ class ]
                             ifFalse: [ class name ].
        refactoringClass := self class environment at: #RBRenameClassRefactoring ifAbsent: [ self class environment at: #ReRenameClassRefactoring ].
        (refactoringClass rename: parameter to: aString) execute
]

1	"
2	Description
3	--------------------
4
5	I am a cleaner renaming each test case ending with ""Tests"" to end with ""Test"" since this is ""a XXTestCase"".
6	"
7	Class {
8	#name : 'ChanelTestCaseNameCleaner',
9	#superclass : 'ChanelAbstractCleaner',
10	#category : 'Chanel',
11	#package : 'Chanel'
12	}
13
14	{ #category : 'cleaning' }
15	ChanelTestCaseNameCleaner >> clean [	3✔
16	self configuration definedTestCases iterator	3✔
17	\| [ :class \| class name endsWith: 'Tests' ] selectIt	3✔
18	\| [ :class \| self class environment hasClassNamed: class name allButLast ] rejectIt	3✔
19	> [ :class \| self rename: class as: class name allButLast ] doIt	3✔
20	]	3✔
21
22	{ #category : 'cleaning' }
23	ChanelTestCaseNameCleaner >> rename: class as: aString [	1✔
24		1✔
25	\| refactoringClass parameter \|	1✔
26	('Renaming ' , class name , ' to ' , aString) record.	1✔
27	self flag: #pharo10.	1✔
28	self flag: #pharo11.	1✔
29	parameter := SystemVersion current major < 10	1✔
30	ifTrue: [ class ]	1✔
31	ifFalse: [ class name ].	1✔
32	refactoringClass := self class environment at: #RBRenameClassRefactoring ifAbsent: [ self class environment at: #ReRenameClassRefactoring ].	1✔
33	(refactoringClass rename: parameter to: aString) execute	1✔
34	]	1✔

jecisc / Chanel / 21145012808

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