Workaround for bug when registering the testclass with a name, it was registered in Undeclared

Johan Brichau · Johan Brichau · commit dce1ac7cec36 · 2023-11-24T15:41:53.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
@@ -1,11 +1,12 @@
 accessing-code
 defineClass: aClassSymbol superclass: aSuperSymbol
 	| class |
+
 	SystemVersion current major >= 12
 		ifTrue:[
 			class := factory make: [ :aBuilder | 
 				aBuilder
-					name: aClassSymbol;
+					"name: aClassSymbol;"
 					superclass: (Smalltalk at: aSuperSymbol);
 					package: self category ] ]
 		ifFalse:[
@@ -14,8 +15,8 @@ defineClass: aClassSymbol superclass: aSuperSymbol
 				classVariableNames: ''''
 				poolDictionaries: ''''
 				category: ''' , self category , ''''.
-		class := model classNamed: aClassSymbol ].
-	environment 
+			class := model classNamed: aClassSymbol ].
+	environment
 		addClass: class;
 		addClass: class theMetaClass.
 	^ class
diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/tearDown.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/tearDown.st
@@ -4,7 +4,5 @@ tearDown
 	super tearDown.
 	factory cleanUp.
 	SystemVersion current major >= 12 ifFalse:[
-	(Smalltalk organization listAtCategoryNamed: self category) do:[ :e | 
-		SmalltalkImage current removeClassNamed: e ].
-	Smalltalk organization
-		removeCategory: self category ]
+		(Smalltalk organization listAtCategoryNamed: self category) do:[ :e | SmalltalkImage current removeClassNamed: e ].
+		Smalltalk organization removeCategory: self category ]
