@reventlessdev/reventless-local 3.0.0-alpha.318 → 3.0.0-alpha.320

package/tests/adapter/LocalTapLinesTest.res

@@ -180,3 +180,28 @@ describe("LocalTapLines", () => {
     await disconnect(tap)
   })
 })
+
+describe("the outcome line names its cause", () => {
+  testSync("a command an automation sent says which event it acted on", () => {
+    let line = LocalTapLines.outcomeLine({
+      component: "Notice",
+      reference: "cmd-2",
+      correlationId: "flow-1",
+      causationId: "evt-7",
+      outcome: OutcomeAccepted({entityId: Some("n-1"), eventCount: 1}),
+    })
+    let d = line->JSON.parseOrThrow->JSON.Decode.object->Option.getOrThrow
+    expect(d->Dict.get("causationId"))->toEqual(Some(JSON.String("evt-7")))
+    expect(d->Dict.get("msgId"))->toEqual(Some(JSON.String("cmd-2")))
+  })
+
+  testSync("a command sent from outside has none", () => {
+    let line = LocalTapLines.outcomeLine({
+      component: "Order",
+      reference: "cmd-1",
+      outcome: OutcomeAccepted({entityId: None, eventCount: 1}),
+    })
+    let d = line->JSON.parseOrThrow->JSON.Decode.object->Option.getOrThrow
+    expect(d->Dict.get("causationId"))->toEqual(None)
+  })
+})

package/tests/adapter/LocalTapLinesTest.res.mjs

@@ -93,11 +93,11 @@ async function disconnect(tap) {
 globalThis.describe("LocalTapLines", () => {
   globalThis.test("an accepted and a rejected command each appear once on the tap", async () => {
     let tap = await connectTap();
-    CommandTopic_Helpers$ReventlessCore.reportAccepted("Order", "flow-1", "m-1", {
+    CommandTopic_Helpers$ReventlessCore.reportAccepted("Order", "flow-1", undefined, "m-1", {
       entityId: "o-1",
       eventCount: 2
     });
-    CommandTopic_Helpers$ReventlessCore.reportRejected("Order", "DomainRejection", "flow-1", "m-2", {
+    CommandTopic_Helpers$ReventlessCore.reportRejected("Order", "DomainRejection", "flow-1", undefined, "m-2", {
       errorCode: "AlreadyExists",
       errorDetail: `{"name":"Widget"}`
     });
@@ -181,7 +181,7 @@ globalThis.describe("LocalTapLines", () => {
   });
   globalThis.test("an infrastructure failure is kept as an error", async () => {
     let tap = await connectTap();
-    CommandTopic_Helpers$ReventlessCore.reportRejected("Order", "InfrastructureFailure", undefined, "m-3", {
+    CommandTopic_Helpers$ReventlessCore.reportRejected("Order", "InfrastructureFailure", undefined, undefined, "m-3", {
       errorCode: "AppendFailed",
       errorDetail: "store down"
     });
@@ -224,6 +224,38 @@ globalThis.describe("LocalTapLines", () => {
   });
 });
 
+globalThis.describe("the outcome line names its cause", () => {
+  globalThis.test("a command an automation sent says which event it acted on", () => {
+    let line = LocalTapLines$ReventlessLocal.outcomeLine({
+      component: "Notice",
+      reference: "cmd-2",
+      correlationId: "flow-1",
+      causationId: "evt-7",
+      outcome: {
+        TAG: "OutcomeAccepted",
+        entityId: "n-1",
+        eventCount: 1
+      }
+    });
+    let d = Stdlib_Option.getOrThrow(Stdlib_JSON.Decode.object(JSON.parse(line)), undefined);
+    globalThis.expect(d["causationId"]).toEqual("evt-7");
+    globalThis.expect(d["msgId"]).toEqual("cmd-2");
+  });
+  globalThis.test("a command sent from outside has none", () => {
+    let line = LocalTapLines$ReventlessLocal.outcomeLine({
+      component: "Order",
+      reference: "cmd-1",
+      outcome: {
+        TAG: "OutcomeAccepted",
+        entityId: undefined,
+        eventCount: 1
+      }
+    });
+    let d = Stdlib_Option.getOrThrow(Stdlib_JSON.Decode.object(JSON.parse(line)), undefined);
+    globalThis.expect(d["causationId"]).toEqual(undefined);
+  });
+});
+
 let Outcome;
 
 let ViewChange;