Adds that self in method example scripts refers to the enclosed class. Allows for inheriting examples.

Author: codeZeilen

packages/Babylonian-Core.package/BPMethodExample.class/instance/newArguments.st

@@ -5,4 +5,4 @@ newArguments
 		collect: [:script | 
 			script isLiveSpecimenReference
 				ifTrue: [self resolveLiveSpecimen: script]
-				ifFalse: [Compiler evaluate: script]]
+				ifFalse: [Compiler evaluate: script for: self method methodClass]]

packages/Babylonian-Core.package/BPMethodExample.class/instance/newReceiver.st

@@ -8,7 +8,7 @@ newReceiver
 				^ self method methodClass perform: self receiverConstructor].
 			self receiverConstructor isLiveSpecimenReference ifTrue: [
 				^ self resolveLiveSpecimen: self receiverConstructor]. 
-			result := Compiler evaluate: self receiverConstructor.
+			result := Compiler evaluate: self receiverConstructor for: self method methodClass.
 			result isSymbol
 				ifTrue: [self method methodClass perform: result]
 				ifFalse: [result]]

packages/Babylonian-Core.package/BPMethodExample.class/methodProperties.json

@@ -14,9 +14,9 @@
 		"liveSpecimen" : "pre 1/10/2023 16:19",
 		"liveSpecimenAt:" : "pre 1/10/2023 16:20",
 		"morphClass" : "pre 9/30/2020 10:40",
-		"newArguments" : "pre 1/10/2023 16:25",
+		"newArguments" : "pre 1/11/2023 15:15",
 		"newArgumentsDictionary" : "pre 8/6/2021 18:27",
-		"newReceiver" : "pre 1/10/2023 16:20",
+		"newReceiver" : "pre 1/11/2023 15:13",
 		"prepareRunState" : "pre 8/6/2021 18:05",
 		"receiverConstructor" : "pre 5/17/2019 14:06",
 		"receiverConstructor:" : "pre 5/17/2019 14:06",

packages/Babylonian-Tests.package/BPExampleTest.class/instance/testMethodExamplesCanAccessTheEnclosingClassAsSelf.st

@@ -0,0 +1,9 @@
+tests - running
+testMethodExamplesCanAccessTheEnclosingClassAsSelf
+	
+	| example |
+	example := self createExamples first.
+	example receiverConstructor: 'self'.
+	example argumentScripts: #('self' '').
+	self assert: BPTestExamplesClass equals: example newReceiver.
+	self assert: {BPTestExamplesClass. BPTestExamplesClass} equals: example newArguments.

packages/Babylonian-Tests.package/BPExampleTest.class/methodProperties.json

@@ -25,6 +25,7 @@
 		"testLiveSpecimenExample" : "pre 1/10/2023 16:30",
 		"testMethodExamplesCanAccessArgumentsInTheSetup" : "pre 8/6/2021 18:21",
 		"testMethodExamplesCanAccessArgumentsInTheTeardown" : "pre 8/6/2021 18:21",
+		"testMethodExamplesCanAccessTheEnclosingClassAsSelf" : "pre 1/11/2023 15:17",
 		"testMethodExamplesCanChangeArgumentsInTheSetup" : "pre 8/6/2021 18:20",
 		"testNewExample" : "pre 6/7/2021 15:12",
 		"testNewExampleArePartOfTheirMethod" : "pre 1/6/2021 19:06",