@reventlessdev/online-shop-dcb-ordering 1.0.0-alpha.246 → 1.0.0-alpha.248

package/lib/bs/tests/Customer/StateChange/DeactivateCustomer_GWT.res

@@ -1,21 +1,23 @@
 @@reventless.gwt
 
+let cid = CustomerId.make
+
 describe("DeactivateCustomer StateChangeSlice", () => {
   test("non-existent customer returns CustomerNotFound", () =>
     givenEvents([])
-    ->whenCmd(DeactivateCustomer({customerId: "c1"}))
+    ->whenCmd(DeactivateCustomer({customerId: cid("c1")}))
     ->thenError(CustomerNotFound)
   )
 
   test("existing customer produces CustomerDeactivated", () =>
     givenEvents([CustomerRegistered])
-    ->whenCmd(DeactivateCustomer({customerId: "c1"}))
-    ->thenEvent(CustomerDeactivated({customerId: "c1"}))
+    ->whenCmd(DeactivateCustomer({customerId: cid("c1")}))
+    ->thenEvent(CustomerDeactivated({customerId: cid("c1")}))
   )
 
   test("already deactivated customer produces no events (idempotent)", () =>
     givenEvents([CustomerRegistered, CustomerDeactivated])
-    ->whenCmd(DeactivateCustomer({customerId: "c1"}))
+    ->whenCmd(DeactivateCustomer({customerId: cid("c1")}))
     ->thenNoEvent
   )
 })

package/lib/bs/tests/Customer/StateChange/DeactivateCustomer_GWT.res.mjs

@@ -1,5 +1,6 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
+import * as CustomerId$OrderingPlugin from "../../../src/Customer/CustomerId.res.mjs";
 import * as Behavior_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Behavior_GWT.res.mjs";
 import * as DeactivateCustomer$OrderingPlugin from "../../../src/Customer/StateChange/DeactivateCustomer.res.mjs";
 import * as DeactivateCustomer_Behavior$OrderingPlugin from "../../../src/Customer/StateChange/DeactivateCustomer_Behavior.res.mjs";
@@ -33,21 +34,21 @@ let thenError = include.thenError;
 describe("DeactivateCustomer StateChangeSlice", () => {
   test("non-existent customer returns CustomerNotFound", () => thenError(whenCmd(givenEvents([]), {
     TAG: "DeactivateCustomer",
-    customerId: "c1"
+    customerId: CustomerId$OrderingPlugin.make("c1")
   }), "CustomerNotFound"));
   test("existing customer produces CustomerDeactivated", () => thenEvent(whenCmd(givenEvents(["CustomerRegistered"]), {
     TAG: "DeactivateCustomer",
-    customerId: "c1"
+    customerId: CustomerId$OrderingPlugin.make("c1")
   }), {
     TAG: "CustomerDeactivated",
-    customerId: "c1"
+    customerId: CustomerId$OrderingPlugin.make("c1")
   }));
   test("already deactivated customer produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([
     "CustomerRegistered",
     "CustomerDeactivated"
   ]), {
     TAG: "DeactivateCustomer",
-    customerId: "c1"
+    customerId: CustomerId$OrderingPlugin.make("c1")
   })));
 });
 
@@ -65,6 +66,8 @@ let thenAppendsConditionedOn = include.thenAppendsConditionedOn;
 
 let thenAppendsConditionedOnExactly = include.thenAppendsConditionedOnExactly;
 
