15590759202

Committed 11 Jun 2025 04:47PM UTC coverage: 27.322% (-4.2%) from 31.536%

Build # 15590759202

Build Type

push

github

Committed by

Gabriel-Darbord

Commit Message

Complete mappings
And finally fix tests!?

Run Details

64 of 199 new or added lines in 10 files covered. (32.16%)

614 existing lines in 23 files now uncovered.

603 of 2207 relevant lines covered (27.32%)

0.27 hits per line

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

0.0

/src/Famix-UnitTest-Exporter/FamixUTHelperSetUpStrategy.class.st

"
I export Arrange elements as methods in an external helper class.
"
Class {
        #name : 'FamixUTHelperSetUpStrategy',
        #superclass : 'FamixUTAbstractSetUpStrategy',
        #instVars : [
                'helpers'
        ],
        #category : 'Famix-UnitTest-Exporter-Strategies',
        #package : 'Famix-UnitTest-Exporter',
        #tag : 'Strategies'
}

{ #category : 'ast' }
FamixUTHelperSetUpStrategy >> ensureHelperClassOn: aFamixUTExporter [
        "Get or create the helper class for the exporter's current class."

        | model className |
        model := aFamixUTExporter model.
        className := aFamixUTExporter currentClass name , 'Helper'.
        ^ helpers
                  at: className
                  ifAbsentPut: [ "add import for the helper class and create it"
                          aFamixUTExporter currentCompilationUnit addImportDeclaration:
                                  (model newImportDeclaration
                                           qualifiedName:
                                                   (model newQualifiedName name: ((WriteStream with:
                                                                                      aFamixUTExporter currentCompilationUnit
                                                                                              packageDeclaration qualifiedName name) << '.'
                                                                     << className) contents);
                                           isStatic: true;
                                           isOnDemand: true).
                          self makeHelperClassNamed: className on: aFamixUTExporter ]
]

{ #category : 'exporting' }
FamixUTHelperSetUpStrategy >> export: aFamixUTSetUp on: aFamixUTExporter [

        | model valueExporter helperClass comment |
        aFamixUTSetUp values ifEmpty: [ ^ self ].
        model := aFamixUTExporter model.
        valueExporter := aFamixUTExporter valueExporter.
        comment := '/**{@link ' , aFamixUTSetUp method case name , '#'
                   , aFamixUTSetUp method name , '()}*/'.

        "Only make helper if necessary => at least one non-empty object, collection or dictionary."
        aFamixUTSetUp values do: [ :value |
                ((value isOfObject or: [
                          value isOfCollection or: [ value isOfDictionary ] ]) and: [
                         value value isNotEmpty ])
                        ifFalse: [ value accept: valueExporter ]
                        ifTrue: [ "make the helper method to reconstruct the value"
                                | helperName helperMethod |
                                helperName := ((WriteStream with: 'given_') << value roleName
                                               << '_for_' << aFamixUTSetUp method name) contents.

                                (helperMethod := self
                                                         makeHelperMethodFor: value
                                                         on: aFamixUTExporter)
                                        name: helperName;
                                        addComment: (model newComment content: comment).

                                helperClass ifNil: [
                                        helperClass := self ensureHelperClassOn: aFamixUTExporter ].
                                helperClass addDeclaration: helperMethod.

                                "Add necessary imports to the helper class"
                                helperClass compilationUnit importDeclarations addAll:
                                        (valueExporter builder makeImportDeclarations: value).

                                "Add the helper to the method mapping"
                                (aFamixUTExporter mapping atMethod: aFamixUTSetUp method)
                                        addHelper: helperMethod
                                        named: helperName.

                                "IMPORTANT: build the method before calling it and assigning it to the variable,
                                because a value is considered already exported if it has been named!"
                                valueExporter statementBlock addStatement:
                                        (model newVarDeclStatement
                                                 type: (value asFASTJavaTypeExpressionOn: valueExporter);
                                                 addDeclarator: (model newVariableDeclarator
                                                                  variable: (valueExporter makeVariableExpression: value);
                                                                  expression: (model newMethodInvocation name: helperName));
                                                 yourself) ] ]
]

{ #category : 'accessing' }
FamixUTHelperSetUpStrategy >> helpers [

        ^ helpers
]

{ #category : 'initialization' }
FamixUTHelperSetUpStrategy >> initialize [

        helpers := Dictionary new
]

{ #category : 'ast' }
FamixUTHelperSetUpStrategy >> makeHelperClassNamed: className on: aFamixUTExporter [
        "Make a compilation unit containing the helper class and return the latter."

        | model |
        model := aFamixUTExporter model.
        ^ model newCompilationUnit
                  packageDeclaration: (model newPackageDeclaration qualifiedName:
                                           (model newQualifiedName name:
                                                            aFamixUTExporter currentCompilationUnit packageDeclaration
                                                                    qualifiedName name));
                  addClassDeclaration: (model newClassDeclaration name: className)
]

{ #category : 'ast' }
FamixUTHelperSetUpStrategy >> makeHelperMethodFor: value on: aFamixUTExporter [
        "Export the value inside the helper method, then restore the previous context."

        | model valueExporter method oldStatementBlock newStatementBlock |
        model := aFamixUTExporter model.
        valueExporter := aFamixUTExporter valueExporter.
        oldStatementBlock := valueExporter statementBlock.
        method := model newMethodEntity
                          addModifier: (model newModifier token: 'public');
                          addModifier: (model newModifier token: 'static');
                          type: (valueExporter builder referType: value type);
                          statementBlock:
                                  (newStatementBlock := model newStatementBlock).
        value accept: (valueExporter statementBlock: newStatementBlock).
        newStatementBlock addStatement:
                (model newReturnStatement expression:
                         (valueExporter makeVariableExpression: value)).
        valueExporter statementBlock: oldStatementBlock.
        ^ method
]

1	"
2	I export Arrange elements as methods in an external helper class.
3	"
4	Class {
5	#name : 'FamixUTHelperSetUpStrategy',
6	#superclass : 'FamixUTAbstractSetUpStrategy',
7	#instVars : [
8	'helpers'
9	],
10	#category : 'Famix-UnitTest-Exporter-Strategies',
11	#package : 'Famix-UnitTest-Exporter',
12	#tag : 'Strategies'
13	}
14
15	{ #category : 'ast' }
16	FamixUTHelperSetUpStrategy >> ensureHelperClassOn: aFamixUTExporter [	×
17	"Get or create the helper class for the exporter's current class."	×
18		×
19	\| model className \|	×
20	model := aFamixUTExporter model.	×
21	className := aFamixUTExporter currentClass name , 'Helper'.	×
22	^ helpers	×
23	at: className	×
24	ifAbsentPut: [ "add import for the helper class and create it"	×
25	aFamixUTExporter currentCompilationUnit addImportDeclaration:	×
26	(model newImportDeclaration	×
27	qualifiedName:	×
28	(model newQualifiedName name: ((WriteStream with:	×
29	aFamixUTExporter currentCompilationUnit	×
30	packageDeclaration qualifiedName name) << '.'	×
UNCOV 31	<< className) contents);	×
UNCOV 32	isStatic: true;	×
33	isOnDemand: true).	×
34	self makeHelperClassNamed: className on: aFamixUTExporter ]	×
35	]	×
36
37	{ #category : 'exporting' }
38	FamixUTHelperSetUpStrategy >> export: aFamixUTSetUp on: aFamixUTExporter [	×
39		×
40	\| model valueExporter helperClass comment \|	×
41	aFamixUTSetUp values ifEmpty: [ ^ self ].	×
42	model := aFamixUTExporter model.	×
43	valueExporter := aFamixUTExporter valueExporter.	×
44	comment := '/**{@link ' , aFamixUTSetUp method case name , '#'	×
45	, aFamixUTSetUp method name , '()}*/'.	×
46		×
47	"Only make helper if necessary => at least one non-empty object, collection or dictionary."	×
48	aFamixUTSetUp values do: [ :value \|	×
49	((value isOfObject or: [	×
50	value isOfCollection or: [ value isOfDictionary ] ]) and: [	×
51	value value isNotEmpty ])	×
52	ifFalse: [ value accept: valueExporter ]	×
53	ifTrue: [ "make the helper method to reconstruct the value"	×
NEW 54	\| helperName helperMethod \|	×
NEW 55	helperName := ((WriteStream with: 'given_') << value roleName	×
56	<< '_for_' << aFamixUTSetUp method name) contents.	×
57		×
NEW 58	(helperMethod := self	×
NEW 59	makeHelperMethodFor: value	×
NEW 60	on: aFamixUTExporter)	×
NEW 61	name: helperName;	×
NEW 62	addComment: (model newComment content: comment).	×
NEW 63		×
64	helperClass ifNil: [	×
65	helperClass := self ensureHelperClassOn: aFamixUTExporter ].	×
NEW 66	helperClass addDeclaration: helperMethod.	×
67		×
NEW 68	"Add necessary imports to the helper class"	×
69	helperClass compilationUnit importDeclarations addAll:	×
70	(valueExporter builder makeImportDeclarations: value).	×
71		×
NEW 72	"Add the helper to the method mapping"	×
NEW 73	(aFamixUTExporter mapping atMethod: aFamixUTSetUp method)	×
NEW 74	addHelper: helperMethod	×
NEW 75	named: helperName.	×
NEW 76		×
77	"IMPORTANT: build the method before calling it and assigning it to the variable,	×
78	because a value is considered already exported if it has been named!"	×
79	valueExporter statementBlock addStatement:	×
80	(model newVarDeclStatement	×
81	type: (value asFASTJavaTypeExpressionOn: valueExporter);	×
82	addDeclarator: (model newVariableDeclarator	×
UNCOV 83	variable: (valueExporter makeVariableExpression: value);	×
NEW 84	expression: (model newMethodInvocation name: helperName));	×
85	yourself) ] ]	×
86	]	×
87
88	{ #category : 'accessing' }
89	FamixUTHelperSetUpStrategy >> helpers [	×
90		×
91	^ helpers	×
92	]	×
93
94	{ #category : 'initialization' }
95	FamixUTHelperSetUpStrategy >> initialize [	×
96		×
97	helpers := Dictionary new	×
98	]	×
99
100	{ #category : 'ast' }
UNCOV 101	FamixUTHelperSetUpStrategy >> makeHelperClassNamed: className on: aFamixUTExporter [	×
102	"Make a compilation unit containing the helper class and return the latter."	×
103		×
104	\| model \|	×
105	model := aFamixUTExporter model.	×
106	^ model newCompilationUnit	×
107	packageDeclaration: (model newPackageDeclaration qualifiedName:	×
108	(model newQualifiedName name:	×
109	aFamixUTExporter currentCompilationUnit packageDeclaration	×
110	qualifiedName name));	×
111	addClassDeclaration: (model newClassDeclaration name: className)	×
112	]	×
113
114	{ #category : 'ast' }
115	FamixUTHelperSetUpStrategy >> makeHelperMethodFor: value on: aFamixUTExporter [	×
116	"Export the value inside the helper method, then restore the previous context."	×
117		×
118	\| model valueExporter method oldStatementBlock newStatementBlock \|	×
119	model := aFamixUTExporter model.	×
120	valueExporter := aFamixUTExporter valueExporter.	×
121	oldStatementBlock := valueExporter statementBlock.	×
UNCOV 122	method := model newMethodEntity	×
UNCOV 123	addModifier: (model newModifier token: 'public');	×
UNCOV 124	addModifier: (model newModifier token: 'static');	×
UNCOV 125	type: (valueExporter builder referType: value type);	×
UNCOV 126	statementBlock:	×
UNCOV 127	(newStatementBlock := model newStatementBlock).	×
UNCOV 128	value accept: (valueExporter statementBlock: newStatementBlock).	×
UNCOV 129	newStatementBlock addStatement:	×
UNCOV 130	(model newReturnStatement expression:	×
UNCOV 131	(valueExporter makeVariableExpression: value)).	×
UNCOV 132	valueExporter statementBlock: oldStatementBlock.	×
UNCOV 133	^ method	×
UNCOV 134	]	×

moosetechnology / Famix-UnitTest / 15590759202

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