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

package/lib/bs/tests/ExtensionPoint/Orders_ExtensionPointMapping_GWT.res.mjs

@@ -0,0 +1,143 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
+import * as Order$OrderingPlugin from "../../src/Order/Aggregate/Order.res.mjs";
+import * as Delegate_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Delegate_GWT.res.mjs";
+import * as Orders_ExtensionPoint$OrderingSpec from "@reventlessdev/online-shop-aggregates-ordering-spec/src/Orders_ExtensionPoint.res.mjs";
+import * as Orders_ExtensionPointMapping$OrderingPlugin from "../../src/ExtensionPoint/Orders_ExtensionPointMapping.res.mjs";
+
+let include = Delegate_GWT$ReventlessGwt.FromExtensionPoint({
+  ExtensionPoint: {
+    name: Orders_ExtensionPoint$OrderingSpec.name,
+    moduleUrl: Orders_ExtensionPoint$OrderingSpec.moduleUrl,
+    commandSchema: Orders_ExtensionPoint$OrderingSpec.commandSchema,
+    eventSchema: Orders_ExtensionPoint$OrderingSpec.eventSchema,
+    directiveSchema: Orders_ExtensionPoint$OrderingSpec.directiveSchema
+  },
+  Delegate: {
+    Id: Id$Reventless.$$String,
+    name: Order$OrderingPlugin.name,
+    eventSchema: Order$OrderingPlugin.eventSchema,
+    errorSchema: Order$OrderingPlugin.errorSchema,
+    commandSchema: Order$OrderingPlugin.commandSchema,
+    moduleUrl: Order$OrderingPlugin.moduleUrl,
+    commandAuthorization: Order$OrderingPlugin.commandAuthorization
+  },
+  moduleUrl: Orders_ExtensionPointMapping$OrderingPlugin.moduleUrl,
+  mapIncomingCommand: Orders_ExtensionPointMapping$OrderingPlugin.mapIncomingCommand,
+  mapOutgoingEvent: Orders_ExtensionPointMapping$OrderingPlugin.mapOutgoingEvent
+});
+
+let describe = include.describe;
+
+let test = include.test;
+
+let thenPublishesNothing = include.thenPublishesNothing;
+
+let whenDelegateEvent = include.whenDelegateEvent;
+
+let thenPublishesEvents = include.thenPublishesEvents;
+
+describe("Orders ExtensionPoint mapping — per-product fan-out", () => {
+  test("Placed fans out to one ItemOrdered per product", undefined, () => thenPublishesEvents(whenDelegateEvent({
+    TAG: "Placed",
+    customerId: "c1",
+    productIds: [
+      "p1",
+      "p2"
+    ]
+  }), [
+    [
+      "p1",
+      {
+        TAG: "ItemOrdered",
+        productId: "p1",
+        orderId: "gwt-id",
+        customerId: "c1"
+      }
+    ],
+    [
+      "p2",
+      {
+        TAG: "ItemOrdered",
+        productId: "p2",
+        orderId: "gwt-id",
+        customerId: "c1"
+      }
+    ]
+  ]));
+  test("Cancelled fans out to one ItemOrderCancelled per product", undefined, () => thenPublishesEvents(whenDelegateEvent({
+    TAG: "Cancelled",
+    productIds: [
+      "p1",
+      "p2"
+    ]
+  }), [
+    [
+      "p1",
+      {
+        TAG: "ItemOrderCancelled",
+        productId: "p1",
+        orderId: "gwt-id"
+      }
+    ],
+    [
+      "p2",
+      {
+        TAG: "ItemOrderCancelled",
+        productId: "p2",
+        orderId: "gwt-id"
+      }
+    ]
+  ]));
+  test("Shipped publishes nothing", undefined, () => thenPublishesNothing(whenDelegateEvent("Shipped")));
+  test("Refunded publishes nothing", undefined, () => thenPublishesNothing(whenDelegateEvent({
+    TAG: "Refunded",
+    reason: "customer-changed-mind"
+  })));
+});
+
+let encEvent = include.encEvent;
+
+let encCommand = include.encCommand;
+
+let encDirective = include.encDirective;
+
+let EvCore = include.EvCore;
+
+let CmdCore = include.CmdCore;
+
+let thenPublishesEvent = include.thenPublishesEvent;
+
+let whenIncomingCommand = include.whenIncomingCommand;
+
+let thenPublishesCommand = include.thenPublishesCommand;
+
+let thenPublishesCommands = include.thenPublishesCommands;
+
+let thenHandlesDirective = include.thenHandlesDirective;
+
+let thenHandlesDirectives = include.thenHandlesDirectives;
+
+let thenHandlesNoDirective = include.thenHandlesNoDirective;
+
+export {
+  encEvent,
+  encCommand,
+  encDirective,
+  EvCore,
+  CmdCore,
+  describe,
+  test,
+  thenPublishesNothing,
+  whenDelegateEvent,
+  thenPublishesEvent,
+  thenPublishesEvents,
+  whenIncomingCommand,
+  thenPublishesCommand,
+  thenPublishesCommands,
+  thenHandlesDirective,
+  thenHandlesDirectives,
+  thenHandlesNoDirective,
+}
+/* include Not a pure module */