+let cid = CustomerId$OrderingPlugin.make;
+
 export {
   Spec,
   describe,
@@ -80,5 +83,6 @@ export {
   thenError,
   thenAppendsConditionedOn,
   thenAppendsConditionedOnExactly,
+  cid,
 }
 /* include Not a pure module */

package/lib/bs/tests/Customer/StateChange/RegisterCustomer_GWT.res

@@ -1,15 +1,19 @@
 @@reventless.gwt
 
+let cid = CustomerId.make
+
 describe("RegisterCustomer StateChangeSlice", () => {
   test("empty event log produces CustomerRegistered", () =>
     givenEvents([])
-    ->whenCmd(RegisterCustomer({customerId: "c1", email: "alice@x.y", address: "123 Main"}))
-    ->thenEvent(CustomerRegistered({customerId: "c1", email: "alice@x.y", address: "123 Main"}))
+    ->whenCmd(RegisterCustomer({customerId: cid("c1"), email: "alice@x.y", address: "123 Main"}))
+    ->thenEvent(
+      CustomerRegistered({customerId: cid("c1"), email: "alice@x.y", address: "123 Main"}),
+    )
   )
 
   test("existing customer returns CustomerAlreadyRegistered", () =>
     givenEvents([CustomerRegistered])
-    ->whenCmd(RegisterCustomer({customerId: "c1", email: "bob@x.y", address: "456 Oak"}))
+    ->whenCmd(RegisterCustomer({customerId: cid("c1"), email: "bob@x.y", address: "456 Oak"}))
     ->thenError(CustomerAlreadyRegistered)
   )
 })

package/lib/bs/tests/Customer/StateChange/RegisterCustomer_GWT.res.mjs

@@ -1,5 +1,6 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
+import * as CustomerId$OrderingPlugin from "../../../src/Customer/CustomerId.res.mjs";
 import * as Behavior_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Behavior_GWT.res.mjs";
 import * as RegisterCustomer$OrderingPlugin from "../../../src/Customer/StateChange/RegisterCustomer.res.mjs";
 import * as RegisterCustomer_Behavior$OrderingPlugin from "../../../src/Customer/StateChange/RegisterCustomer_Behavior.res.mjs";
@@ -31,18 +32,18 @@ let thenError = include.thenError;
 describe("RegisterCustomer StateChangeSlice", () => {
   test("empty event log produces CustomerRegistered", () => thenEvent(whenCmd(givenEvents([]), {
     TAG: "RegisterCustomer",
-    customerId: "c1",
+    customerId: CustomerId$OrderingPlugin.make("c1"),
     email: "alice@x.y",
     address: "123 Main"
   }), {
     TAG: "CustomerRegistered",
-    customerId: "c1",
+    customerId: CustomerId$OrderingPlugin.make("c1"),
     email: "alice@x.y",
     address: "123 Main"
   }));
   test("existing customer returns CustomerAlreadyRegistered", () => thenError(whenCmd(givenEvents(["CustomerRegistered"]), {
     TAG: "RegisterCustomer",
-    customerId: "c1",
+    customerId: CustomerId$OrderingPlugin.make("c1"),
     email: "bob@x.y",
     address: "456 Oak"
   }), "CustomerAlreadyRegistered"));
@@ -64,6 +65,8 @@ let thenAppendsConditionedOn = include.thenAppendsConditionedOn;
 
 let thenAppendsConditionedOnExactly = include.thenAppendsConditionedOnExactly;
 
+let cid = CustomerId$OrderingPlugin.make;
+
 export {
   Spec,
   describe,
@@ -79,5 +82,6 @@ export {
   thenError,
   thenAppendsConditionedOn,
   thenAppendsConditionedOnExactly,
+  cid,
 }
 /* include Not a pure module */

package/lib/bs/tests/Customer/StateView/Customers_GWT.res

@@ -1,39 +1,49 @@
 @@reventless.gwt
 
+let cid = CustomerId.make
+
 describe("Customers StateViewSlice", () => {
   test("CustomerRegistered creates a row", () =>
     givenEvents([])
-    ->whenEvent(CustomerRegistered({customerId: "c1", email: "alice@x.y", address: "123 Main"}))
+    ->whenEvent(
+      CustomerRegistered({customerId: cid("c1"), email: "alice@x.y", address: "123 Main"}),
+    )
     ->thenStateWithId(
       "c1",
-      {customerId: "c1", email: "alice@x.y", address: "123 Main", deactivated: false},
+      {customerId: cid("c1"), email: "alice@x.y", address: "123 Main", deactivated: false},
     )
   )
 
   test("EmailChanged updates the email", () =>
-    givenEvents([CustomerRegistered({customerId: "c1", email: "alice@x.y", address: "123 Main"})])
-    ->whenEvent(EmailChanged({customerId: "c1", email: "alice2@x.y"}))
+    givenEvents([
+      CustomerRegistered({customerId: cid("c1"), email: "alice@x.y", address: "123 Main"}),
+    ])
+    ->whenEvent(EmailChanged({customerId: cid("c1"), email: "alice2@x.y"}))
     ->thenStateWithId(
       "c1",
-      {customerId: "c1", email: "alice2@x.y", address: "123 Main", deactivated: false},
+      {customerId: cid("c1"), email: "alice2@x.y", address: "123 Main", deactivated: false},
     )
   )
 
   test("AddressChanged updates the address", () =>
-    givenEvents([CustomerRegistered({customerId: "c1", email: "alice@x.y", address: "123 Main"})])
-    ->whenEvent(AddressChanged({customerId: "c1", address: "789 Pine"}))
+    givenEvents([
+      CustomerRegistered({customerId: cid("c1"), email: "alice@x.y", address: "123 Main"}),
+    ])
+    ->whenEvent(AddressChanged({customerId: cid("c1"), address: "789 Pine"}))
     ->thenStateWithId(
       "c1",
-      {customerId: "c1", email: "alice@x.y", address: "789 Pine", deactivated: false},
+      {customerId: cid("c1"), email: "alice@x.y", address: "789 Pine", deactivated: false},
     )
   )
 
   test("CustomerDeactivated sets deactivated flag", () =>
-    givenEvents([CustomerRegistered({customerId: "c1", email: "alice@x.y", address: "123 Main"})])
-    ->whenEvent(CustomerDeactivated({customerId: "c1"}))
+    givenEvents([
+      CustomerRegistered({customerId: cid("c1"), email: "alice@x.y", address: "123 Main"}),
+    ])
+    ->whenEvent(CustomerDeactivated({customerId: cid("c1")}))
     ->thenStateWithId(
       "c1",
-      {customerId: "c1", email: "alice@x.y", address: "123 Main", deactivated: true},
+      {customerId: cid("c1"), email: "alice@x.y", address: "123 Main", deactivated: true},
     )
   )
 })

package/lib/bs/tests/Customer/StateView/Customers_GWT.res.mjs

@@ -1,12 +1,14 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
 import * as Customers$OrderingPlugin from "../../../src/Customer/StateView/Customers.res.mjs";
+import * as CustomerId$OrderingPlugin from "../../../src/Customer/CustomerId.res.mjs";
 import * as Projection_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Projection_GWT.res.mjs";
 import * as Customers_Projection$OrderingPlugin from "../../../src/Customer/StateView/Customers_Projection.res.mjs";
 
 let include = Projection_GWT$ReventlessGwt.Make({
   name: Customers$OrderingPlugin.name,
   stateSchema: Customers$OrderingPlugin.stateSchema,
+  Key: CustomerId$OrderingPlugin,
   consumedEventSchema: Customers$OrderingPlugin.consumedEventSchema,
   subIdConfig: undefined
 })({
@@ -26,55 +28,55 @@ let thenStateWithId = include.thenStateWithId;
 describe("Customers StateViewSlice", () => {
   test("CustomerRegistered creates a row", undefined, () => thenStateWithId(whenEvent(givenEvents([]), {
     TAG: "CustomerRegistered",
-    customerId: "c1",
+    customerId: CustomerId$OrderingPlugin.make("c1"),
     email: "alice@x.y",
     address: "123 Main"
   }), "c1", {
-    customerId: "c1",
+    customerId: CustomerId$OrderingPlugin.make("c1"),
     email: "alice@x.y",
     address: "123 Main",
     deactivated: false
   }));
   test("EmailChanged updates the email", undefined, () => thenStateWithId(whenEvent(givenEvents([{
       TAG: "CustomerRegistered",
-      customerId: "c1",
+      customerId: CustomerId$OrderingPlugin.make("c1"),
       email: "alice@x.y",
       address: "123 Main"
     }]), {
     TAG: "EmailChanged",
-    customerId: "c1",
+    customerId: CustomerId$OrderingPlugin.make("c1"),
     email: "alice2@x.y"
   }), "c1", {
-    customerId: "c1",
+    customerId: CustomerId$OrderingPlugin.make("c1"),
     email: "alice2@x.y",
     address: "123 Main",
     deactivated: false
   }));
   test("AddressChanged updates the address", undefined, () => thenStateWithId(whenEvent(givenEvents([{
       TAG: "CustomerRegistered",
-      customerId: "c1",
+      customerId: CustomerId$OrderingPlugin.make("c1"),
       email: "alice@x.y",
       address: "123 Main"
     }]), {
     TAG: "AddressChanged",
-    customerId: "c1",
+    customerId: CustomerId$OrderingPlugin.make("c1"),
     address: "789 Pine"
   }), "c1", {
-    customerId: "c1",
+    customerId: CustomerId$OrderingPlugin.make("c1"),
     email: "alice@x.y",
     address: "789 Pine",
     deactivated: false
   }));
   test("CustomerDeactivated sets deactivated flag", undefined, () => thenStateWithId(whenEvent(givenEvents([{
       TAG: "CustomerRegistered",
-      customerId: "c1",
+      customerId: CustomerId$OrderingPlugin.make("c1"),
       email: "alice@x.y",
       address: "123 Main"
     }]), {
     TAG: "CustomerDeactivated",
-    customerId: "c1"
+    customerId: CustomerId$OrderingPlugin.make("c1")
   }), "c1", {
-    customerId: "c1",
+    customerId: CustomerId$OrderingPlugin.make("c1"),
     email: "alice@x.y",
     address: "123 Main",
     deactivated: true
@@ -103,6 +105,8 @@ let thenThrow = include.thenThrow;
 
 let thenFail = include.thenFail;
 
+let cid = CustomerId$OrderingPlugin.make;
+
 export {
   Spec,
   describe,
@@ -120,5 +124,6 @@ export {
   thenNoState,
   thenThrow,
   thenFail,
+  cid,
 }
 /* include Not a pure module */

package/lib/bs/tests/Extension/Products_Extension_GWT.res

@@ -2,6 +2,8 @@
 // SyncCatalogProduct commands on Ordering's local shadow slice.
 @@reventless.gwt
 
+let pid = CatalogSpec.ProductId.make
+
 // `Mapping` is brought into scope by the PPX `open Products_Extension`; opening
 // it surfaces the extension point's events and the delegate's commands.
 open Mapping
@@ -9,13 +11,15 @@ open Mapping
 describe("Products Extension delegate", () => {
   test("ProductBecameAvailable issues SyncNewProduct", () =>
     whenIncomingEvent(
-      ExtensionPoint.ProductBecameAvailable({productId: "p1", name: "Book", price: 9.99}),
-    )->thenPublishesCommand(Delegate.SyncNewProduct({productId: "p1", name: "Book", price: 9.99}))
+      ExtensionPoint.ProductBecameAvailable({productId: pid("p1"), name: "Book", price: 9.99}),
+    )->thenPublishesCommand(
+      Delegate.SyncNewProduct({productId: pid("p1"), name: "Book", price: 9.99}),
+    )
   )
 
   test("ProductPriceChanged issues ChangeSyncedPrice", () =>
     whenIncomingEvent(
-      ExtensionPoint.ProductPriceChanged({productId: "p1", price: 7.5}),
-    )->thenPublishesCommand(Delegate.ChangeSyncedPrice({productId: "p1", price: 7.5}))
+      ExtensionPoint.ProductPriceChanged({productId: pid("p1"), price: 7.5}),
+    )->thenPublishesCommand(Delegate.ChangeSyncedPrice({productId: pid("p1"), price: 7.5}))
   )
 })

package/lib/bs/tests/Extension/Products_Extension_GWT.res.mjs

@@ -1,6 +1,7 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
 import * as Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
+import * as ProductId$CatalogSpec from "@reventlessdev/online-shop-dcb-catalog-spec/src/ProductId.res.mjs";
 import * as Delegate_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Delegate_GWT.res.mjs";
 import * as Products_Extension$OrderingPlugin from "../../src/Extension/Products_Extension.res.mjs";
 import * as SyncCatalogProduct$OrderingPlugin from "../../src/CatalogProduct/StateChange/SyncCatalogProduct.res.mjs";
@@ -44,22 +45,22 @@ let thenPublishesCommand = include.thenPublishesCommand;
 describe("Products Extension delegate", () => {
   test("ProductBecameAvailable issues SyncNewProduct", undefined, () => thenPublishesCommand(whenIncomingEvent({
     TAG: "ProductBecameAvailable",
-    productId: "p1",
+    productId: ProductId$CatalogSpec.make("p1"),
     name: "Book",
     price: 9.99
   }), {
     TAG: "SyncNewProduct",
-    productId: "p1",
+    productId: ProductId$CatalogSpec.make("p1"),
     name: "Book",
     price: 9.99
   }));
   test("ProductPriceChanged issues ChangeSyncedPrice", undefined, () => thenPublishesCommand(whenIncomingEvent({
     TAG: "ProductPriceChanged",
-    productId: "p1",
+    productId: ProductId$CatalogSpec.make("p1"),
     price: 7.5
   }), {
     TAG: "ChangeSyncedPrice",
-    productId: "p1",
+    productId: ProductId$CatalogSpec.make("p1"),
     price: 7.5
   }));
 });
@@ -90,6 +91,8 @@ let thenHandlesDirectives = include.thenHandlesDirectives;
 
 let thenHandlesNoDirective = include.thenHandlesNoDirective;
 
+let pid = ProductId$CatalogSpec.make;
+
 export {
   encCmd,
   encEpCmd,
@@ -108,5 +111,6 @@ export {
   thenHandlesDirective,
   thenHandlesDirectives,
   thenHandlesNoDirective,
+  pid,
 }
 /* include Not a pure module */

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

@@ -2,10 +2,18 @@
 // into one public per-product event each (one-to-many fan-out).
 @@reventless.gwt
 
+let cid = CustomerId.make
+let oid = OrderId.make
+let pid = CatalogSpec.ProductId.make
+
 describe("Orders ExtensionPoint mapping — per-product fan-out", () => {
   test("OrderPlaced fans out to one ItemOrdered per product", () =>
     whenDelegateEvent(
-      Delegate.OrderPlaced({orderId: "o1", customerId: "c1", productIds: ["p1", "p2"]}),
+      Delegate.OrderPlaced({
+        orderId: oid("o1"),
+        customerId: cid("c1"),
+        productIds: [pid("p1"), pid("p2")],
+      }),
     )->thenPublishesEvents([
       ("p1", ExtensionPoint.ItemOrdered({productId: "p1", orderId: "o1", customerId: "c1"})),
       ("p2", ExtensionPoint.ItemOrdered({productId: "p2", orderId: "o1", customerId: "c1"})),
@@ -14,7 +22,7 @@ describe("Orders ExtensionPoint mapping — per-product fan-out", () => {
 
   test("OrderCancelled fans out to one ItemOrderCancelled per product", () =>
     whenDelegateEvent(
-      Delegate.OrderCancelled({orderId: "o1", productIds: ["p1", "p2"]}),
+      Delegate.OrderCancelled({orderId: oid("o1"), productIds: [pid("p1"), pid("p2")]}),
     )->thenPublishesEvents([
       ("p1", ExtensionPoint.ItemOrderCancelled({productId: "p1", orderId: "o1"})),
       ("p2", ExtensionPoint.ItemOrderCancelled({productId: "p2", orderId: "o1"})),

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

@@ -1,6 +1,9 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
 import * as Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
+import * as ProductId$CatalogSpec from "@reventlessdev/online-shop-dcb-catalog-spec/src/ProductId.res.mjs";
+import * as OrderId$OrderingPlugin from "../../src/Order/OrderId.res.mjs";
+import * as CustomerId$OrderingPlugin from "../../src/Customer/CustomerId.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-dcb-ordering-spec/src/Orders_ExtensionPoint.res.mjs";
 import * as Orders_ExtensionPointMapping$OrderingPlugin from "../../src/ExtensionPoint/Orders_ExtensionPointMapping.res.mjs";
@@ -42,11 +45,11 @@ let thenPublishesEvents = include.thenPublishesEvents;
 describe("Orders ExtensionPoint mapping — per-product fan-out", () => {
   test("OrderPlaced fans out to one ItemOrdered per product", undefined, () => thenPublishesEvents(whenDelegateEvent({
     TAG: "OrderPlaced",
-    orderId: "o1",
-    customerId: "c1",
+    orderId: OrderId$OrderingPlugin.make("o1"),
+    customerId: CustomerId$OrderingPlugin.make("c1"),
     productIds: [
-      "p1",
-      "p2"
+      ProductId$CatalogSpec.make("p1"),
+      ProductId$CatalogSpec.make("p2")
     ]
   }), [
     [
@@ -70,10 +73,10 @@ describe("Orders ExtensionPoint mapping — per-product fan-out", () => {
   ]));
   test("OrderCancelled fans out to one ItemOrderCancelled per product", undefined, () => thenPublishesEvents(whenDelegateEvent({
     TAG: "OrderCancelled",
-    orderId: "o1",
+    orderId: OrderId$OrderingPlugin.make("o1"),
     productIds: [
-      "p1",
-      "p2"
+      ProductId$CatalogSpec.make("p1"),
+      ProductId$CatalogSpec.make("p2")
     ]
   }), [
     [
@@ -121,6 +124,12 @@ let thenHandlesDirectives = include.thenHandlesDirectives;
 
 let thenHandlesNoDirective = include.thenHandlesNoDirective;
 
+let cid = CustomerId$OrderingPlugin.make;
+
+let oid = OrderId$OrderingPlugin.make;
+
+let pid = ProductId$CatalogSpec.make;
+
 export {
   encEvent,
   encCommand,
@@ -139,5 +148,8 @@ export {
   thenHandlesDirective,
   thenHandlesDirectives,
   thenHandlesNoDirective,
+  cid,
+  oid,
+  pid,
 }
 /* include Not a pure module */

package/lib/bs/tests/Order/Automation/AutoShipOrder_GWT.res

@@ -22,34 +22,36 @@ module AutoShipOrderSlice = {
 
 @@reventless.gwt
 
+let oid = OrderId.make
+
 describe("AutoShipOrder AutomationSlice", () => {
   test("collect: OrderPlaced creates a pending TODO", () =>
-    givenEvent(OrderPlaced({orderId: "o1"}))
+    givenEvent(OrderPlaced({orderId: oid("o1")}))
     ->whenCollect
-    ->thenTodos([("o1", {orderId: "o1"})])
+    ->thenTodos([("o1", {orderId: oid("o1")})])
   )
 
   test("collect: OrderShipped is ignored (no TODO)", () =>
-    givenEvent(OrderShipped({orderId: "o1"}))
+    givenEvent(OrderShipped({orderId: oid("o1")}))
     ->whenCollect
     ->thenTodos([])
   )
 
   test("resolve: OrderShipped marks the TODO done", () =>
-    givenEvent(OrderShipped({orderId: "o1"}))
+    givenEvent(OrderShipped({orderId: oid("o1")}))
     ->whenResolve
     ->thenResolved(Some("o1"))
   )
 
   test("resolve: OrderPlaced does not mark anything done", () =>
-    givenEvent(OrderPlaced({orderId: "o1"}))
+    givenEvent(OrderPlaced({orderId: oid("o1")}))
     ->whenResolve
     ->thenResolved(None)
   )
 
   test("process: pending TODO emits ShipOrder for the same id", () =>
-    givenTodo("o1", {orderId: "o1"})
+    givenTodo("o1", {orderId: oid("o1")})
     ->whenProcess
-    ->thenCommand("o1", ShipOrder({orderId: "o1"}))
+    ->thenCommand("o1", ShipOrder({orderId: oid("o1")}))
   )
 })

package/lib/bs/tests/Order/Automation/AutoShipOrder_GWT.res.mjs

@@ -1,5 +1,6 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
+import * as OrderId$OrderingPlugin from "../../../src/Order/OrderId.res.mjs";
 import * as AutoShipOrder$OrderingPlugin from "../../../src/Order/Automation/AutoShipOrder.res.mjs";
 import * as Automation_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Automation_GWT.res.mjs";
 import * as AutoShipOrder_Automation$OrderingPlugin from "../../../src/Order/Automation/AutoShipOrder_Automation.res.mjs";
@@ -70,30 +71,30 @@ let thenCommand = include.thenCommand;
 describe("AutoShipOrder AutomationSlice", () => {
   test("collect: OrderPlaced creates a pending TODO", () => thenTodos(whenCollect(givenEvent({
     TAG: "OrderPlaced",
-    orderId: "o1"
+    orderId: OrderId$OrderingPlugin.make("o1")
   })), [[
       "o1",
       {
-        orderId: "o1"
+        orderId: OrderId$OrderingPlugin.make("o1")
       }
     ]]));
   test("collect: OrderShipped is ignored (no TODO)", () => thenTodos(whenCollect(givenEvent({
     TAG: "OrderShipped",
-    orderId: "o1"
+    orderId: OrderId$OrderingPlugin.make("o1")
   })), []));
   test("resolve: OrderShipped marks the TODO done", () => thenResolved(whenResolve(givenEvent({
     TAG: "OrderShipped",
-    orderId: "o1"
+    orderId: OrderId$OrderingPlugin.make("o1")
   })), "o1"));
   test("resolve: OrderPlaced does not mark anything done", () => thenResolved(whenResolve(givenEvent({
     TAG: "OrderPlaced",
-    orderId: "o1"
+    orderId: OrderId$OrderingPlugin.make("o1")
   })), undefined));
   test("process: pending TODO emits ShipOrder for the same id", () => thenCommand(whenProcess(givenTodo("o1", {
-    orderId: "o1"
+    orderId: OrderId$OrderingPlugin.make("o1")
   })), "o1", {
     TAG: "ShipOrder",
-    orderId: "o1"
+    orderId: OrderId$OrderingPlugin.make("o1")
   }));
 });
 
@@ -111,6 +112,8 @@ let andThenEvents = include.andThenEvents;
 
 let thenScenarioTodos = include.thenScenarioTodos;
 
+let oid = OrderId$OrderingPlugin.make;
+
 export {
   testContext,
   AutoShipOrderSlice,
@@ -131,5 +134,6 @@ export {
   thenCommands,
   andThenEvents,
   thenScenarioTodos,
+  oid,
 }
 /* include Not a pure module */