@reventlessdev/online-shop-dcb-ordering 1.0.0-alpha.250 → 1.0.0-alpha.252

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

@@ -1,23 +1,26 @@
 @@reventless.gwt
 
-let cid = CustomerId.make
+open Ordering_Examples
 
 describe("DeactivateCustomer StateChangeSlice", () => {
+  // scenario-id: 1baa12f3-6e24-4660-8b23-aaabcf0de1e3
   test("non-existent customer returns CustomerNotFound", () =>
     givenEvents([])
-    ->whenCmd(DeactivateCustomer({customerId: cid("c1")}))
+    ->whenCmd(DeactivateCustomer({customerId: c1}))
     ->thenError(CustomerNotFound)
   )
 
+  // scenario-id: 0e52a2a6-9424-474d-b3be-b6c3c8d12bbe
   test("existing customer produces CustomerDeactivated", () =>
     givenEvents([CustomerRegistered])
-    ->whenCmd(DeactivateCustomer({customerId: cid("c1")}))
-    ->thenEvent(CustomerDeactivated({customerId: cid("c1")}))
+    ->whenCmd(DeactivateCustomer({customerId: c1}))
+    ->thenEvent(CustomerDeactivated({customerId: c1}))
   )
 
+  // scenario-id: c4b62b80-ea23-4d1a-a937-68409af297ec
   test("already deactivated customer produces no events (idempotent)", () =>
     givenEvents([CustomerRegistered, CustomerDeactivated])
-    ->whenCmd(DeactivateCustomer({customerId: cid("c1")}))
+    ->whenCmd(DeactivateCustomer({customerId: c1}))
     ->thenNoEvent
   )
 })

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

@@ -1,7 +1,7 @@
 // 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 Ordering_Examples$OrderingPlugin from "../../Ordering_Examples.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";
 
@@ -34,21 +34,21 @@ let thenError = include.thenError;
 describe("DeactivateCustomer StateChangeSlice", () => {
   test("non-existent customer returns CustomerNotFound", () => thenError(whenCmd(givenEvents([]), {
     TAG: "DeactivateCustomer",
-    customerId: CustomerId$OrderingPlugin.make("c1")
+    customerId: Ordering_Examples$OrderingPlugin.c1
   }), "CustomerNotFound"));
   test("existing customer produces CustomerDeactivated", () => thenEvent(whenCmd(givenEvents(["CustomerRegistered"]), {
     TAG: "DeactivateCustomer",
-    customerId: CustomerId$OrderingPlugin.make("c1")
+    customerId: Ordering_Examples$OrderingPlugin.c1
   }), {
     TAG: "CustomerDeactivated",
-    customerId: CustomerId$OrderingPlugin.make("c1")
+    customerId: Ordering_Examples$OrderingPlugin.c1
   }));
   test("already deactivated customer produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([
     "CustomerRegistered",
     "CustomerDeactivated"
   ]), {
     TAG: "DeactivateCustomer",
-    customerId: CustomerId$OrderingPlugin.make("c1")
+    customerId: Ordering_Examples$OrderingPlugin.c1
   })));
 });
 
@@ -66,8 +66,6 @@ let thenAppendsConditionedOn = include.thenAppendsConditionedOn;
 
 let thenAppendsConditionedOnExactly = include.thenAppendsConditionedOnExactly;
 
