@reventlessdev/online-shop-dcb-ordering 1.0.0-alpha.249 → 1.0.0-alpha.251

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

@@ -1,29 +1,33 @@
 @@reventless.gwt
 
-let cid = CustomerId.make
+open Ordering_Examples
 
 describe("ChangeEmail StateChangeSlice", () => {
+  // scenario-id: f82a30f6-fef5-4a05-ac2c-9a419e476f53
   test("non-existent customer returns CustomerNotFound", () =>
     givenEvents([])
-    ->whenCmd(ChangeEmail({customerId: cid("c1"), email: "alice2@x.y"}))
+    ->whenCmd(ChangeEmail({customerId: c1, email: aliceNewEmail}))
     ->thenError(CustomerNotFound)
   )
 
+  // scenario-id: c772aca9-7aa7-4ee0-bb3e-be1a2dc46967
   test("active customer produces EmailChanged", () =>
-    givenEvents([CustomerRegistered({email: "alice@x.y"})])
-    ->whenCmd(ChangeEmail({customerId: cid("c1"), email: "alice2@x.y"}))
-    ->thenEvent(EmailChanged({customerId: cid("c1"), email: "alice2@x.y"}))
+    givenEvents([CustomerRegistered({email: aliceEmail})])
+    ->whenCmd(ChangeEmail({customerId: c1, email: aliceNewEmail}))
+    ->thenEvent(EmailChanged({customerId: c1, email: aliceNewEmail}))
   )
 
+  // scenario-id: 659398db-0145-4e2f-8087-905a1ff03af3
   test("same email produces no events (idempotent)", () =>
-    givenEvents([CustomerRegistered({email: "alice@x.y"})])
-    ->whenCmd(ChangeEmail({customerId: cid("c1"), email: "alice@x.y"}))
+    givenEvents([CustomerRegistered({email: aliceEmail})])
+    ->whenCmd(ChangeEmail({customerId: c1, email: aliceEmail}))
     ->thenNoEvent
   )
 
+  // scenario-id: c868f35b-ea20-438e-947d-58568db6adbd
   test("deactivated customer returns CustomerAlreadyDeactivated", () =>
-    givenEvents([CustomerRegistered({email: "alice@x.y"}), CustomerDeactivated])
-    ->whenCmd(ChangeEmail({customerId: cid("c1"), email: "alice2@x.y"}))
+    givenEvents([CustomerRegistered({email: aliceEmail}), CustomerDeactivated])
+    ->whenCmd(ChangeEmail({customerId: c1, email: aliceNewEmail}))
     ->thenError(CustomerAlreadyDeactivated)
   )
 })

package/lib/bs/tests/Customer/StateChange/ChangeEmail_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 ChangeEmail$OrderingPlugin from "../../../src/Customer/StateChange/ChangeEmail.res.mjs";
+import * as Ordering_Examples$OrderingPlugin from "../../Ordering_Examples.res.mjs";
 import * as ChangeEmail_Behavior$OrderingPlugin from "../../../src/Customer/StateChange/ChangeEmail_Behavior.res.mjs";
 
 let include = Behavior_GWT$ReventlessGwt.Make({
@@ -34,39 +34,39 @@ let thenError = include.thenError;
 describe("ChangeEmail StateChangeSlice", () => {
   test("non-existent customer returns CustomerNotFound", () => thenError(whenCmd(givenEvents([]), {
     TAG: "ChangeEmail",
-    customerId: CustomerId$OrderingPlugin.make("c1"),
-    email: "alice2@x.y"
+    customerId: Ordering_Examples$OrderingPlugin.c1,
+    email: Ordering_Examples$OrderingPlugin.aliceNewEmail
   }), "CustomerNotFound"));
   test("active customer produces EmailChanged", () => thenEvent(whenCmd(givenEvents([{
       TAG: "CustomerRegistered",
-      email: "alice@x.y"
+      email: Ordering_Examples$OrderingPlugin.aliceEmail
     }]), {
     TAG: "ChangeEmail",
-    customerId: CustomerId$OrderingPlugin.make("c1"),
-    email: "alice2@x.y"
+    customerId: Ordering_Examples$OrderingPlugin.c1,
+    email: Ordering_Examples$OrderingPlugin.aliceNewEmail
   }), {
     TAG: "EmailChanged",
-    customerId: CustomerId$OrderingPlugin.make("c1"),
-    email: "alice2@x.y"
+    customerId: Ordering_Examples$OrderingPlugin.c1,
+    email: Ordering_Examples$OrderingPlugin.aliceNewEmail
   }));
   test("same email produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([{
       TAG: "CustomerRegistered",
-      email: "alice@x.y"
+      email: Ordering_Examples$OrderingPlugin.aliceEmail
     }]), {
     TAG: "ChangeEmail",
-    customerId: CustomerId$OrderingPlugin.make("c1"),
-    email: "alice@x.y"
+    customerId: Ordering_Examples$OrderingPlugin.c1,
+    email: Ordering_Examples$OrderingPlugin.aliceEmail
   })));
   test("deactivated customer returns CustomerAlreadyDeactivated", () => thenError(whenCmd(givenEvents([
     {
       TAG: "CustomerRegistered",
-      email: "alice@x.y"
+      email: Ordering_Examples$OrderingPlugin.aliceEmail
     },
     "CustomerDeactivated"
   ]), {
     TAG: "ChangeEmail",
-    customerId: CustomerId$OrderingPlugin.make("c1"),
-    email: "alice2@x.y"
+    customerId: Ordering_Examples$OrderingPlugin.c1,
+    email: Ordering_Examples$OrderingPlugin.aliceNewEmail
   }), "CustomerAlreadyDeactivated"));
 });
 
@@ -84,8 +84,6 @@ let thenAppendsConditionedOn = include.thenAppendsConditionedOn;
 
 let thenAppendsConditionedOnExactly = include.thenAppendsConditionedOnExactly;
 
-let cid = CustomerId$OrderingPlugin.make;
-
 export {
   Spec,
   describe,
@@ -101,6 +99,5 @@ export {
   thenError,
   thenAppendsConditionedOn,
   thenAppendsConditionedOnExactly,
-  cid,
 }
 /* include Not a pure module */

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"})),