Prevent memory leaks from stored test results and stored tracing processes that are actually obsolete

Author: codeZeilen

packages/Babylonian-Core.package/BPExampleTraceInformation.class/instance/releaseProcess.st

@@ -0,0 +1,5 @@
+process control
+releaseProcess
+
+	self assert: (self tracingProcessAndDescendants allSatisfy: [:p | p isTerminated]).
+	tracingProcess := nil.

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

@@ -4,6 +4,7 @@
 	"instance" : {
 		"isProcessSuspended" : "pre 1/12/2023 09:37",
 		"probes" : "jb 5/19/2021 19:35",
+		"releaseProcess" : "pre 8/22/2023 12:01",
 		"resumeProcess" : "pre 1/12/2023 13:28",
 		"suspendProcess" : "pre 1/12/2023 13:27",
 		"terminateTracingProcess" : "pre 1/12/2023 13:28",

packages/Babylonian-ExampleMining.package/BPTestCaseExample.class/instance/runOn..st

@@ -2,4 +2,4 @@ executing
 runOn: unused
 
 	self testCaseClass ifNotNil: [
-		self testResult: (self testCaseClass run: self methodSelector)]
+		self testCaseClass run: self methodSelector]

packages/Babylonian-ExampleMining.package/BPTestCaseExample.class/instance/testResult..st

@@ -8,9 +8,7 @@
 		"methodSelector" : "joabe 7/10/2023 16:01",
 		"methodSelector:" : "joabe 7/10/2023 16:01",
 		"morphClass" : "joabe 7/10/2023 16:00",
-		"runOn:" : "joabe 7/10/2023 16:02",
+		"runOn:" : "pre 8/22/2023 12:04",
 		"testCaseClass" : "joabe 7/10/2023 16:02",
 		"testCaseClass:" : "joabe 7/10/2023 16:01",
-		"testCaseClassFrom:" : "joabe 7/10/2023 16:04",
-		"testResult" : "joabe 7/10/2023 16:03",
-		"testResult:" : "joabe 7/10/2023 16:03" } }
+		"testCaseClassFrom:" : "joabe 7/10/2023 16:04" } }

packages/Babylonian-ExampleMining.package/BPTestCaseExample.class/instance/testResult.st

@@ -7,8 +7,7 @@
 	"commentStamp" : "",
 	"instvars" : [
 		"testCaseClass",
-		"methodSelector",
-		"testResult" ],
+		"methodSelector" ],
 	"name" : "BPTestCaseExample",
 	"pools" : [
 		 ],