@reventlessdev/reventless-local 3.0.0-alpha.167 → 3.0.0-alpha.168

package/tests/adapter/ServedBucketHttpTest.res.mjs

@@ -0,0 +1,177 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Nodehttp from "node:http";
+import * as Stdlib_JSON from "@rescript/runtime/lib/es6/Stdlib_JSON.js";
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as TestRunner$ReventlessLocal from "../../src/test/TestRunner.res.mjs";
+import * as DomainGraphQL_Server$ReventlessLocal from "../../src/adapter/DomainGraphQL_Server.res.mjs";
+
+TestRunner$ReventlessLocal.setup();
+
+function postJson(path, body) {
+  return new Promise((resolve, reject) => {
+    let bodyStr = JSON.stringify(body);
+    let req = Nodehttp.request({
+      hostname: "localhost",
+      port: 49322,
+      path: path,
+      method: "POST",
+      headers: Object.fromEntries([
+        [
+          "content-type",
+          "application/json"
+        ],
+        [
+          "content-length",
+          bodyStr.length.toString()
+        ]
+      ])
+    }, res => {
+      let status = res.statusCode;
+      let buf = {
+        contents: ""
+      };
+      res.setEncoding("utf8");
+      res.on("data", chunk => {
+        buf.contents = buf.contents + chunk;
+      });
+      res.on("end", () => {
+        let parsed;
+        try {
+          parsed = JSON.parse(buf.contents);
+        } catch (exn) {
+          parsed = null;
+        }
+        resolve([
+          status,
+          parsed
+        ]);
+      });
+    });
+    req.on("error", err => reject(err));
+    req.write(bodyStr);
+    req.end(null);
+  });
+}
+
+function putRaw(path, body, contentType) {
+  return new Promise((resolve, reject) => {
+    let req = Nodehttp.request({
+      hostname: "localhost",
+      port: 49322,
+      path: path,
+      method: "PUT",
+      headers: Object.fromEntries([
+        [
+          "content-type",
+          contentType
+        ],
+        [
+          "content-length",
+          body.length.toString()
+        ]
+      ])
+    }, res => {
+      let status = res.statusCode;
+      res.on("data", param => {});
+      res.on("end", () => resolve(status));
+    });
+    req.on("error", err => reject(err));
+    req.write(body);
+    req.end(null);
+  });
+}
+
+function getRaw(path) {
+  return new Promise((resolve, reject) => {
+    let req = Nodehttp.request({
+      hostname: "localhost",
+      port: 49322,
+      path: path,
+      method: "GET",
+      headers: {}
+    }, res => {
+      let status = res.statusCode;
+      let contentType = Stdlib_Option.getOr(res.headers["content-type"], "");
+      let buf = {
+        contents: ""
+      };
+      res.setEncoding("utf8");
+      res.on("data", chunk => {
+        buf.contents = buf.contents + chunk;
+      });
+      res.on("end", () => resolve([
+        status,
+        buf.contents,
+        contentType
+      ]));
+    });
+    req.on("error", err => reject(err));
+    req.end(null);
+  });
+}
+
+function getString(j, k) {
+  return Stdlib_Option.getOr(Stdlib_Option.flatMap(Stdlib_Option.flatMap(Stdlib_JSON.Decode.object(j), d => d[k]), Stdlib_JSON.Decode.string), "");
+}
+
+globalThis.beforeAll(async () => {
+  DomainGraphQL_Server$ReventlessLocal.reset();
+  DomainGraphQL_Server$ReventlessLocal.start(49322, undefined, undefined);
+  return await new Promise((resolve, param) => {
+    setTimeout(() => resolve(), 50);
+  });
+});
+
+globalThis.afterAll(() => DomainGraphQL_Server$ReventlessLocal.stop());
+
+globalThis.test("POST /__inmemory/upload returns matching uploadUrl + storageRef under the prefix", async () => {
+  let match = await postJson("/__inmemory/upload", Object.fromEntries([
+    [
+      "fileName",
+      "logo.svg"
+    ],
+    [
+      "contentType",
+      "image/svg+xml"
+    ]
+  ]));
+  let body = match[1];
+  globalThis.expect(match[0]).toEqual(200);
+  let uploadUrl = getString(body, "uploadUrl");
+  let storageRef = getString(body, "storageRef");
+  globalThis.expect(uploadUrl).toEqual(storageRef);
+  globalThis.expect(storageRef.startsWith("/uploads/")).toEqual(true);
+  globalThis.expect(storageRef.endsWith("/logo.svg")).toEqual(true);
+});
+
+globalThis.test("PUT then GET round-trips the bytes and content-type", async () => {
+  let match = await postJson("/__inmemory/upload", Object.fromEntries([[
+      "fileName",
+      "pixel.svg"
+    ]]));
+  let ref = getString(match[1], "storageRef");
+  let svg = "<svg xmlns='http://www.w3.org/2000/svg' width='1' height='1'></svg>";
+  let putStatus = await putRaw(ref, svg, "image/svg+xml");
+  globalThis.expect(putStatus).toEqual(200);
+  let match$1 = await getRaw(ref);
+  globalThis.expect(match$1[0]).toEqual(200);
+  globalThis.expect(match$1[1]).toEqual(svg);
+  globalThis.expect(match$1[2]).toEqual("image/svg+xml");
+});
+
+globalThis.test("GET a missing served object returns 404", async () => {
+  let match = await getRaw("/uploads/missing/none.svg");
+  globalThis.expect(match[0]).toEqual(404);
+});
+
+let port = 49322;
+
+export {
+  port,
+  postJson,
+  putRaw,
+  getRaw,
+  getString,
+}
+/*  Not a pure module */

