Merge pull request #16401 from hernanmd/fix_ep_fileout_class_comments

Add support for Epicea file out

src/Epicea-Tests/EpCodeChangeIntegrationTest.class.st

@@ -38,6 +38,28 @@ EpCodeChangeIntegrationTest >> testBehaviorCommentChange [
 	self assert: (self countLogEventsWith: EpBehaviorCommentChange) equals: 1
 ]
 
+{ #category : 'tests' }
+EpCodeChangeIntegrationTest >> testBehaviorCommentChangeWithoutStamp [
+
+	| newClass |
+	self assert: (self countLogEventsWith: EpBehaviorCommentChange) equals: 0.
+
+	newClass := classFactory newClass.
+	newClass comment: 'This is a comment'.
+	self assert: (self countLogEventsWith: EpBehaviorCommentChange) equals: 1
+]
+
+{ #category : 'tests' }
+EpCodeChangeIntegrationTest >> testBehaviorNameChange [
+
+	| newClass |
+	self assert: (self countLogEventsWith: EpBehaviorNameChange) equals: 0.
+
+	newClass := classFactory newClass.
+	newClass rename: #AnotherClassNameForTesting1.
+	self assert: (self countLogEventsWith: EpBehaviorNameChange) equals: 1
+]
+
 { #category : 'tests' }
 EpCodeChangeIntegrationTest >> testClassAddition [
 

src/Epicea/EpBehaviorCommentChange.class.st

@@ -54,6 +54,17 @@ EpBehaviorCommentChange >> behaviorAffectedName [
 	^ behavior name
 ]
 
+{ #category : 'accessing' }
+EpBehaviorCommentChange >> fileOutEntryOn: aWriteStream [ 
+
+	aWriteStream
+		nextPutAll: '(self class environment at: #';
+		nextPutAll: self behaviorAffectedName;
+		nextPutAll: ') comment: ';
+		nextChunkPut: self newComment surroundedBySingleQuotes;
+		cr
+]
+
 { #category : 'initialization' }
 EpBehaviorCommentChange >> initializeWithBehavior: aBehavior oldComment: anOldComment newComment: aNewComment oldStamp: anOldStamp newStamp: aNewStamp [
 

src/Epicea/EpBehaviorNameChange.class.st

@@ -44,6 +44,17 @@ EpBehaviorNameChange >> classAffected [
 	^ behavior
 ]
 
+{ #category : 'accessing' }
+EpBehaviorNameChange >> fileOutEntryOn: aWriteStream [ 
+
+	aWriteStream
+		nextPutAll: '(self class environment at: #';
+		nextPutAll: self oldName;
+		nextPutAll: ') rename: ';
+		nextChunkPut: self newName;
+		cr
+]
+
 { #category : 'initialization' }
 EpBehaviorNameChange >> initializeOldName: anOldName newName: aNewName class: aBehavior [
 

src/Epicea/EpClassModification.class.st

@@ -42,13 +42,14 @@ EpClassModification >> behaviorAffectedName [
 EpClassModification >> fileOutEntryOn: aWriteStream [
 	"Write out class definition for the given class on the given stream, if the class definition was added or changed."
 
-	| realClass |
-
-	realClass := self newClass realClass.
-	aWriteStream
-		nextChunkPut: realClass definitionString;
-		cr.
+	| defString |
+	defString := self newClass realClass
+		ifNotNil: [ : realClass | realClass definitionString ]
+		ifNil: [ self newClass definitionSource ].
 
+	aWriteStream
+		nextChunkPut: defString;
+		cr
 ]
 
 { #category : 'testing' }

src/Epicea/TestCase.extension.st

@@ -1,14 +1,14 @@
 Extension { #name : 'TestCase' }
 
 { #category : '*Epicea' }
-TestCase >> shouldLogWithEpicea [
+TestCase class >> shouldLogWithEpicea [
+	"When running a test, we disable the loggings of Epicea to run the tests silently. In case a TestCase explicitly wants to Epicea logs, then I can be overriden to return true and enable the logs."
 
-	^ self class shouldLogWithEpicea
+	^ false
 ]
 
 { #category : '*Epicea' }
-TestCase class >> shouldLogWithEpicea [
-	"When running a test, we disable the loggings of Epicea to run the tests silently. In case a TestCase explicitly wants to Epicea logs, then I can be overriden to return true and enable the logs."
+TestCase >> shouldLogWithEpicea [
 
-	^ false
+	^ self class shouldLogWithEpicea
 ]