Fix broken test RBRemoveClassKeepingSubclassesTest >> testRemoveNotEm…

…ptySuperclass (has invalid reference)

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

@@ -11,16 +11,19 @@ RBRemoveClassKeepingSubclassesTest >> testRemoveClassWithReferencesRaisesRBRefac
 
 { #category : #tests }
 RBRemoveClassKeepingSubclassesTest >> testRemoveNotEmptySuperclass [
-	| refactoring class |
-	refactoring := RBRemoveClassKeepingSubclassesRefactoring classNames: (Array with: ('RBTransformation' , 'RuleTestData1') asSymbol).
-	class := refactoring model classNamed: ('RBTransformation' , 'RuleTestData2') asSymbol.
+
+	| refactoring class removedClass subclass |
+
+	removedClass := ('RBTransformation' , 'RuleTestData1') asSymbol.
+	subclass := ('RBTransformation' , 'RuleTestData2') asSymbol.
+	refactoring := RBRemoveClassKeepingSubclassesRefactoring classNames:
+		               { removedClass }. 
+	class := refactoring model classNamed: subclass.
 	self deny: (class directlyDefinesMethod: #foo).
 	self executeRefactoring: refactoring.
-	self assert: (refactoring model classNamed: ('RBTransformation' , 'RuleTestData1') asSymbol) isNil.
-	self assert: (refactoring model classNamed: ('RBTransformation', 'RuleTestData2') 
-	asSymbol) superclass equals: (refactoring model classNamed: #RBFooLintRuleTestData1).
-	class := refactoring model classNamed: ('RBTransformation', 'RuleTestData2') 
-	asSymbol.
-	self assert: (class directlyDefinesMethod: #foo).
-
+	self assert: (refactoring model classNamed: removedClass) isNil.
+	self
+		assert: class superclass
+		equals: (refactoring model classNamed: #RBFooLintRuleTestData1).
+	self assert: (class directlyDefinesMethod: #foo)
 ]

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

@@ -12,8 +12,9 @@ RBRemoveClassTest >> resumeOnCannotRemoveTopLevelClassError: error [
 
 { #category : #'failure tests' }
 RBRemoveClassTest >> testRaisesRBRefactoringErrorWhenRemovingNonEmptySuperclass [
-
-	self shouldFail: (RBRemoveClassRefactoring classNames: {#RBTransformationRuleTestData1})
+	|class|
+	class := ('RBTransformation', 'RuleTestData1') asSymbol.
+	self shouldFail: (RBRemoveClassRefactoring classNames: {class})
 ]
 
 { #category : #tests }