Avoid analyzing classes in Manifest methods while checking ReClassesHaveNoReferencesCondition

src/Refactoring-Core-Tests/RBClassTest.class.st

@@ -177,6 +177,49 @@ RBClassTest >> testIsInstanceSide [
 
 ]
 
+{ #category : 'tests - navigation' }
+RBClassTest >> testIsManifest [
+
+	| pmNamespace packageManifestClass |
+
+	pmNamespace := RBNamespace new.
+	pmNamespace defineClass: [ :aBuilder |
+		aBuilder
+			name: #PackageManifestForRBClassTest;
+			superclass: PackageManifest ;
+			package: #'Refactory-Testing' ].
+	packageManifestClass := pmNamespace classNamed: #PackageManifestForRBClassTest.
+
+	self assert: packageManifestClass isManifest.
+]
+
+{ #category : 'tests - navigation' }
+RBClassTest >> testIsManifestTransformationClass [
+
+	self 
+		deny: abstractTransformationClass classSide isManifest
+		description: 'It tests that a transformation class is not manifest'.
+	self 
+		deny: abstractTransformationClass isManifest
+		description: 'It tests that a transformation is not manifest'.		
+]
+
+{ #category : 'tests - navigation' }
+RBClassTest >> testIsManifestWhenSuperclassIsUndefined [
+
+	| pmNamespace packageManifestClass |
+
+	pmNamespace := RBNamespace new.
+	pmNamespace defineClass: [ :aBuilder |
+		aBuilder
+			name: #PackageManifestForRBClassTest;
+			superclass: nil ;
+			package: #'Refactory-Testing' ].
+	packageManifestClass := pmNamespace classNamed: #PackageManifestForRBClassTest.
+
+	self deny: packageManifestClass isManifest.
+]
+
 { #category : 'tests - navigation' }
 RBClassTest >> testIsMeta [
 

src/Refactoring-Core/RBClass.class.st

@@ -160,6 +160,13 @@ RBClass >> isEmptyClass [
 					  self selectors isEmpty]]
 ]
 
+{ #category : 'testing' }
+RBClass >> isManifest [ 
+
+	^ self superclass notNil and: [ self superclass name = #PackageManifest ]
+
+]
+
 { #category : 'testing' }
 RBClass >> isMeta [
 

src/Refactoring-Core/RBMetaclass.class.st

@@ -62,6 +62,12 @@ RBMetaclass >> directlyDefinesPoolDictionary: aString [
 	^ self instanceSide directlyDefinesPoolDictionary: aString
 ]
 
+{ #category : 'testing' }
+RBMetaclass >> isManifest [
+
+	^ self instanceSide isManifest
+]
+
 { #category : 'testing' }
 RBMetaclass >> isMeta [
 	^true

src/Refactoring-Core/ReClassesHaveNoReferencesCondition.class.st

@@ -44,11 +44,10 @@ ReClassesHaveNoReferencesCondition >> violators [
 		  classes do: [ :aClass |
 			  | methodsReferencingClass |
 			  methodsReferencingClass := (model methodsReferencingClass: aClass) reject: [ :each |
-						    classes includes: each methodClass ].
+				(classes includes: each methodClass) or: [ each methodClass isManifest ] ].
 			  methodsReferencingClass ifNotEmpty: [ 
 				  referencingClassesDictionary
 					  at: aClass
 					  put: methodsReferencingClass ] ].
-			referencingClassesDictionary 
-		]
+			referencingClassesDictionary ]
 ]

src/Refactoring-Transformations-Tests/RBRemoveProtocolTransformationTest.class.st

@@ -31,13 +31,13 @@ RBRemoveProtocolTransformationTest >> testTransform [
 	transformation := (RBAddProtocolTransformation
 		                   protocol: 'transforming'
 		                   inClass: #RBDummyEmptyClass).
-	transformation generateChanges.
+	transformation execute.
 
 	transformation := (RBRemoveProtocolTransformation
 		                   model: transformation model
 		                   protocol: 'transforming'
 		                   inClass: #RBDummyEmptyClass).
-	transformation generateChanges.
+	transformation execute.
 
 	self assert: transformation model changes changes size equals: 2
 ]