Remove part of ReAsClassRule about #asClass

#asClass ot deprecated in P12 and will be removed soon in P13. Thus we should not refer to it anymore.

src/General-Rules-Tests/ReAsClassRuleTest.class.st

@@ -6,12 +6,6 @@ Class {
 	#tag : 'Migrated'
 }
 
-{ #category : 'test-help' }
-ReAsClassRuleTest >> methodWithAsClass [
-
-	self class asClass
-]
-
 { #category : 'test-help' }
 ReAsClassRuleTest >> methodWithAsClassIfAbsent [
 
@@ -33,14 +27,6 @@ ReAsClassRuleTest >> testRuleNotViolated [
 	self assertEmpty: critiques 
 ]
 
-{ #category : 'tests' }
-ReAsClassRuleTest >> testRuleWithAsClass [
-
-	| critiques |
-	critiques := self myCritiquesOnMethod: self class >> #methodWithAsClass.
-	self assert: critiques size equals: 1
-]
-
 { #category : 'tests' }
 ReAsClassRuleTest >> testRuleWithAsClassIfAbsent [
 

src/General-Rules/ReAsClassRule.class.st

@@ -1,7 +1,6 @@
 "
 Do not use methods such as
 
-	#asClass
 	#asClassIfAbsent:
 	#asClassIfPresent:
 	
@@ -23,16 +22,11 @@ ReAsClassRule >> group [
 
 { #category : 'initialization' }
 ReAsClassRule >> initialize [
+
 	super initialize.
 	self
-		replace: '`@expr asClass'
-		   with: 'self class environment at: `@expr';
-
-		replace: '`@expr asClassIfAbsent: `@block'
-		with: 'self class environment at: `@expr ifAbsent: `@block';
-
-	replace: '`@expr asClassIfPresent: `@block'
-		with: 'self class environment at: `@expr ifPresent: `@block'
+		replace: '`@expr asClassIfAbsent: `@block' with: 'self class environment at: `@expr ifAbsent: `@block';
+		replace: '`@expr asClassIfPresent: `@block' with: 'self class environment at: `@expr ifPresent: `@block'
 ]
 
 { #category : 'accessing' }