19278031128

Committed 11 Nov 2025 08:43PM UTC coverage: 97.557% (+0.03%) from 97.527%

Build # 19278031128

Build Type

Pull #113

github

Committed by

jecisc

Commit Message

Further simplifications

Pull Request Pull Request #113: Compatibility

Run Details

0 of 8 new or added lines in 1 file covered. (0.0%)

4 existing lines in 1 file now uncovered.

559 of 573 relevant lines covered (97.56%)

5.79 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
}

{ #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	}
12
13	{ #category : #cleaning }
14	ChanelTestCaseNameCleaner >> clean [	6✔
15	self configuration definedTestCases iterator	6✔
16	\| [ :class \| class name endsWith: 'Tests' ] selectIt	6✔
17	\| [ :class \| self class environment hasClassNamed: class name allButLast ] rejectIt	6✔
18	> [ :class \| self rename: class as: class name allButLast ] doIt	6✔
19	]	6✔
20
21	{ #category : #cleaning }
UNCOV 22	ChanelTestCaseNameCleaner >> rename: class as: aString [	4✔
NEW 23		4✔
NEW 24	\| refactoringClass parameter \|	4✔
UNCOV 25	('Renaming ' , class name , ' to ' , aString) record.	4✔
UNCOV 26	self flag: #pharo10.	4✔
NEW 27	self flag: #pharo11.	4✔
NEW 28	parameter := SystemVersion current major < 10	4✔
NEW 29	ifTrue: [ class ]	4✔
NEW 30	ifFalse: [ class name ].	4✔
NEW 31	refactoringClass := self class environment at: #RBRenameClassRefactoring ifAbsent: [ self class environment at: #ReRenameClassRefactoring ].	4✔
NEW 32	(refactoringClass rename: parameter to: aString) execute	4✔
UNCOV 33	]	4✔

jecisc / Chanel / 19278031128

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