-let cid = CustomerId$OrderingPlugin.make;
-
 export {
   Spec,
   describe,
@@ -83,6 +81,5 @@ export {
   thenError,
   thenAppendsConditionedOn,
   thenAppendsConditionedOnExactly,
-  cid,
 }
 /* include Not a pure module */

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

@@ -1,19 +1,19 @@
 @@reventless.gwt
 
-let cid = CustomerId.make
+open Ordering_Examples
 
 describe("RegisterCustomer StateChangeSlice", () => {
+  // scenario-id: fd616ac0-6ee3-47ef-b74f-212a7befac4a
   test("empty event log produces CustomerRegistered", () =>
     givenEvents([])
-    ->whenCmd(RegisterCustomer({customerId: cid("c1"), email: "alice@x.y", address: "123 Main"}))
-    ->thenEvent(
-      CustomerRegistered({customerId: cid("c1"), email: "alice@x.y", address: "123 Main"}),
-    )
+    ->whenCmd(RegisterCustomer({customerId: c1, email: aliceEmail, address: mainStreet}))
+    ->thenEvent(CustomerRegistered({customerId: c1, email: aliceEmail, address: mainStreet}))
   )
 
+  // scenario-id: d99db741-d659-456e-b84f-9af30a7d8a41
   test("existing customer returns CustomerAlreadyRegistered", () =>
     givenEvents([CustomerRegistered])
-    ->whenCmd(RegisterCustomer({customerId: cid("c1"), email: "bob@x.y", address: "456 Oak"}))
+    ->whenCmd(RegisterCustomer({customerId: c1, email: "bob@x.y", address: "456 Oak"}))
     ->thenError(CustomerAlreadyRegistered)
   )
 })

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

@@ -1,8 +1,8 @@
 // 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 Ordering_Examples$OrderingPlugin from "../../Ordering_Examples.res.mjs";
 import * as RegisterCustomer_Behavior$OrderingPlugin from "../../../src/Customer/StateChange/RegisterCustomer_Behavior.res.mjs";
 
 let include = Behavior_GWT$ReventlessGwt.Make({
@@ -32,18 +32,18 @@ let thenError = include.thenError;
 describe("RegisterCustomer StateChangeSlice", () => {
   test("empty event log produces CustomerRegistered", () => thenEvent(whenCmd(givenEvents([]), {
     TAG: "RegisterCustomer",
-    customerId: CustomerId$OrderingPlugin.make("c1"),
-    email: "alice@x.y",
-    address: "123 Main"
+    customerId: Ordering_Examples$OrderingPlugin.c1,
+    email: Ordering_Examples$OrderingPlugin.aliceEmail,
+    address: Ordering_Examples$OrderingPlugin.mainStreet
   }), {
     TAG: "CustomerRegistered",
-    customerId: CustomerId$OrderingPlugin.make("c1"),
-    email: "alice@x.y",
-    address: "123 Main"
+    customerId: Ordering_Examples$OrderingPlugin.c1,
+    email: Ordering_Examples$OrderingPlugin.aliceEmail,
+    address: Ordering_Examples$OrderingPlugin.mainStreet
   }));
   test("existing customer returns CustomerAlreadyRegistered", () => thenError(whenCmd(givenEvents(["CustomerRegistered"]), {
     TAG: "RegisterCustomer",
-    customerId: CustomerId$OrderingPlugin.make("c1"),
+    customerId: Ordering_Examples$OrderingPlugin.c1,
     email: "bob@x.y",
     address: "456 Oak"
   }), "CustomerAlreadyRegistered"));
@@ -65,8 +65,6 @@ let thenAppendsConditionedOn = include.thenAppendsConditionedOn;
 
 let thenAppendsConditionedOnExactly = include.thenAppendsConditionedOnExactly;
 
-let cid = CustomerId$OrderingPlugin.make;
-
 export {
   Spec,
   describe,
@@ -82,6 +80,5 @@ export {
   thenError,
   thenAppendsConditionedOn,
   thenAppendsConditionedOnExactly,
-  cid,
 }
 /* include Not a pure module */

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

@@ -1,49 +1,45 @@
 @@reventless.gwt
 
-let cid = CustomerId.make
+open Ordering_Examples
 
 describe("Customers StateViewSlice", () => {
+  // scenario-id: 56a23bc7-31ce-4e9c-a7f1-d523e75aefba
   test("CustomerRegistered creates a row", () =>
     givenEvents([])
-    ->whenEvent(
-      CustomerRegistered({customerId: cid("c1"), email: "alice@x.y", address: "123 Main"}),
-    )
+    ->whenEvent(CustomerRegistered({customerId: c1, email: aliceEmail, address: mainStreet}))
     ->thenStateWithId(
       "c1",
-      {customerId: cid("c1"), email: "alice@x.y", address: "123 Main", deactivated: false},
+      {customerId: c1, email: aliceEmail, address: mainStreet, deactivated: false},
     )
   )
 
+  // scenario-id: 941f8ba9-3740-49f7-bb3a-e3aca90f10bf
   test("EmailChanged updates the email", () =>
-    givenEvents([
-      CustomerRegistered({customerId: cid("c1"), email: "alice@x.y", address: "123 Main"}),
-    ])
-    ->whenEvent(EmailChanged({customerId: cid("c1"), email: "alice2@x.y"}))
+    givenEvents([CustomerRegistered({customerId: c1, email: aliceEmail, address: mainStreet})])
+    ->whenEvent(EmailChanged({customerId: c1, email: aliceNewEmail}))
     ->thenStateWithId(
       "c1",
-      {customerId: cid("c1"), email: "alice2@x.y", address: "123 Main", deactivated: false},
+      {customerId: c1, email: aliceNewEmail, address: mainStreet, deactivated: false},
     )
   )
 
+  // scenario-id: 778d3e61-2b9b-4f55-a4ca-57f5e476a09b
   test("AddressChanged updates the address", () =>
-    givenEvents([
-      CustomerRegistered({customerId: cid("c1"), email: "alice@x.y", address: "123 Main"}),
-    ])
-    ->whenEvent(AddressChanged({customerId: cid("c1"), address: "789 Pine"}))
+    givenEvents([CustomerRegistered({customerId: c1, email: aliceEmail, address: mainStreet})])
+    ->whenEvent(AddressChanged({customerId: c1, address: pineStreet}))
     ->thenStateWithId(
       "c1",
-      {customerId: cid("c1"), email: "alice@x.y", address: "789 Pine", deactivated: false},
+      {customerId: c1, email: aliceEmail, address: pineStreet, deactivated: false},
     )
   )
 
+  // scenario-id: 783d84a5-3b4d-41df-bf3c-abaa9c717bd7
   test("CustomerDeactivated sets deactivated flag", () =>
-    givenEvents([
-      CustomerRegistered({customerId: cid("c1"), email: "alice@x.y", address: "123 Main"}),
-    ])
-    ->whenEvent(CustomerDeactivated({customerId: cid("c1")}))
+    givenEvents([CustomerRegistered({customerId: c1, email: aliceEmail, address: mainStreet})])
+    ->whenEvent(CustomerDeactivated({customerId: c1}))
     ->thenStateWithId(
       "c1",
-      {customerId: cid("c1"), email: "alice@x.y", address: "123 Main", deactivated: true},
+      {customerId: c1, email: aliceEmail, address: mainStreet, deactivated: true},
     )
   )
 })

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

@@ -3,6 +3,7 @@
 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 Ordering_Examples$OrderingPlugin from "../../Ordering_Examples.res.mjs";
 import * as Customers_Projection$OrderingPlugin from "../../../src/Customer/StateView/Customers_Projection.res.mjs";
 
 let include = Projection_GWT$ReventlessGwt.Make({
@@ -28,57 +29,57 @@ let thenStateWithId = include.thenStateWithId;
 describe("Customers StateViewSlice", () => {
   test("CustomerRegistered creates a row", undefined, () => thenStateWithId(whenEvent(givenEvents([]), {
     TAG: "CustomerRegistered",
-    customerId: CustomerId$OrderingPlugin.make("c1"),
-    email: "alice@x.y",
-    address: "123 Main"
+    customerId: Ordering_Examples$OrderingPlugin.c1,
+    email: Ordering_Examples$OrderingPlugin.aliceEmail,
+    address: Ordering_Examples$OrderingPlugin.mainStreet
   }), "c1", {
-    customerId: CustomerId$OrderingPlugin.make("c1"),
-    email: "alice@x.y",
-    address: "123 Main",
+    customerId: Ordering_Examples$OrderingPlugin.c1,
+    email: Ordering_Examples$OrderingPlugin.aliceEmail,
+    address: Ordering_Examples$OrderingPlugin.mainStreet,
     deactivated: false
   }));
   test("EmailChanged updates the email", undefined, () => thenStateWithId(whenEvent(givenEvents([{
       TAG: "CustomerRegistered",
-      customerId: CustomerId$OrderingPlugin.make("c1"),
-      email: "alice@x.y",
-      address: "123 Main"
+      customerId: Ordering_Examples$OrderingPlugin.c1,
+      email: Ordering_Examples$OrderingPlugin.aliceEmail,
+      address: Ordering_Examples$OrderingPlugin.mainStreet
     }]), {
     TAG: "EmailChanged",
-    customerId: CustomerId$OrderingPlugin.make("c1"),
-    email: "alice2@x.y"
+    customerId: Ordering_Examples$OrderingPlugin.c1,
+    email: Ordering_Examples$OrderingPlugin.aliceNewEmail
   }), "c1", {
-    customerId: CustomerId$OrderingPlugin.make("c1"),
-    email: "alice2@x.y",
-    address: "123 Main",
+    customerId: Ordering_Examples$OrderingPlugin.c1,
+    email: Ordering_Examples$OrderingPlugin.aliceNewEmail,
+    address: Ordering_Examples$OrderingPlugin.mainStreet,
     deactivated: false
   }));
   test("AddressChanged updates the address", undefined, () => thenStateWithId(whenEvent(givenEvents([{
       TAG: "CustomerRegistered",
-      customerId: CustomerId$OrderingPlugin.make("c1"),
-      email: "alice@x.y",
-      address: "123 Main"
+      customerId: Ordering_Examples$OrderingPlugin.c1,
+      email: Ordering_Examples$OrderingPlugin.aliceEmail,
+      address: Ordering_Examples$OrderingPlugin.mainStreet
     }]), {
     TAG: "AddressChanged",
-    customerId: CustomerId$OrderingPlugin.make("c1"),
-    address: "789 Pine"
+    customerId: Ordering_Examples$OrderingPlugin.c1,
+    address: Ordering_Examples$OrderingPlugin.pineStreet
   }), "c1", {
-    customerId: CustomerId$OrderingPlugin.make("c1"),
-    email: "alice@x.y",
-    address: "789 Pine",
+    customerId: Ordering_Examples$OrderingPlugin.c1,
+    email: Ordering_Examples$OrderingPlugin.aliceEmail,
+    address: Ordering_Examples$OrderingPlugin.pineStreet,
     deactivated: false
   }));
   test("CustomerDeactivated sets deactivated flag", undefined, () => thenStateWithId(whenEvent(givenEvents([{
       TAG: "CustomerRegistered",
-      customerId: CustomerId$OrderingPlugin.make("c1"),
-      email: "alice@x.y",
-      address: "123 Main"
+      customerId: Ordering_Examples$OrderingPlugin.c1,
+      email: Ordering_Examples$OrderingPlugin.aliceEmail,
+      address: Ordering_Examples$OrderingPlugin.mainStreet
     }]), {
     TAG: "CustomerDeactivated",
-    customerId: CustomerId$OrderingPlugin.make("c1")
+    customerId: Ordering_Examples$OrderingPlugin.c1
   }), "c1", {
-    customerId: CustomerId$OrderingPlugin.make("c1"),
-    email: "alice@x.y",
-    address: "123 Main",
+    customerId: Ordering_Examples$OrderingPlugin.c1,
+    email: Ordering_Examples$OrderingPlugin.aliceEmail,
+    address: Ordering_Examples$OrderingPlugin.mainStreet,
     deactivated: true
   }));
 });
@@ -105,8 +106,6 @@ let thenThrow = include.thenThrow;
 
 let thenFail = include.thenFail;
 
-let cid = CustomerId$OrderingPlugin.make;
-
 export {
   Spec,
   describe,
@@ -124,6 +123,5 @@ export {
   thenNoState,
   thenThrow,
   thenFail,
-  cid,
 }
 /* include Not a pure module */

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

@@ -2,24 +2,24 @@
 // SyncCatalogProduct commands on Ordering's local shadow slice.
 @@reventless.gwt
 
-let pid = CatalogSpec.ProductId.make
+open Ordering_Examples
 
 // `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
 
 describe("Products Extension delegate", () => {
+  // scenario-id: a4680fe3-1546-4669-9334-d8971e2b7162
   test("ProductBecameAvailable issues SyncNewProduct", () =>
     whenIncomingEvent(
-      ExtensionPoint.ProductBecameAvailable({productId: pid("p1"), name: "Book", price: 9.99}),
-    )->thenPublishesCommand(
-      Delegate.SyncNewProduct({productId: pid("p1"), name: "Book", price: 9.99}),
-    )
+      ExtensionPoint.ProductBecameAvailable({productId: p1, name: "Book", price: 9.99}),
+    )->thenPublishesCommand(Delegate.SyncNewProduct({productId: p1, name: "Book", price: 9.99}))
   )
 
+  // scenario-id: b8178540-b81e-4d82-9b93-9f2f68b968c6
   test("ProductPriceChanged issues ChangeSyncedPrice", () =>
     whenIncomingEvent(
-      ExtensionPoint.ProductPriceChanged({productId: pid("p1"), price: 7.5}),
-    )->thenPublishesCommand(Delegate.ChangeSyncedPrice({productId: pid("p1"), price: 7.5}))
+      ExtensionPoint.ProductPriceChanged({productId: p1, price: 7.5}),
+    )->thenPublishesCommand(Delegate.ChangeSyncedPrice({productId: p1, price: 7.5}))
   )
 })

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

@@ -1,8 +1,8 @@
 // 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 Ordering_Examples$OrderingPlugin from "../Ordering_Examples.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";
 import * as Products_ExtensionPoint$CatalogSpec from "@reventlessdev/online-shop-dcb-catalog-spec/src/Products_ExtensionPoint.res.mjs";
@@ -45,22 +45,22 @@ let thenPublishesCommand = include.thenPublishesCommand;
 describe("Products Extension delegate", () => {
   test("ProductBecameAvailable issues SyncNewProduct", undefined, () => thenPublishesCommand(whenIncomingEvent({
     TAG: "ProductBecameAvailable",
-    productId: ProductId$CatalogSpec.make("p1"),
+    productId: Ordering_Examples$OrderingPlugin.p1,
     name: "Book",
     price: 9.99
   }), {
     TAG: "SyncNewProduct",
-    productId: ProductId$CatalogSpec.make("p1"),
+    productId: Ordering_Examples$OrderingPlugin.p1,
     name: "Book",
     price: 9.99
   }));
   test("ProductPriceChanged issues ChangeSyncedPrice", undefined, () => thenPublishesCommand(whenIncomingEvent({
     TAG: "ProductPriceChanged",
-    productId: ProductId$CatalogSpec.make("p1"),
+    productId: Ordering_Examples$OrderingPlugin.p1,
     price: 7.5
   }), {
     TAG: "ChangeSyncedPrice",
-    productId: ProductId$CatalogSpec.make("p1"),
+    productId: Ordering_Examples$OrderingPlugin.p1,
     price: 7.5
   }));
 });
@@ -91,8 +91,6 @@ let thenHandlesDirectives = include.thenHandlesDirectives;
 
 let thenHandlesNoDirective = include.thenHandlesNoDirective;
 
-let pid = ProductId$CatalogSpec.make;
-
 export {
   encCmd,
   encEpCmd,
@@ -111,6 +109,5 @@ export {
   thenHandlesDirective,
   thenHandlesDirectives,
   thenHandlesNoDirective,
-  pid,
 }
 /* include Not a pure module */

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

@@ -2,17 +2,16 @@
 // 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
+open Ordering_Examples
 
 describe("Orders ExtensionPoint mapping — per-product fan-out", () => {
+  // scenario-id: 1a9119c4-48fe-4f5f-b357-a3326dcd4ae9
   test("OrderPlaced fans out to one ItemOrdered per product", () =>
     whenDelegateEvent(
       Delegate.OrderPlaced({
-        orderId: oid("o1"),
-        customerId: cid("c1"),
-        productIds: [pid("p1"), pid("p2")],
+        orderId: o1,
+        customerId: c1,
+        productIds: [p1, p2],
       }),
     )->thenPublishesEvents([
       ("p1", ExtensionPoint.ItemOrdered({productId: "p1", orderId: "o1", customerId: "c1"})),
@@ -20,9 +19,10 @@ describe("Orders ExtensionPoint mapping — per-product fan-out", () => {
     ])
   )
 
+  // scenario-id: c8a2bb56-33d0-4f1d-a9f0-220e4e04f755
   test("OrderCancelled fans out to one ItemOrderCancelled per product", () =>
     whenDelegateEvent(
-      Delegate.OrderCancelled({orderId: oid("o1"), productIds: [pid("p1"), pid("p2")]}),
+      Delegate.OrderCancelled({orderId: o1, productIds: [p1, 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,10 +1,8 @@
 // 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 Ordering_Examples$OrderingPlugin from "../Ordering_Examples.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";
 
@@ -45,11 +43,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: OrderId$OrderingPlugin.make("o1"),
-    customerId: CustomerId$OrderingPlugin.make("c1"),
+    orderId: Ordering_Examples$OrderingPlugin.o1,
+    customerId: Ordering_Examples$OrderingPlugin.c1,
     productIds: [
-      ProductId$CatalogSpec.make("p1"),
-      ProductId$CatalogSpec.make("p2")
+      Ordering_Examples$OrderingPlugin.p1,
+      Ordering_Examples$OrderingPlugin.p2
     ]
   }), [
     [
@@ -73,10 +71,10 @@ describe("Orders ExtensionPoint mapping — per-product fan-out", () => {
   ]));
   test("OrderCancelled fans out to one ItemOrderCancelled per product", undefined, () => thenPublishesEvents(whenDelegateEvent({
     TAG: "OrderCancelled",
-    orderId: OrderId$OrderingPlugin.make("o1"),
+    orderId: Ordering_Examples$OrderingPlugin.o1,
     productIds: [
-      ProductId$CatalogSpec.make("p1"),
-      ProductId$CatalogSpec.make("p2")
+      Ordering_Examples$OrderingPlugin.p1,
+      Ordering_Examples$OrderingPlugin.p2
     ]
   }), [
     [
@@ -124,12 +122,6 @@ 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,
@@ -148,8 +140,5 @@ export {
   thenHandlesDirective,
   thenHandlesDirectives,
   thenHandlesNoDirective,
-  cid,
-  oid,
-  pid,
 }
 /* include Not a pure module */

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

@@ -22,36 +22,41 @@ module AutoShipOrderSlice = {
 
 @@reventless.gwt
 
-let oid = OrderId.make
+open Ordering_Examples
 
 describe("AutoShipOrder AutomationSlice", () => {
+  // scenario-id: 02131883-ffbd-430f-a186-86d79daf5fb4
   test("collect: OrderPlaced creates a pending TODO", () =>
-    givenEvent(OrderPlaced({orderId: oid("o1")}))
+    givenEvent(OrderPlaced({orderId: o1}))
     ->whenCollect
-    ->thenTodos([("o1", {orderId: oid("o1")})])
+    ->thenTodos([("o1", {orderId: o1})])
   )
 
+  // scenario-id: 9f6c8137-a3ee-4bcd-8f22-59c028d3859e
   test("collect: OrderShipped is ignored (no TODO)", () =>
-    givenEvent(OrderShipped({orderId: oid("o1")}))
+    givenEvent(OrderShipped({orderId: o1}))
     ->whenCollect
     ->thenTodos([])
   )
 
+  // scenario-id: 0d773a65-4422-45d1-a861-a3b61d144bc5
   test("resolve: OrderShipped marks the TODO done", () =>
-    givenEvent(OrderShipped({orderId: oid("o1")}))
+    givenEvent(OrderShipped({orderId: o1}))
     ->whenResolve
     ->thenResolved(Some("o1"))
   )
 
+  // scenario-id: def98dd4-ed82-4d4b-9d93-7fd6f77278a4
   test("resolve: OrderPlaced does not mark anything done", () =>
-    givenEvent(OrderPlaced({orderId: oid("o1")}))
+    givenEvent(OrderPlaced({orderId: o1}))
     ->whenResolve
     ->thenResolved(None)
   )
 
+  // scenario-id: c33672f2-3c0a-489f-baed-79eb15963354
   test("process: pending TODO emits ShipOrder for the same id", () =>
-    givenTodo("o1", {orderId: oid("o1")})
+    givenTodo("o1", {orderId: o1})
     ->whenProcess
-    ->thenCommand("o1", ShipOrder({orderId: oid("o1")}))
+    ->thenCommand("o1", ShipOrder({orderId: o1}))
   )
 })