package/lib/bs/tests/Order/Aggregate/OrderMappings_GWT.res

@@ -0,0 +1,52 @@
+// `Mapping_GWT` exercises Order's self-mapping (auto-ship on placement).
+// Bare `@@reventless.gwt` would derive the Behavior DSL from the Aggregate
+// folder; the cross-pattern Mapping DSL is wired explicitly instead.
+//
+// Self-mappings need the target's per-id history pre-seeded with the
+// source-emitted event, since Mapping_GWT models source and target as
+// independent aggregates even when they're the same one in production.
+
+module OrderSource = ReventlessGwt.Mapping_GWT.FromBehavior(Order, Order_Behavior)
+module OrderTarget = ReventlessGwt.Mapping_GWT.FromBehavior(Order, Order_Behavior)
+
+module AutoShipGwtMapping = {
+  module Source = OrderSource
+  module Target = OrderTarget
+  let map = Order_Mappings.AutoShipMapping.map
+}
+
+include ReventlessGwt.Mapping_GWT.Make(AutoShipGwtMapping)
+
+let placedEvent = Order.Placed({customerId: "cust-1", productIds: ["prod-1"]})
+
+describe("Order auto-ship mapping (Placed → Ship)", () => {
+  test("Place → AutoShipMapping issues Ship → target emits Shipped", () =>
+    givenSourceEvents([])
+    ->andTargetEvents([("order-1", [placedEvent])])
+    ->whenSourceCmd("order-1", Place({customerId: "cust-1", productIds: ["prod-1"]}))
+    ->thenTargetEvent("order-1", Order.Shipped)
+  )
+
+  test("Ship command does not fire the mapping (only Placed events do)", () =>
+    givenSourceEvents([placedEvent])
+    ->andTargetEvents([("order-1", [placedEvent])])
+    ->whenSourceCmd("order-1", Ship)
+    ->thenNoTargetEvent
+  )
+
+  test("Cancel command does not fire the mapping", () =>
+    givenSourceEvents([placedEvent])
+    ->andTargetEvents([("order-1", [placedEvent])])
+    ->whenSourceCmd("order-1", Cancel)
+    ->thenNoTargetEvent
+  )
+
+  test("Refund command does not fire the mapping (only Placed events do)", () =>
+    givenSourceEvents([placedEvent, Order.Cancelled({productIds: ["prod-1"]})])
+    ->andTargetEvents([
+      ("order-1", [placedEvent, Order.Cancelled({productIds: ["prod-1"]})]),
+    ])
+    ->whenSourceCmd("order-1", Refund({reason: "customer-changed-mind"}))
+    ->thenNoTargetEvent
+  )
+})

package/lib/bs/tests/Order/Aggregate/OrderMappings_GWT.res.mjs

