Added tests for spawning (open) a subprocess in traditional bridge without breaking protocol

Author: hippiehunter

Diff for: HarmonyCore.Test/Bridge/BasicBridge.dbl

@@ -135,6 +135,9 @@ namespace HarmonyCore.Test.Bridge
             Console.WriteLine("Calling GetAllCustomers")
             data customers = await context.GetAllCustomers()
 
+            Console.WriteLine("Calling Spawn Test")
+            data spawnResult = await context.Arbitrario_Spawn()
+
             try
             begin
                 Console.WriteLine("Calling Exception Test")
@@ -498,6 +501,14 @@ namespace HarmonyCore.Test.Bridge
                 mreturn new ArbitrarioReturnType() { ReturnCode = returnCode, IntList = ((@IEnumerable<int>)resultTpl.Item2[4]).ToList(), StringList = ((@IEnumerable<string>)resultTpl.Item2[5]).ToList() }
             endmethod
 
+            public async method Arbitrario_Spawn, @Task<ArbitrarioReturnType>
+            proc
+                data intArray = new int[#] {5, 4, 3, 2, 1 }
+                data resultTpl = await CallMethod("Arbitrario.MethodWithParameters", 5, "SPAWN", new string[#] { "this", "is", "strings" }, (@object)intArray, new string[0])
+                data returnCode = ArgumentHelper.Argument<int>(0, resultTpl)
+                mreturn new ArbitrarioReturnType() { ReturnCode = returnCode, IntList = ((@IEnumerable<int>)resultTpl.Item2[4]).ToList(), StringList = ((@IEnumerable<string>)resultTpl.Item2[5]).ToList() }
+            endmethod
+
             public async method Arbitrario_MethodWithParameters, @Task<ArbitrarioReturnType>
             proc
                 data intArray = new int[#] {5, 4, 3, 2, 1 }

Diff for: TraditionalBridge.Test/Methods/arbitrario.dbl

@@ -15,7 +15,23 @@ namespace TraditionalBridge.Test.Methods
             endparams
             record
                 stringElement, @string
+                tmp, a255
         proc
+            if(stringValue == "SPAWN")
+            begin
+                Logger.Instance.Log("spawning a bad process")
+                open(133, I, "|dbr fred.dbl")
+                do forever
+                begin
+                    reads(133, tmp, WAIT: Q_WAIT) [$ERR_EOF=done]
+                    nextloop
+                done,
+                    exitloop
+                end
+                
+                close(133)
+            end
+
             ;;test that we can recover from total runtime failure
             if(stringValue == "STOP NOW!!!")
                 STOP