keep slime tests working in Pharo versions older than 12

Johan Brichau · Johan Brichau · commit d46d1d10e92d · 2023-11-24T13:14:43.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,7 @@
 accessing-code
 compile: aString in: aClass
-	^ aClass compile: aString classified: #accessing
+
+	GRPlatform current
+		compile: aString
+		into: aClass
+		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,18 +1,20 @@
 accessing-code
 defineClass: aClassSymbol superclass: aSuperSymbol
 	| class |
-	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."
+	SystemVersion current major >= 12
+		ifTrue:[
+			class := factory make: [ :aBuilder | 
+				aBuilder
+					name: aClassSymbol;
+					superclass: (Smalltalk at: aSuperSymbol);
+					package: self category ] ]
+		ifFalse:[
+			aSuperSymbol , ' subclass: #' , aClassSymbol , '
+				instanceVariableNames: '''' 
+				classVariableNames: ''''
+				poolDictionaries: ''''
+				category: ''' , self category , ''''.
+		class := model classNamed: aClassSymbol ].
 	environment 
 		addClass: class;
 		addClass: class theMetaClass.
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,10 +1,12 @@
 running
 tearDown
 
+	| package |
 	super tearDown.
 	factory cleanUp.
-	"package := (Smalltalk organization packageNamed: self category).
-	package classes do:[ :e | 
-		SmalltalkImage current removeClassNamed: e name ].
-	Smalltalk organization
-		removePackage: package"
+	SystemVersion current major >= 12 ifFalse:[
+		package := (Smalltalk organization packageNamed: self category).
+		package classes do:[ :e | 
+			SmalltalkImage current removeClassNamed: e name ].
+		Smalltalk organization
+			removePackage: package ]
