Fix GRTestAssertionsRule

SeasideSt · Nov 1, 2023 · 5145add · 5145add
1 parent b86dadb
commit 5145add
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/...Grease-Pharo120-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkClass..st b/...Grease-Pharo120-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkClass..st
@@ -3,5 +3,5 @@ checkClass: aClass
 
 	| comment |
 	aClass isMeta ifTrue: [ ^ self ].
-	comment := aClass classComment asString.
+	comment := aClass comment asString.
 	comment isWideString ifTrue: [ result addClass: aClass ]
diff --git a/repository/Grease-Pharo120-Slime.package/GRTestAssertionsRule.class/instance/checkMethod..st b/repository/Grease-Pharo120-Slime.package/GRTestAssertionsRule.class/instance/checkMethod..st
@@ -2,6 +2,6 @@ running
 checkMethod: aMethod 
 	aMethod methodClass isMeta
 		ifTrue: [ ^ self ].
-	(aMethod methodClass inheritsFrom: #TestCase)
+	(aMethod methodClass inheritsFrom: (Smalltalk classNamed: #TestCase))
 		ifFalse: [ ^ self ].
 	^ super checkMethod: aMethod