@@ -0,0 +1,162 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
+import * as Order$OrderingPlugin from "../../../src/Order/Aggregate/Order.res.mjs";
+import * as Mapping_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Mapping_GWT.res.mjs";
+import * as Order_Behavior$OrderingPlugin from "../../../src/Order/Aggregate/Order_Behavior.res.mjs";
+import * as Order_Mappings$OrderingPlugin from "../../../src/Order/Aggregate/Order_Mappings.res.mjs";
+
+let OrderSource = Mapping_GWT$ReventlessGwt.FromBehavior({
+  Id: Id$Reventless.$$String,
+  name: Order$OrderingPlugin.name,
+  eventSchema: Order$OrderingPlugin.eventSchema,
+  errorSchema: Order$OrderingPlugin.errorSchema,
+  commandSchema: Order$OrderingPlugin.commandSchema,
+  moduleUrl: Order$OrderingPlugin.moduleUrl,
+  commandAuthorization: Order$OrderingPlugin.commandAuthorization
+})({
+  Spec: {
+    Id: Id$Reventless.$$String,
+    name: Order$OrderingPlugin.name,
+    eventSchema: Order$OrderingPlugin.eventSchema,
+    errorSchema: Order$OrderingPlugin.errorSchema,
+    commandSchema: Order$OrderingPlugin.commandSchema,
+    moduleUrl: Order$OrderingPlugin.moduleUrl,
+    commandAuthorization: Order$OrderingPlugin.commandAuthorization
+  },
+  initialState: Order_Behavior$OrderingPlugin.initialState,
+  evolve: Order_Behavior$OrderingPlugin.evolve,
+  decide: Order_Behavior$OrderingPlugin.decide,
+  moduleUrl: Order_Behavior$OrderingPlugin.moduleUrl
+});
+
+let OrderTarget = Mapping_GWT$ReventlessGwt.FromBehavior({
+  Id: Id$Reventless.$$String,
+  name: Order$OrderingPlugin.name,
+  eventSchema: Order$OrderingPlugin.eventSchema,
+  errorSchema: Order$OrderingPlugin.errorSchema,
+  commandSchema: Order$OrderingPlugin.commandSchema,
+  moduleUrl: Order$OrderingPlugin.moduleUrl,
+  commandAuthorization: Order$OrderingPlugin.commandAuthorization
+})({
+  Spec: {
+    Id: Id$Reventless.$$String,
+    name: Order$OrderingPlugin.name,
+    eventSchema: Order$OrderingPlugin.eventSchema,
+    errorSchema: Order$OrderingPlugin.errorSchema,
+    commandSchema: Order$OrderingPlugin.commandSchema,
+    moduleUrl: Order$OrderingPlugin.moduleUrl,
+    commandAuthorization: Order$OrderingPlugin.commandAuthorization
+  },
+  initialState: Order_Behavior$OrderingPlugin.initialState,
+  evolve: Order_Behavior$OrderingPlugin.evolve,
+  decide: Order_Behavior$OrderingPlugin.decide,
+  moduleUrl: Order_Behavior$OrderingPlugin.moduleUrl
+});
+
+let map = Order_Mappings$OrderingPlugin.AutoShipMapping.map;
+
+let AutoShipGwtMapping = {
+  Source: undefined,
+  Target: undefined,
+  map: map
+};
+
+let include = Mapping_GWT$ReventlessGwt.Make({
+  Source: OrderSource,
+  Target: OrderTarget,
+  map: map
+});
+
+let describe = include.describe;
+
+let test = include.test;
+
+let givenSourceEvents = include.givenSourceEvents;
+
+let andTargetEvents = include.andTargetEvents;
+
+let whenSourceCmd = include.whenSourceCmd;
+
+let thenTargetEvent = include.thenTargetEvent;
+
+let thenNoTargetEvent = include.thenNoTargetEvent;
+
+let placedEvent_1 = ["prod-1"];
+
+let placedEvent = {
+  TAG: "Placed",
+  customerId: "cust-1",
+  productIds: placedEvent_1
+};
+
+describe("Order auto-ship mapping (Placed → Ship)", () => {
+  test("Place → AutoShipMapping issues Ship → target emits Shipped", undefined, () => thenTargetEvent(whenSourceCmd(andTargetEvents(givenSourceEvents([]), [[
+      "order-1",
+      [placedEvent]
+    ]]), "order-1", {
+    TAG: "Place",
+    customerId: "cust-1",
+    productIds: ["prod-1"]
+  }), "order-1", "Shipped"));
+  test("Ship command does not fire the mapping (only Placed events do)", undefined, () => thenNoTargetEvent(whenSourceCmd(andTargetEvents(givenSourceEvents([placedEvent]), [[
+      "order-1",
+      [placedEvent]
+    ]]), "order-1", "Ship")));
+  test("Cancel command does not fire the mapping", undefined, () => thenNoTargetEvent(whenSourceCmd(andTargetEvents(givenSourceEvents([placedEvent]), [[
+      "order-1",
+      [placedEvent]
+    ]]), "order-1", "Cancel")));
+  test("Refund command does not fire the mapping (only Placed events do)", undefined, () => thenNoTargetEvent(whenSourceCmd(andTargetEvents(givenSourceEvents([
+    placedEvent,
+    {
+      TAG: "Cancelled",
+      productIds: ["prod-1"]
+    }
+  ]), [[
+      "order-1",
+      [
+        placedEvent,
+        {
+          TAG: "Cancelled",
+          productIds: ["prod-1"]
+        }
+      ]
+    ]]), "order-1", {
+    TAG: "Refund",
+    reason: "customer-changed-mind"
+  })));
+});
+
+let Source = include.Source;
+
+let Target = include.Target;
+
+let thenTargetEvents = include.thenTargetEvents;
+
+let thenSourceError = include.thenSourceError;
+
+let thenTargetError = include.thenTargetError;
+
+let thenTargetEventsWithError = include.thenTargetEventsWithError;
+
+export {
+  OrderSource,
+  OrderTarget,
+  AutoShipGwtMapping,
+  Source,
+  Target,
+  describe,
+  test,
+  givenSourceEvents,
+  andTargetEvents,
+  whenSourceCmd,
+  thenTargetEvents,
+  thenTargetEvent,
+  thenNoTargetEvent,
+  thenSourceError,
+  thenTargetError,
+  thenTargetEventsWithError,
+  placedEvent,
+}
+/* OrderSource Not a pure module */

