@reventlessdev/online-shop-aggregates-ordering 3.0.0-alpha.101

package/tests/Order/SideEffect/EmailService_Mock.res

@@ -0,0 +1,31 @@
+// Recording mock for `EmailService` (Option C of the `sideeffect-gwt` plan).
+// `install()` swaps `EmailService.current` to a backend that records every
+// call into a ref. `SideEffect_GWT` reads the recorded calls back via `mock`
+// and renders assertions against them.
+//
+// Production code never sees this file — it lives under `tests/` and only
+// loads when the test runner imports it.
+
+@schema
+type call = SendOrderConfirmation({email: string, orderId: string})
+
+let calls: ref<array<call>> = ref([])
+
+let reset = () => calls := []
+
+let recordingBackend: EmailService.backend = {
+  sendOrderConfirmation: async (~email, ~orderId) => {
+    calls := calls.contents->Array.concat([SendOrderConfirmation({email, orderId})])
+  },
+}
+
+// Swap the live backend and clear any prior recordings. Call from `beforeEach`.
+let install = () => {
+  EmailService.current := recordingBackend
+  reset()
+}
+
+let mock: ReventlessGwt.SideEffect_GWT.mock<call> = {
+  snapshot: () => calls.contents,
+  encode: c => c->S.reverseConvertToJsonOrThrow(callSchema),
+}

package/tests/Order/SideEffect/EmailService_Mock.res.mjs

@@ -0,0 +1,56 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.res.mjs";
+import * as EmailService$OrderingPlugin from "../../../src/Service/EmailService.res.mjs";
+
+let callSchema = S.schema(s => ({
+  TAG: "SendOrderConfirmation",
+  email: s.m(S.string),
+  orderId: s.m(S.string)
+}));
+
+let calls = {
+  contents: []
+};
+
+function reset() {
+  calls.contents = [];
+}
+
+let recordingBackend = {
+  sendOrderConfirmation: async (email, orderId) => {
+    calls.contents = calls.contents.concat([{
+        TAG: "SendOrderConfirmation",
+        email: email,
+        orderId: orderId
+      }]);
+  }
+};
+
+function install() {
+  EmailService$OrderingPlugin.current.contents = recordingBackend;
+  calls.contents = [];
+}
+
+function mock_snapshot() {
+  return calls.contents;
+}
+
+function mock_encode(c) {
+  return S.reverseConvertToJsonOrThrow(c, callSchema);
+}
+
+let mock = {
+  snapshot: mock_snapshot,
+  encode: mock_encode
+};
+
+export {
+  callSchema,
+  calls,
+  reset,
+  recordingBackend,
+  install,
+  mock,
+}
+/* callSchema Not a pure module */

package/tests/Order/SideEffect/Order_EmailNotification_GWT.res

@@ -0,0 +1,37 @@
+// GWT for the aggregate-style egress `Order_EmailNotification`. Mirrors the
+// hybrid example's DCB-side `SendOrderConfirmation_GWT` (OutboundTranslation).
+// The folder `SideEffect/` is what the PPX uses to infer the DSL kind.
+
+@@reventless.gwt
+
+// Each test installs the recording backend at the start of its pipeline; the
+// install also resets the recorded-calls ref, so tests stay isolated without
+// pulling rescript-jest's `beforeEach` into the example's dependencies.
+
+describe("Order_EmailNotification SideEffect", () => {
+  test("Placed triggers a confirmation email", () => {
+    EmailService_Mock.install()
+    givenEventForId(
+      Order.Id.makeFromString("o1"),
+      Order.Placed({customerId: "alice@example.com", productIds: ["p1"]}),
+    )
+    ->whenExecuted(EmailService_Mock.mock)
+    ->thenExternalCalls([
+      EmailService_Mock.SendOrderConfirmation({email: "alice@example.com", orderId: "o1"}),
+    ])
+  })
+
+  test("Shipped is a no-op", () => {
+    EmailService_Mock.install()
+    givenEvent(Order.Shipped)
+    ->whenExecuted(EmailService_Mock.mock)
+    ->thenNoExternalCalls
+  })
+
+  test("Cancelled is a no-op", () => {
+    EmailService_Mock.install()
+    givenEvent(Order.Cancelled({productIds: ["p1"]}))
+    ->whenExecuted(EmailService_Mock.mock)
+    ->thenNoExternalCalls
+  })
+})

package/tests/Order/SideEffect/Order_EmailNotification_GWT.res.mjs

@@ -0,0 +1,76 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
+import * as SideEffect_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/SideEffect_GWT.res.mjs";
+import * as EmailService_Mock$OrderingPlugin from "./EmailService_Mock.res.mjs";
+import * as Order_EmailNotification$OrderingPlugin from "../../../src/Order/SideEffect/Order_EmailNotification.res.mjs";
+
+let include = SideEffect_GWT$ReventlessGwt.Make({
+  Source: {
+    name: Order_EmailNotification$OrderingPlugin.Source.name,
+    Id: Id$Reventless.$$String,
+    eventSchema: Order_EmailNotification$OrderingPlugin.Source.eventSchema
+  },
+  moduleUrl: Order_EmailNotification$OrderingPlugin.moduleUrl,
+  execute: Order_EmailNotification$OrderingPlugin.execute
+});
+
+let describe = include.describe;
+
+let test = include.test;
+
+let givenEvent = include.givenEvent;
+
+let givenEventForId = include.givenEventForId;
+
+let whenExecuted = include.whenExecuted;
+
+let thenNoExternalCalls = include.thenNoExternalCalls;
+
+let thenExternalCalls = include.thenExternalCalls;
+
+describe("Order_EmailNotification SideEffect", () => {
+  test("Placed triggers a confirmation email", undefined, () => {
+    EmailService_Mock$OrderingPlugin.install();
+    return thenExternalCalls(whenExecuted(givenEventForId(Id$Reventless.$$String.makeFromString("o1"), {
+      TAG: "Placed",
+      customerId: "alice@example.com",
+      productIds: ["p1"]
+    }), EmailService_Mock$OrderingPlugin.mock, undefined), [{
+        TAG: "SendOrderConfirmation",
+        email: "alice@example.com",
+        orderId: "o1"
+      }]);
+  });
+  test("Shipped is a no-op", undefined, () => {
+    EmailService_Mock$OrderingPlugin.install();
+    return thenNoExternalCalls(whenExecuted(givenEvent("Shipped"), EmailService_Mock$OrderingPlugin.mock, undefined));
+  });
+  test("Cancelled is a no-op", undefined, () => {
+    EmailService_Mock$OrderingPlugin.install();
+    return thenNoExternalCalls(whenExecuted(givenEvent({
+      TAG: "Cancelled",
+      productIds: ["p1"]
+    }), EmailService_Mock$OrderingPlugin.mock, undefined));
+  });
+});
+
+let SE = include.SE;
+
+let givenMeta = include.givenMeta;
+
+let thenExternalCallCount = include.thenExternalCallCount;
+
+export {
+  SE,
+  describe,
+  test,
+  givenEvent,
+  givenEventForId,
+  givenMeta,
+  whenExecuted,
+  thenNoExternalCalls,
+  thenExternalCalls,
+  thenExternalCallCount,
+}
+/* include Not a pure module */