generated class in test cannot be named (or it is otherwise registered in the package)

Johan Brichau · Johan Brichau · commit 5b89188d4eb1 · 2023-12-27T22:06:26.000+01:00
diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/defineClass.superclass..st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/defineClass.superclass..st
@@ -4,9 +4,8 @@ defineClass: aClassSymbol superclass: aSuperSymbol
 
 	SystemVersion current major >= 12
 		ifTrue:[
-			class := factory make: [ :aBuilder | 
+			class := factory silentlyMake: [ :aBuilder | 
 				aBuilder
-					"name: aClassSymbol;"
 					superclass: (Smalltalk at: aSuperSymbol);
 					package: self category ] ]
 		ifFalse:[
diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testDeprecatedApiProtocol.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testDeprecatedApiProtocol.st
@@ -4,8 +4,8 @@ testDeprecatedApiProtocol
 	class := self
 		defineClass: #GRSlimeMockObject
 		superclass: #GRObject.
-	self compile: 'deprecated1 self greaseDeprecatedApi: ''GRSlimeMockObject>>#deprecated1'' details: ''Something.''' in: class.
-	self compile: 'deprecated2 self greaseDeprecatedApi: ''GRSlimeMockObject>>#deprecated'' details: ''Something.''' in: class.
+	self compile: 'deprecated1 self greaseDeprecatedApi: ''',class name,'>>#deprecated1'' details: ''Something.''' in: class.
+	self compile: 'deprecated2 self greaseDeprecatedApi: ''',class name,'>>#deprecated'' details: ''Something.''' in: class.
 	self compile: 'deprecated3 self greaseDeprecatedApi: ''GRSlimeMock>>#deprecated3'' details: ''Something.''' in: class.
 	self 
 		runRule: GRDeprecatedApiProtocolRule
