Use ClassFactoryForTestCase

Johan Brichau · Johan Brichau · commit e5fedf3d1c9f · 2023-11-24T11:58:05.000+01:00
diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/compile.in..st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/compile.in..st
@@ -1,3 +1,3 @@
 accessing-code
 compile: aString in: aClass
-	^ aClass compile: aString classified: #(accessing)
+	^ aClass compile: aString classified: #accessing
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,12 +1,18 @@
 accessing-code
 defineClass: aClassSymbol superclass: aSuperSymbol
 	| class |
-	model defineClass: aSuperSymbol , ' subclass: #' , aClassSymbol , '
+	class := factory make: [ :aBuilder | 
+		aBuilder
+			name: aClassSymbol;
+			superclass: aSuperSymbol;
+			package: self category ]
+		
+	"aSuperSymbol , ' subclass: #' , aClassSymbol , '
 		instanceVariableNames: '''' 
 		classVariableNames: ''''
 		poolDictionaries: ''''
-		category: ''' , self category , ''''.
-	class := model classNamed: aClassSymbol.
+		category: ''' , self category , ''''".
+	"class := model classNamed: aClassSymbol."
 	environment 
 		addClass: class;
 		addClass: class theMetaClass.
diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/setUp.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/setUp.st
@@ -1,5 +1,6 @@
 running
 setUp
 	super setUp.
+	factory := ClassFactoryForTestCase new.
 	model := RBNamespace new.
 	environment := RBClassEnvironment new
diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/tearDown.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/tearDown.st
@@ -1,7 +1,10 @@
 running
 tearDown
+
 	super tearDown.
-	(Smalltalk organization listAtCategoryNamed: self category) do:[ :e | 
-		SmalltalkImage current removeClassNamed: e ].
+	factory cleanUp.
+	"package := (Smalltalk organization packageNamed: self category).
+	package classes do:[ :e | 
+		SmalltalkImage current removeClassNamed: e name ].
 	Smalltalk organization
-		removeCategory: self category
+		removePackage: package"
diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/properties.json b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/properties.json
@@ -7,7 +7,8 @@
 	"classvars" : [ ],
 	"instvars" : [
 		"model",
-		"environment"
+		"environment",
+		"factory"
 	],
 	"name" : "GRSlimeTest",
 	"type" : "normal"
diff --git a/repository/Grease-Tests-Slime.package/monticello.meta/categories.st b/repository/Grease-Tests-Slime.package/monticello.meta/categories.st
@@ -1 +1 @@
-SystemOrganization addCategory: #'Grease-Tests-Slime'!
+self packageOrganizer ensurePackage: #'Grease-Tests-Slime' withTags: #()!

Original file line number	Diff line number	Diff line change
`@@ -1 +1 @@`
`1`		`-SystemOrganization addCategory: #'Grease-Tests-Slime'!`
	`1`	`+self packageOrganizer ensurePackage: #'Grease-Tests-Slime' withTags: #()!`