More complete test for GRPlatform>>thisContext

Johan Brichau · Johan Brichau · commit 3de3493d545f · 2020-12-20T17:33:26.000+01:00
diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/returnSender.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/returnSender.st
@@ -0,0 +1,3 @@
+private
+returnSender
+	^ GRPlatform current thisContext sender
diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testThisContext.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testThisContext.st
@@ -1,9 +1,18 @@
-tests-processes
+tests
 testThisContext
-  | methodContext |
-  methodContext := self platform thisContext.
-  [ 
-  | blockContext |
-  blockContext := self platform thisContext.
-  self assert: blockContext sender = methodContext ]
-    value
+	| methodContext block |
+	methodContext := self platform thisContext.
+	block := [ | blockContext |
+	blockContext := self platform thisContext.
+	self assert: blockContext sender = methodContext.
+	"The following is a difference between Gemstone and Pharo... "
+	(Smalltalk includesKey: #GRGemStonePlatform)
+		ifTrue: [ self assert: blockContext receiver = block ]
+		ifFalse: [ 
+			self assert: blockContext receiver = self.
+			self assert: (blockContext namedTempAt: (blockContext tempNames indexOf: #blockContext)) == blockContext ].
+	self assert: (blockContext namedTempAt: (blockContext tempNames indexOf: #methodContext)) == methodContext ].
+	block value.
+	self assert: self returnSender = methodContext.
+	self assert: methodContext receiver = self.
+	self assert: (self platform thisContext namedTempAt: (self platform thisContext tempNames indexOf: #block)) == block

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+private`
	`2`	`+returnSender`
	`3`	`+ ^ GRPlatform current thisContext sender`