package/lib/bs/tests/Order/Aggregate/Order_GWT.res

@@ -0,0 +1,121 @@
+@@reventless.gwt
+
+describe("Order Behavior", () => {
+  test("Place on new aggregate produces Placed", () =>
+    givenEvents([])
+    ->whenCmd(Place({customerId: "cust-1", productIds: ["prod-1", "prod-2"]}))
+    ->thenEvent(Placed({customerId: "cust-1", productIds: ["prod-1", "prod-2"]}))
+  )
+
+  test("Place on existing order returns OrderAlreadyPlaced", () =>
+    givenEvents([Placed({customerId: "cust-1", productIds: ["prod-1"]})])
+    ->whenCmd(Place({customerId: "cust-1", productIds: ["prod-1"]}))
+    ->thenError(OrderAlreadyPlaced)
+  )
+
+  test("Place on shipped order returns OrderAlreadyShipped", () =>
+    givenEvents([Placed({customerId: "cust-1", productIds: ["prod-1"]}), Shipped])
+    ->whenCmd(Place({customerId: "cust-1", productIds: ["prod-1"]}))
+    ->thenError(OrderAlreadyShipped)
+  )
+
+  test("Place on cancelled order returns OrderAlreadyCancelled", () =>
+    givenEvents([
+      Placed({customerId: "cust-1", productIds: ["prod-1"]}),
+      Cancelled({productIds: ["prod-1"]}),
+    ])
+    ->whenCmd(Place({customerId: "cust-1", productIds: ["prod-1"]}))
+    ->thenError(OrderAlreadyCancelled)
+  )
+
+  test("Ship on non-existent order returns OrderNotFound", () =>
+    givenEvents([])
+    ->whenCmd(Ship)
+    ->thenError(OrderNotFound)
+  )
+
+  test("Ship on placed order produces Shipped", () =>
+    givenEvents([Placed({customerId: "cust-1", productIds: ["prod-1"]})])
+    ->whenCmd(Ship)
+    ->thenEvent(Shipped)
+  )
+
+  test("Ship on shipped order produces no events (idempotent)", () =>
+    givenEvents([Placed({customerId: "cust-1", productIds: ["prod-1"]}), Shipped])
+    ->whenCmd(Ship)
+    ->thenNoEvent
+  )
+
+  test("Ship on cancelled order returns OrderAlreadyCancelled", () =>
+    givenEvents([
+      Placed({customerId: "cust-1", productIds: ["prod-1"]}),
+      Cancelled({productIds: ["prod-1"]}),
+    ])
+    ->whenCmd(Ship)
+    ->thenError(OrderAlreadyCancelled)
+  )
+
+  test("Cancel on non-existent order returns OrderNotFound", () =>
+    givenEvents([])
+    ->whenCmd(Cancel)
+    ->thenError(OrderNotFound)
+  )
+
+  test("Cancel on placed order produces Cancelled", () =>
+    givenEvents([Placed({customerId: "cust-1", productIds: ["prod-1"]})])
+    ->whenCmd(Cancel)
+    ->thenEvent(Cancelled({productIds: ["prod-1"]}))
+  )
+
+  test("Cancel on shipped order returns OrderAlreadyShipped", () =>
+    givenEvents([Placed({customerId: "cust-1", productIds: ["prod-1"]}), Shipped])
+    ->whenCmd(Cancel)
+    ->thenError(OrderAlreadyShipped)
+  )
+
+  test("Cancel on cancelled order produces no events (idempotent)", () =>
+    givenEvents([
+      Placed({customerId: "cust-1", productIds: ["prod-1"]}),
+      Cancelled({productIds: ["prod-1"]}),
+    ])
+    ->whenCmd(Cancel)
+    ->thenNoEvent
+  )
+
+  test("Refund on non-existent order returns OrderNotFound", () =>
+    givenEvents([])
+    ->whenCmd(Refund({reason: "lost-in-transit"}))
+    ->thenError(OrderNotFound)
+  )
+
+  test("Refund on placed order returns OrderNotCancelled", () =>
+    givenEvents([Placed({customerId: "cust-1", productIds: ["prod-1"]})])
+    ->whenCmd(Refund({reason: "customer-changed-mind"}))
+    ->thenError(OrderNotCancelled)
+  )
+
+  test("Refund on shipped order returns OrderNotCancelled", () =>
+    givenEvents([Placed({customerId: "cust-1", productIds: ["prod-1"]}), Shipped])
+    ->whenCmd(Refund({reason: "delivered-damaged"}))
+    ->thenError(OrderNotCancelled)
+  )
+
+  test("Refund on cancelled order produces Refunded", () =>
+    givenEvents([
+      Placed({customerId: "cust-1", productIds: ["prod-1"]}),
+      Cancelled({productIds: ["prod-1"]}),
+    ])
+    ->whenCmd(Refund({reason: "customer-changed-mind"}))
+    ->thenEvent(Refunded({reason: "customer-changed-mind"}))
+  )
+
+  test("Refund on already-refunded order produces no events (idempotent)", () =>
+    givenEvents([
+      Placed({customerId: "cust-1", productIds: ["prod-1"]}),
+      Cancelled({productIds: ["prod-1"]}),
+      Refunded({reason: "customer-changed-mind"}),
+    ])
+    ->whenCmd(Refund({reason: "customer-changed-mind"}))
+    ->thenNoEvent
+  )
+})