package/tests/components/inboundtranslationslice/InboundTranslationSliceCallbackTest.res

@@ -34,9 +34,11 @@ describe("InboundTranslationSlice Callback", () => {
       let result = await Callback.receive(mockPublish, inputJson)
 
       switch result {
-      | Ok(targetIds) =>
-        expect(targetIds->Array.length)->toBe(1)
-        expect(targetIds->Array.getUnsafe(0))->toBe("ord-1")
+      | Ok({requestId, targetIds, commandCount}) =>
+        expect(targetIds)->toEqual(["ord-1"])
+        expect(commandCount)->toBe(1)
+        // requestId keys the audit row, so the caller can correlate the response.
+        expect(Callback.auditLog->Dict.get(requestId)->Option.isSome)->toBe(true)
       | Error(_) => expect(true)->toBe(false)
       }
       expect(publishedCommands.contents->Array.length)->toBe(1)
@@ -67,7 +69,7 @@ describe("InboundTranslationSlice Callback", () => {
       let result = await Callback.receive(mockPublish, inputJson)
 
       switch result {
-      | Error(msg) => expect(msg)->toBe("Unknown payment status: pending")
+      | Error({error}) => expect(error)->toBe("Unknown payment status: pending")
       | Ok(_) => expect(true)->toBe(false)
       }
       expect(publishedCommands.contents->Array.length)->toBe(0)
@@ -112,7 +114,7 @@ describe("InboundTranslationSlice Callback", () => {
       let result = await Callback.receive(failingPublish, inputJson)
 
       switch result {
-      | Error(msg) => expect(msg)->toBe("publish failed")
+      | Error({error}) => expect(error)->toBe("publish failed")
       | Ok(_) => expect(true)->toBe(false)
       }
 
@@ -177,9 +179,9 @@ describe("InboundTranslationSlice Callback", () => {
       let result = await MultiCallback.receive(mockPublish, inputJson)
 
       switch result {
-      | Ok(targetIds) =>
-        expect(targetIds->Array.length)->toBe(3)
-        expect(targetIds->Array.getUnsafe(0))->toBe("ord-1")
+      | Ok({targetIds, commandCount}) =>
+        expect(targetIds)->toEqual(["ord-1", "ord-1", "ord-1"])
+        expect(commandCount)->toBe(3)
       | Error(_) => expect(true)->toBe(false)
       }
       // All 3 commands published in one batch
@@ -234,7 +236,9 @@ describe("InboundTranslationSlice Callback", () => {
       let result = await EmptyCallback.receive(mockPublish, inputJson)
 
       switch result {
-      | Ok(targetIds) => expect(targetIds->Array.length)->toBe(0)
+      | Ok({targetIds, commandCount}) =>
+        expect(targetIds)->toEqual([])
+        expect(commandCount)->toBe(0)
       | Error(_) => expect(true)->toBe(false)
       }
       expect(publishedCommands.contents->Array.length)->toBe(0)

package/tests/components/inboundtranslationslice/InboundTranslationSliceCallbackTest.res.mjs

@@ -2,6 +2,7 @@
 
 import * as S from "sury/src/S.res.mjs";
 import * as Stdlib_Dict from "@rescript/runtime/lib/es6/Stdlib_Dict.js";
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
 import * as Stdlib_JsError from "@rescript/runtime/lib/es6/Stdlib_JsError.js";
 import * as DcbTag$Reventless from "@reventlessdev/reventless-spec/src/components/DcbTag.res.mjs";
 import * as InboundTranslationSliceFixtures$ReventlessLocal from "./InboundTranslationSliceFixtures.res.mjs";
@@ -45,9 +46,10 @@ globalThis.describe("InboundTranslationSlice Callback", () => {
       };
       let result = await Callback.receive(mockPublish, inputJson);
       if (result.TAG === "Ok") {
-        let targetIds = result._0;
-        globalThis.expect(targetIds.length).toBe(1);
-        globalThis.expect(targetIds[0]).toBe("ord-1");
+        let match = result._0;
+        globalThis.expect(match.targetIds).toEqual(["ord-1"]);
+        globalThis.expect(match.commandCount).toBe(1);
+        globalThis.expect(Stdlib_Option.isSome(Callback.auditLog[match.requestId])).toBe(true);
       } else {
         globalThis.expect(true).toBe(false);
       }
@@ -56,8 +58,8 @@ globalThis.describe("InboundTranslationSlice Callback", () => {
       globalThis.expect(cmd.id).toBe("ord-1");
       let auditEntries = Object.entries(Callback.auditLog);
       globalThis.expect(auditEntries.length).toBe(1);
-      let match = auditEntries[0];
-      let auditRow = match[1];
+      let match$1 = auditEntries[0];
+      let auditRow = match$1[1];
       globalThis.expect(auditRow.status).toBe("Success");
       globalThis.expect(auditRow.commandCount).toBe(1);
     });
@@ -77,7 +79,7 @@ globalThis.describe("InboundTranslationSlice Callback", () => {
       if (result.TAG === "Ok") {
         globalThis.expect(true).toBe(false);
       } else {
-        globalThis.expect(result._0).toBe("Unknown payment status: pending");
+        globalThis.expect(result._0.error).toBe("Unknown payment status: pending");
       }
       globalThis.expect(publishedCommands.contents.length).toBe(0);
       let auditEntries = Object.entries(Callback.auditLog);
@@ -112,7 +114,7 @@ globalThis.describe("InboundTranslationSlice Callback", () => {
       if (result.TAG === "Ok") {
         globalThis.expect(true).toBe(false);
       } else {
-        globalThis.expect(result._0).toBe("publish failed");
+        globalThis.expect(result._0.error).toBe("publish failed");
       }
       let auditEntries = Object.entries(Callback.auditLog);
       globalThis.expect(auditEntries.length).toBe(1);
@@ -173,17 +175,21 @@ globalThis.describe("InboundTranslationSlice Callback", () => {
       };
       let result = await MultiCallback.receive(mockPublish, inputJson);
       if (result.TAG === "Ok") {
-        let targetIds = result._0;
-        globalThis.expect(targetIds.length).toBe(3);
-        globalThis.expect(targetIds[0]).toBe("ord-1");
+        let match = result._0;
+        globalThis.expect(match.targetIds).toEqual([
+          "ord-1",
+          "ord-1",
+          "ord-1"
+        ]);
+        globalThis.expect(match.commandCount).toBe(3);
       } else {
         globalThis.expect(true).toBe(false);
       }
       globalThis.expect(publishedCommands.contents.length).toBe(3);
       let auditEntries = Object.entries(MultiCallback.auditLog);
       globalThis.expect(auditEntries.length).toBe(1);
-      let match = auditEntries[0];
-      let auditRow = match[1];
+      let match$1 = auditEntries[0];
+      let auditRow = match$1[1];
       globalThis.expect(auditRow.status).toBe("Success");
       globalThis.expect(auditRow.commandCount).toBe(3);
     });
@@ -226,7 +232,9 @@ globalThis.describe("InboundTranslationSlice Callback", () => {
       };
       let result = await EmptyCallback.receive(mockPublish, inputJson);
       if (result.TAG === "Ok") {
-        globalThis.expect(result._0.length).toBe(0);
+        let match = result._0;
+        globalThis.expect(match.targetIds).toEqual([]);
+        globalThis.expect(match.commandCount).toBe(0);
       } else {
         globalThis.expect(true).toBe(false);
       }

package/tests/components/outboundtranslationslice/OutboundTranslationSlicePlatformFixtures.res

@@ -0,0 +1,215 @@
+// Platform-level fixtures for OutboundTranslationSlice.
+//
+// The sibling callback test calls phase1/phase2 directly and passes even when
+// the component is never reached by an event — it cannot observe wiring. This
+// fixture builds the real thing: a DcbEventLog, a StateChangeSlice that appends
+// to it, and an OutboundTranslationSlice subscribed to that log's event topic.
+// A command published through `publishJsons` is the only input; the assertions
+// read the TODO QueryDb and the recorded external calls.
+//
+// Wiring summary:
+//   DcbEventLog "TestLog" — publishes events to TestLogDcbEventLogEventTopic
+//   StateChangeSlice "Place" — Place command → Placed event
+//   OutboundTranslationSlice "SendConfirm" — Placed event → external call
+
+open TestFixtures
+open Reventless
+
+// ─────────────────────────────────────────────────────────────
+// Place StateChangeSlice
+// ─────────────────────────────────────────────────────────────
+
+module PlaceSpec = {
+  let name = "Place"
+  module Id = Reventless.Id.String
+  let moduleUrl: string = %raw(`import.meta.url`)
+
+  @schema
+  type event = Placed({
+    orderId: @s.matches(Reventless.DcbTag.string) string,
+    customerId: string,
+  })
+
+  @schema
+  type consumedEvent = Placed
+
+  @schema
+  type command = Place({
+    orderId: @s.matches(Reventless.DcbTag.string) string,
+    customerId: string,
+  })
+
+  @schema
+  type error = AlreadyPlaced
+
+  let commandSchema = commandSchema
+}
+
+module PlaceBehavior = {
+  module Spec = PlaceSpec
+  let moduleUrl: string = %raw(`import.meta.url`)
+
+  type state = bool
+  let initialState = false
+  let evolve = (_state: state, _event: Spec.consumedEvent) => true
+  let decide = (state: state, command: Spec.command): result<array<Spec.event>, Spec.error> =>
+    if state {
+      Error(AlreadyPlaced)
+    } else {
+      switch command {
+      | Place({orderId, customerId}) => Ok([Spec.Placed({orderId, customerId})])
+      }
+    }
+}
+
+// ─────────────────────────────────────────────────────────────
+// OutboundTranslationSlice — consumes Placed, fire-and-forget
+//
+// `consumedEvent` deliberately declares a strict subset of the appended event's
+// fields (no customerId beyond the two it needs is added, but the stored event
+// carries fields this slice ignores) — the same shape the hybrid example uses.
+// ─────────────────────────────────────────────────────────────
+
+module SendConfirmSpec = {
+  let name = "SendConfirm"
+  let moduleUrl: string = %raw(`import.meta.url`)
+
+  @schema
+  type consumedEvent = Placed({orderId: string})
+
+  @schema
+  type outboundItem = {orderId: string}
+
+  @schema
+  type inboundCommand = unit
+
+  let maxRetries = 3
+  let heartbeatInterval = 60
+  let targetName = None
+  let externalSystem = Some("EmailService")
+}
+
+// Two separate records so a failure says which phase stalled: `collectCalls`
+// empty means the event never reached phase 1 at all, while `collectCalls`
+// populated with `externalCalls` empty isolates the fault to phase 2.
+let collectCalls: array<string> = []
+let externalCalls: array<string> = []
+
+module SendConfirmTranslation: OutboundTranslationSlice.Translation
+  with module Spec := SendConfirmSpec = {
+  let moduleUrl: string = %raw(`import.meta.url`)
+
+  let collect = (event: SendConfirmSpec.consumedEvent) =>
+    switch event {
+    | Placed({orderId}) =>
+      collectCalls->Array.push(orderId)
+      [(orderId, ({orderId: orderId}: SendConfirmSpec.outboundItem))]
+    }
+
+  let translate = async (_id, item: SendConfirmSpec.outboundItem) => {
+    externalCalls->Array.push(item.orderId)
+    Ok(None)
+  }
+}
+
+// ─────────────────────────────────────────────────────────────
+// Bus + Pulumi mock setup
+// ─────────────────────────────────────────────────────────────
+
+module Bus = LocalBus.Make()
+let _ = TestRunner.setup()
+
+module DcbLogMaker = DcbEventLog_Builder.Make(Bus)
+let dcbEventLog = DcbLogMaker.make(
+  ~name="TestLog",
+  ~partitionTag=Reventless.DcbTag.Simple({key: "orderId"}),
+)
+
+// ─────────────────────────────────────────────────────────────
+// publishJsons routes by TAG through the global handler registry.
+// (Same shape AutomationSliceSelfDeadlockFixtures uses — substitutes for a real
+// CommandTopic without the runtime wiring overhead.)
+// ─────────────────────────────────────────────────────────────
+
+let publishJsons: ReventlessInfra.CommandTopic.publishJsons = async cmdJsons => {
+  let _ =
+    await cmdJsons
+    ->Array.map(async cmdJson => {
+      let typeName = switch cmdJson.commandJson {
+      | JSON.Object(dict) =>
+        dict
+        ->Dict.get("TAG")
+        ->Option.flatMap(j =>
+          switch j {
+          | JSON.String(s) => Some(s)
+          | _ => None
+          }
+        )
+        ->Option.getOr("")
+      | _ => ""
+      }
+      let fullBody = JSON.Encode.object(
+        Dict.fromArray([
+          ("id", JSON.Encode.string(cmdJson.id)),
+          ("meta", cmdJson.meta->S.reverseConvertToJsonOrThrow(Reventless.Message.metaSchema)),
+          ("command", cmdJson.commandJson),
+        ]),
+      )
+      let handlers = ReventlessCore.CommandTopic.getHandlers(typeName)
+      let _ =
+        await handlers
+        ->Array.map(async entry => {
+          let item: ReventlessInfra.CommandTopic.topicItem<JSON.t> = {
+            reference: cmdJson.id,
+            command: fullBody,
+          }
+          let _ = await entry.handler(Stream.fromIterable([item]))->Effect.runPromise
+        })
+        ->Promise.all
+    })
+    ->Promise.all
+}
+
+let publishJsonsOutput = publishJsons->Pulumi.Output.make
+
+// ─────────────────────────────────────────────────────────────
+// Wire the StateChangeSlice + the OutboundTranslationSlice
+// ─────────────────────────────────────────────────────────────
+
+module PlaceMaker = StateChangeSlice_Builder.Make(PlaceSpec, PlaceBehavior)
+let _placeSlice = PlaceMaker.make(~dcbEventLog, ~publishJsons=publishJsonsOutput)
+
+let dcbTopicOutputs: ReventlessInfra.EventTopic.outputs = (
+  dcbEventLog->ReventlessInfra.Component.outputs
+).eventTopic
+
+module OutboundMaker = OutboundTranslationSlice_Builder.Make(Bus)
+module SendConfirm = OutboundMaker.Make(SendConfirmSpec, SendConfirmTranslation)
+let sendConfirmSlice = SendConfirm.make(~dcbEventLog, ~publishJsons=publishJsonsOutput)
+
+// ─────────────────────────────────────────────────────────────
+// Test helpers
+// ─────────────────────────────────────────────────────────────
+
+let placeCmdJson = (orderId: string): Reventless.Message.commandJson => {
+  id: orderId,
+  meta: testMeta,
+  commandJson: PlaceSpec.Place({orderId, customerId: "cust-" ++ orderId})
+    ->S.reverseConvertToJsonOrThrow(PlaceSpec.commandSchema),
+}
+
+let readEventTypes = async (orderId: string) => {
+  let logOps = await dcbEventLog->DcbLogMaker.operations->TestRunner.resolve
+  let result = await logOps.read(
+    ~query=[{tags: [{Reventless.DcbTag.key: "orderId", value: orderId}]}],
+  )
+  result.events->Array.map(e => e.eventType)
+}
+
+// Drains pending microtasks so detached work (phase 2, QueryDb sync) settles.
+let flush = async () => {
+  let _ = await Promise.resolve()
+  let _ = await Promise.resolve()
+  let _ = await Promise.resolve()
+  let _ = await Promise.resolve()
+}