Changes how live specimen are serialized.

Author: codeZeilen

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

@@ -6,5 +6,11 @@ asPragma
 		self exampleName.
 		self setUpScript ifNil: [''] ifNotNil: [:setUpScript | ' setUp: ' , setUpScript printString].
 		self tearDownScript ifNil: [''] ifNotNil: [:tearDownScript | ' tearDown: ' , tearDownScript printString].
-		self receiverConstructor ifNil: [''] ifNotNil: [:aReceiverConstructor | ' self: ' , aReceiverConstructor printString].
-		self argumentScripts ifEmpty: [''] ifNotEmpty: [(self argumentScripts collect: [:anArgumentScript | ' with: ' , anArgumentScript printString]) join]}
+		self receiverConstructor ifNil: [''] ifNotNil: [:aReceiverConstructor | 
+			aReceiverConstructor isLiveSpecimenReference 
+				ifFalse: [' self: ' , aReceiverConstructor printString]
+				ifTrue: [' self: ' , {#specimen . aReceiverConstructor printString} printString]].
+		self argumentScripts ifEmpty: [''] ifNotEmpty: [(self argumentScripts collect: [:anArgumentScript | 
+			' with: ' , (anArgumentScript isLiveSpecimenReference 
+				ifFalse: [anArgumentScript printString]
+				ifTrue: [{#specimen . anArgumentScript printString} printString])]) join]}

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

@@ -6,7 +6,7 @@
 		"argumentScriptStringAt:" : "pre 1/10/2023 16:17",
 		"argumentScripts" : "pre 7/23/2019 12:20",
 		"argumentScripts:" : "pre 7/23/2019 09:23",
-		"asPragma" : "pre 5/3/2021 17:03",
+		"asPragma" : "pre 1/10/2023 16:40",
 		"canBeUsedForDoIts" : "jb 12/3/2020 22:38",
 		"initialize" : "pre 9/30/2020 09:55",
 		"initializeFromMethod:" : "pre 6/7/2021 15:11",

packages/Babylonian-Tests.package/BPAnnotationMorphsTest.class/instance/testRenderingExampleWithLiveSpecimen.st

@@ -0,0 +1,29 @@
+tests
+testRenderingExampleWithLiveSpecimen
+		| example renderedSource anchorAttribute examplesAnnotation examplesMorph specimenReference |
+	source := 'method
+^ 2 + 3' asText.
+	specimenReference := BPSpecimenReference new
+		specimen;
+		yourself.
+	example := BPMethodExample new
+		method: methodReference compiledMethod;
+		exampleName: 'example 1';
+		receiverConstructor: specimenReference;
+		argumentScripts: #('Object new' #(1 2 3) nil);
+		setUpScript: #basicSetUp;
+		tearDownScript: '"do nothing"';
+		yourself.
+	BPExamples value add: example.
+	examplesAnnotation := BPExamplesAnnotation new
+		methodReference: methodReference;
+		yourself.
+	examplesMorph := examplesAnnotation asMorph.
+	anchorAttribute := BPTextDecoration new anchoredMorph: examplesMorph.
+	source addAttribute: anchorAttribute from: 1 to: 1.
+	
+	renderedSource := source asBPSource.
+	self assert: 'method
+	<exampleNamed: ''example 1'' setUp: #basicSetUp tearDown: ''"do nothing"'' self: #(#specimen ''nil'') with: ''Object new'' with: #(1 2 3) with: nil>
+^ 2 + 3' equals: renderedSource
+	

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

@@ -11,6 +11,7 @@
 		"setUp" : "pre 7/25/2019 12:06",
 		"testRenderingExample" : "pre 7/20/2022 15:26",
 		"testRenderingExampleSpecificReplacement" : "pre 7/20/2022 09:30",
+		"testRenderingExampleWithLiveSpecimen" : "pre 1/10/2023 16:41",
 		"testRenderingNestedProbes" : "pre 7/20/2022 09:30",
 		"testRenderingNestedProbesWithDifferentLengths" : "pre 7/20/2022 09:30",
 		"testRenderingProfilingProbe" : "pre 11/30/2022 09:51",

…lass/instance/testLiveSpecimanExample.st …lass/instance/testLiveSpecimenExample.stpackages/Babylonian-Tests.package/BPExampleTest.class/instance/testLiveSpecimanExample.st renamed to packages/Babylonian-Tests.package/BPExampleTest.class/instance/testLiveSpecimenExample.st packages/Babylonian-Tests.package/BPExampleTest.class/instance/testLiveSpecimanExample.st renamed to packages/Babylonian-Tests.package/BPExampleTest.class/instance/testLiveSpecimenExample.st

@@ -1,8 +1,7 @@
 tests
-testLiveSpecimanExample
+testLiveSpecimenExample
 
-	| example specimen testRegistry reference |
-	testRegistry := BPSpecimenRegistry new.
+	| example specimen reference |
 	specimen := Object new.
 	reference := BPSpecimenReference new
 		specimen: specimen;

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

@@ -22,7 +22,7 @@
 		"testExamplesKnowTheirTimeout" : "joabe 9/29/2022 22:59",
 		"testGetExamplesForAMethod" : "jb 12/7/2020 19:08",
 		"testGetScriptExamplesForAMethod" : "pre 7/22/2022 21:39",
-		"testLiveSpecimanExample" : "pre 1/10/2023 16:24",
+		"testLiveSpecimenExample" : "pre 1/10/2023 16:30",
 		"testMethodExamplesCanAccessArgumentsInTheSetup" : "pre 8/6/2021 18:21",
 		"testMethodExamplesCanAccessArgumentsInTheTeardown" : "pre 8/6/2021 18:21",
 		"testMethodExamplesCanChangeArgumentsInTheSetup" : "pre 8/6/2021 18:20",