Fix slime tests in Pharo 12

SeasideSt · Dec 27, 2023 · 823f3f4 · 823f3f4
1 parent dce1ac7
commit 823f3f4
Show file tree

Hide file tree

Showing 8 changed files with 42 additions and 42 deletions.
diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testBlockFormatting.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testBlockFormatting.st
@@ -4,27 +4,27 @@ testBlockFormatting
 	class := self
 		defineClass: #GRSlimeMockObject
 		superclass: #GRObject.
-	class
+	self 
 		compile: 'invalid1
 			[:a ]'
-		classified: #(accessing).
-	class
+		in: class.
+	self
 		compile: 'invalid2
 			[:a | ]'
-		classified: #(accessing).
-	class
+		in: class.
+	self
 		compile: 'invalid3
 			[ :b]'
-		classified: #(accessing).
+		in: class.
 
-	class
+	self
 		compile: 'invalid4
 			[ :a| ]'
-		classified: #(accessing).
-	class
+		in: class.
+	self
 		compile: 'invalid5
 			[ :a |a ]'
-		classified: #(accessing).
+		in: class.
 	self 
 		runRule: GRBlockFormattingRule
 		selectors: #(invalid1 invalid2 invalid3 invalid4 invalid5)
diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testParensFormatting.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testParensFormatting.st
@@ -4,14 +4,14 @@ testParensFormatting
 	class := self
 		defineClass: #GRSlimeMockObject
 		superclass: #GRObject.
-	class
+	self
 		compile: 'invalid1
 			( 1 + 2)'
-		classified: #(accessing).
-	class
+		in: class.
+	self
 		compile: 'invalid2
 			(1 + 2 )'
-		classified: #(accessing).
+		in: class.
 	self 
 		runRule: GRParensFormattingRule
 		selectors: #(invalid1 invalid2)
diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testReturnFormatting.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testReturnFormatting.st
@@ -4,14 +4,14 @@ testReturnFormatting
 	class := self
 		defineClass: #GRSlimeMockObject
 		superclass: #GRObject.
-	class
+	self
 		compile: 'invalid1
 			^1'
-		classified: #(accessing).
-	class
+		in: class.
+	self
 		compile: 'invalid2
 			^  2'
-		classified: #(accessing).
+		in: class.
 	self 
 		runRule: GRReturnFormattingRule
 		selectors: #(invalid1 invalid2)
diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testTempsFormatting.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testTempsFormatting.st
@@ -4,18 +4,18 @@ testTempsFormatting
 	class := self
 		defineClass: #GRSlimeMockObject
 		superclass: #GRObject.
-	class
+	self
 		compile: 'invalid1
 			| a|'
-		classified: #(accessing).
-	class
+		in: class.
+	self
 		compile: 'invalid2
 			|a |'
-		classified: #(accessing).
-	class
+		in: class.
+	self
 		compile: 'invalid3
 			| a  b |'
-		classified: #(accessing).
+		in: class.
 	self 
 		runRule: GRTempsFormattingRule
 		selectors: #(invalid1 invalid2 invalid3)
diff --git a/...y/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesCanPerformOrUnderstand.st b/...y/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesCanPerformOrUnderstand.st
@@ -4,18 +4,18 @@ testUsesCanPerformOrUnderstand
 	class := self
 		defineClass: #GRSlimeMockObject
 		superclass: #GRObject.
-	class
+	self
 		compile: 'invalid1
 			Object class canUnderstand: #new'
-		classified: #(accessing).
-	class
+		in: class.
+	self
 		compile: 'invalid2
 			Object class canPerform: #new'
-		classified: #(accessing).
-	class
+		in: class.
+	self
 		compile: 'valid
 			Object respondsTo: #new'
-		classified: #(accessing).
+		in: class.
 	self 
 		runRule: GRUsesCanPerformOrUnderstandRule
 		selectors: #(invalid1 invalid2)
diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesClassForHash.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesClassForHash.st
@@ -4,14 +4,14 @@ testUsesClassForHash
 	class := self
 		defineClass: #GRSlimeMockObject
 		superclass: #GRObject.
-	class
+	self
 		compile: 'foo
 			^ super hash bitXor: self class hash'
-		classified: #(accessing).
-	class
+		in: class.
+	self
 		compile: 'hash
 			^ super hash bitXor: self class hash'
-		classified: #(accessing).
+		in: class.
 	self 
 		runRule: GRUsesClassForHashRule
 		selectors: #(hash)
diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesCurlyBraceArrays.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesCurlyBraceArrays.st
@@ -6,14 +6,14 @@ testUsesCurlyBraceArrays
 	class := self
 		defineClass: #GRSlimeMockObject
 		superclass: #GRObject.
-	class
+	self
 		compile: 'invalid
 			^ { self foo. self bar }'
-		classified: #(accessing).
-	class
+		in: class.
+	self
 		compile: 'valid
 			^ Array new'
-		classified: #(accessing).
+		in: class.
 	self 
 		runRule: GRUsesCurlyBraceArraysRule
 		selectors: #(invalid)
diff --git a/...sitory/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesLiteralByteArrays.st b/...sitory/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesLiteralByteArrays.st
@@ -6,14 +6,14 @@ testUsesLiteralByteArrays
 	class := self
 		defineClass: #GRSlimeMockObject
 		superclass: #GRObject.
-	class
+	self
 		compile: 'invalid
 			^ #[ 1 2 3 ]'
-		classified: #(accessing).
-	class
+		in: class.
+	self
 		compile: 'valid
 			^ ByteArray with: 1 with: 2 with: 3'
-		classified: #(accessing).
+		in: class.
 	self 
 		runRule: GRUsesLiteralByteArraysRule
 		selectors: #(invalid)