fix: replace deprecations in Pharo 12

repository/SmalltalkCI-Core.package/SmalltalkCISpec.class/instance/classesToTest.st

@@ -4,7 +4,7 @@ classesToTest
 	SmalltalkCI explicitTestKeys
 		do: [ :key | 
 			(self testing includesKey: key)
-				ifTrue: [ ^ SmalltalkCI classesFrom: self testing ] ].
+				ifTrue: [ ^ SmalltalkCI platformClass classesFrom: self testing ] ].
 	classes := OrderedCollection new.
 	(self testing at: #'allTestCases' ifAbsent: [ false ]) = true
 		ifTrue: [ classes addAll: TestCase allSubclasses ]

repository/SmalltalkCI-Coverage-Core.package/SCICodeCoverage.class/instance/classesToCoverForCategories.st

@@ -1,4 +1,4 @@
 helpers
 classesToCoverForCategories
 	^ self coverageAt: #categories
-		do: [ :categoryNames | SmalltalkCI classesForCategories: categoryNames ]
+		do: [ :categoryNames | SmalltalkCI platformClass classesForCategories: categoryNames ]

repository/SmalltalkCI-Pharo-Core.package/SmalltalkCIPharo12.class/class/allCategoryNames.st

@@ -0,0 +1,11 @@
+class organization
+allCategoryNames
+	| packages |
+	packages := Smalltalk organization packages.
+	^ (OrderedCollection
+		new: packages size
+		streamContents: [ :stream |
+			packages do: [ :package |
+				stream nextPut: package name asString.
+				package classTags do: [ :tag |
+					stream nextPut: tag categoryName asString ] ] ]) asSet asArray

repository/SmalltalkCI-Pharo-Core.package/SmalltalkCIPharo12.class/class/codeCoverageClass.st

@@ -0,0 +1,4 @@
+compatibility
+codeCoverageClass
+
+	^ Smalltalk at: #SCIPharo12CodeCoverage

repository/SmalltalkCI-Pharo-Coverage-Core.package/SCIPharo12CodeCoverage.class/class/packageNameForClass..st

@@ -0,0 +1,3 @@
+compatibility
+packageNameForClass: aClass
+	^ ((Smalltalk at: #RPackageOrganizer) default packageOf: aClass) name

repository/SmalltalkCI-Pharo-Coverage-Core.package/SCIPharo12CodeCoverage.class/class/packageNameForMethod..st

@@ -0,0 +1,5 @@
+compatibility
+packageNameForMethod: aMethodReference
+	| aClass |
+	aClass := aMethodReference compiledMethod methodClass.
+	^ (aClass packages detect: [:each | each includesSelector: aMethodReference compiledMethod selector ofClass: aClass ]) name

repository/SmalltalkCI-Pharo-Coverage-Core.package/SCIPharo12CodeCoverage.class/properties.json

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "",
+	"super" : "SCIPharoCodeCoverage",
+	"category" : "SmalltalkCI-Pharo-Coverage-Core",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "SCIPharo12CodeCoverage",
+	"type" : "normal"
+}