Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

fix: replace deprecations in Pharo 12 #609

Merged
merged 1 commit into from
Oct 11, 2023
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Original file line number Diff line number Diff line change
Expand Up @@ -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 ]
Expand Down
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
helpers
classesToCoverForCategories
^ self coverageAt: #categories
do: [ :categoryNames | SmalltalkCI classesForCategories: categoryNames ]
do: [ :categoryNames | SmalltalkCI platformClass classesForCategories: categoryNames ]
Original file line number Diff line number Diff line change
@@ -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
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
compatibility
codeCoverageClass

^ Smalltalk at: #SCIPharo12CodeCoverage
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
compatibility
packageNameForClass: aClass
^ ((Smalltalk at: #RPackageOrganizer) default packageOf: aClass) name
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
compatibility
packageNameForMethod: aMethodReference
| aClass |
aClass := aMethodReference compiledMethod methodClass.
^ (aClass packages detect: [:each | each includesSelector: aMethodReference compiledMethod selector ofClass: aClass ]) name
Original file line number Diff line number Diff line change
@@ -0,0 +1,11 @@
{
"commentStamp" : "",
"super" : "SCIPharoCodeCoverage",
"category" : "SmalltalkCI-Pharo-Coverage-Core",
"classinstvars" : [ ],
"pools" : [ ],
"classvars" : [ ],
"instvars" : [ ],
"name" : "SCIPharo12CodeCoverage",
"type" : "normal"
}