@reventlessdev/online-shop-aggregates-ordering 3.0.0-alpha.249 → 3.0.0-alpha.251

package/CHANGELOG.md

@@ -3,6 +3,22 @@
 All notable changes to this project will be documented in this file.
 See [Conventional Commits](https://conventionalcommits.org) for commit guidelines.
 
+# 3.0.0-alpha.251 (2026-09-23)
+
+**Note:** Version bump only for package @reventlessdev/online-shop-aggregates-ordering
+
+
+
+
+
+# 3.0.0-alpha.250 (2026-09-23)
+
+**Note:** Version bump only for package @reventlessdev/online-shop-aggregates-ordering
+
+
+
+
+
 # 3.0.0-alpha.249 (2026-09-22)
 
 **Note:** Version bump only for package @reventlessdev/online-shop-aggregates-ordering

package/lib/bs/.compiler.log

@@ -1,2 +1,2 @@
-#Start(1790058025505)
-#Done(1790058029627)
+#Start(1790194674831)
+#Done(1790194681122)

package/lib/bs/OrderingPlugin.mlmap

@@ -24,6 +24,7 @@ Order_EmailNotification
 Order_EmailNotification_GWT
 Order_GWT
 Order_Mappings
+Ordering_Examples
 Orders
 Orders_ExtensionPointMapping
 Orders_ExtensionPointMapping_GWT

package/lib/bs/compiler-info.json

@@ -4,5 +4,5 @@
   "bsc_hash": "1006241435e8d5052329c523202a7fe6359a37e1e1688c023d37d6a7ebb5fb6d",
   "rescript_config_hash": "4c884bf958b93b21c77764e35498f269b81377cfcc324135f1ab7a1cc5b569cb",
   "runtime_path": "/home/runner/work/reventless-core/reventless-core/node_modules/@rescript/runtime",
-  "generated_at": "1790058029631"
+  "generated_at": "1790194681132"
 }

package/lib/bs/tests/CatalogProduct/Aggregate/CatalogProduct_GWT.res

@@ -1,26 +1,32 @@
 @@reventless.gwt
 
+open Ordering_Examples
+
 describe("CatalogProduct Behavior", () => {
+  // scenario-id: e0d3dd62-1687-4920-a1ad-d61733936926
   test("Sync on new aggregate produces Synced", () =>
     givenEvents([])
-    ->whenCmd(Sync({name: "Laptop", price: 999.99}))
-    ->thenEvent(Synced({name: "Laptop", price: 999.99}))
+    ->whenCmd(Sync({name: laptop, price: 999.99}))
+    ->thenEvent(Synced({name: laptop, price: 999.99}))
   )
 
+  // scenario-id: aa7ebc46-2b74-440d-92b1-d5b6262de254
   test("Sync on already-synced aggregate produces no events (idempotent)", () =>
-    givenEvents([Synced({name: "Laptop", price: 999.99})])
-    ->whenCmd(Sync({name: "Laptop", price: 999.99}))
+    givenEvents([Synced({name: laptop, price: 999.99})])
+    ->whenCmd(Sync({name: laptop, price: 999.99}))
     ->thenNoEvent
   )
 
+  // scenario-id: 69fe9b40-3a62-497d-b39b-098173ef8cd5
   test("UpdatePrice on never-synced aggregate produces no events (idempotent)", () =>
     givenEvents([])
     ->whenCmd(UpdatePrice({price: 1.0}))
     ->thenNoEvent
   )
 
+  // scenario-id: fef61ceb-02a6-4d0c-a1e9-297c99a4d7d9
   test("UpdatePrice on synced aggregate produces PriceUpdated", () =>
-    givenEvents([Synced({name: "Laptop", price: 999.99})])
+    givenEvents([Synced({name: laptop, price: 999.99})])
     ->whenCmd(UpdatePrice({price: 899.99}))
     ->thenEvent(PriceUpdated({price: 899.99}))
   )

package/lib/bs/tests/CatalogProduct/Aggregate/CatalogProduct_GWT.res.mjs

@@ -2,6 +2,7 @@
 
 import * as Behavior_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Behavior_GWT.res.mjs";
 import * as CatalogProduct$OrderingPlugin from "../../../src/CatalogProduct/Aggregate/CatalogProduct.res.mjs";
+import * as Ordering_Examples$OrderingPlugin from "../../Ordering_Examples.res.mjs";
 import * as CatalogProduct_Behavior$OrderingPlugin from "../../../src/CatalogProduct/Aggregate/CatalogProduct_Behavior.res.mjs";
 
 let include = Behavior_GWT$ReventlessGwt.MakeFromAggregate({
@@ -38,20 +39,20 @@ let thenNoEvent = include.thenNoEvent;
 describe("CatalogProduct Behavior", () => {
   test("Sync on new aggregate produces Synced", () => thenEvent(whenCmd(givenEvents([]), {
     TAG: "Sync",
-    name: "Laptop",
+    name: Ordering_Examples$OrderingPlugin.laptop,
     price: 999.99
   }), {
     TAG: "Synced",
-    name: "Laptop",
+    name: Ordering_Examples$OrderingPlugin.laptop,
     price: 999.99
   }));
   test("Sync on already-synced aggregate produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([{
       TAG: "Synced",
-      name: "Laptop",
+      name: Ordering_Examples$OrderingPlugin.laptop,
       price: 999.99
     }]), {
     TAG: "Sync",
-    name: "Laptop",
+    name: Ordering_Examples$OrderingPlugin.laptop,
     price: 999.99
   })));
   test("UpdatePrice on never-synced aggregate produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([]), {
@@ -60,7 +61,7 @@ describe("CatalogProduct Behavior", () => {
   })));
   test("UpdatePrice on synced aggregate produces PriceUpdated", () => thenEvent(whenCmd(givenEvents([{
       TAG: "Synced",
-      name: "Laptop",
+      name: Ordering_Examples$OrderingPlugin.laptop,
       price: 999.99
     }]), {
     TAG: "UpdatePrice",

package/lib/bs/tests/CatalogProduct/ReadModel/AvailableProducts_GWT.res

@@ -1,12 +1,14 @@
 @@reventless.gwt(AvailableProducts_Projections.CatalogProductMapping)
 
 describe("AvailableProducts ReadModel ← CatalogProduct", () => {
+  // scenario-id: 845f7b2c-e29b-469f-a497-654927750d09
   test("Synced sets initial read model state", () =>
     givenEvents([])
     ->whenEvent(CatalogProduct.Synced({name: "Laptop", price: 999.99}))
     ->thenState({AvailableProducts.name: "Laptop", price: 999.99})
   )
 
+  // scenario-id: 272d70a8-20d7-4f33-bca1-ec101bd5f702
   test("PriceUpdated updates the price", () =>
     givenEvents([CatalogProduct.Synced({name: "Laptop", price: 999.99})])
     ->whenEvent(CatalogProduct.PriceUpdated({price: 899.99}))

package/lib/bs/tests/Customer/Aggregate/Customer_GWT.res

@@ -1,80 +1,95 @@
 @@reventless.gwt
 
+open Ordering_Examples
+
 describe("Customer Behavior", () => {
+  // scenario-id: 5936d064-3500-474f-ac41-619765828d32
   test("Register on new aggregate produces Registered", () =>
     givenEvents([])
-    ->whenCmd(Register({email: "alice@example.com", address: "123 Main St"}))
-    ->thenEvent(Registered({email: "alice@example.com", address: "123 Main St"}))
+    ->whenCmd(Register({email: aliceEmail, address: mainStreet}))
+    ->thenEvent(Registered({email: aliceEmail, address: mainStreet}))
   )
 
+  // scenario-id: 93201f16-17d6-4f94-a096-2dbec3c4306c
   test("Register on existing aggregate returns CustomerAlreadyRegistered", () =>
-    givenEvents([Registered({email: "alice@example.com", address: "123 Main St"})])
-    ->whenCmd(Register({email: "bob@example.com", address: "456 Oak Ave"}))
+    givenEvents([Registered({email: aliceEmail, address: mainStreet})])
+    ->whenCmd(Register({email: bobEmail, address: oakAvenue}))
     ->thenError(CustomerAlreadyRegistered)
   )
 
+  // scenario-id: fcbc5972-10f0-43ae-a402-21fa7e398e2b
   test("Register on deactivated aggregate returns CustomerAlreadyDeactivated", () =>
-    givenEvents([Registered({email: "alice@example.com", address: "123 Main St"}), Deactivated])
-    ->whenCmd(Register({email: "bob@example.com", address: "456 Oak Ave"}))
+    givenEvents([Registered({email: aliceEmail, address: mainStreet}), Deactivated])
+    ->whenCmd(Register({email: bobEmail, address: oakAvenue}))
     ->thenError(CustomerAlreadyDeactivated)
   )
 
+  // scenario-id: eb52c72f-448a-47f6-b6dc-1454fb0976a6
   test("UpdateEmail on non-existent aggregate returns CustomerNotFound", () =>
     givenEvents([])
-    ->whenCmd(UpdateEmail({email: "bob@example.com"}))
+    ->whenCmd(UpdateEmail({email: bobEmail}))
     ->thenError(CustomerNotFound)
   )
 
+  // scenario-id: 0da39fef-7112-4f6b-93d6-f1479d8d384b
   test("UpdateEmail on active customer produces EmailUpdated", () =>
-    givenEvents([Registered({email: "alice@example.com", address: "123 Main St"})])
+    givenEvents([Registered({email: aliceEmail, address: mainStreet})])
     ->whenCmd(UpdateEmail({email: "alice2@example.com"}))
     ->thenEvent(EmailUpdated({email: "alice2@example.com"}))
   )
 
+  // scenario-id: 27d8e526-daa8-4b11-be68-c1107394f75d
   test("UpdateEmail to same email produces no events (idempotent)", () =>
-    givenEvents([Registered({email: "alice@example.com", address: "123 Main St"})])
-    ->whenCmd(UpdateEmail({email: "alice@example.com"}))
+    givenEvents([Registered({email: aliceEmail, address: mainStreet})])
+    ->whenCmd(UpdateEmail({email: aliceEmail}))
     ->thenNoEvent
   )
 
+  // scenario-id: f95d0cde-1011-4566-975b-ef086015d811
   test("UpdateEmail on deactivated customer returns CustomerAlreadyDeactivated", () =>
-    givenEvents([Registered({email: "alice@example.com", address: "123 Main St"}), Deactivated])
-    ->whenCmd(UpdateEmail({email: "bob@example.com"}))
+    givenEvents([Registered({email: aliceEmail, address: mainStreet}), Deactivated])
+    ->whenCmd(UpdateEmail({email: bobEmail}))
     ->thenError(CustomerAlreadyDeactivated)
   )
 
+  // scenario-id: 856f318e-b0da-4ae8-98bd-0a27c32cfb68
   test("UpdateAddress on non-existent aggregate returns CustomerNotFound", () =>
     givenEvents([])
     ->whenCmd(UpdateAddress({address: "x"}))
     ->thenError(CustomerNotFound)
   )
 
+  // scenario-id: 2f4959d6-b687-4659-b5a6-282a6463d1d8
   test("UpdateAddress on active customer produces AddressUpdated", () =>
-    givenEvents([Registered({email: "alice@example.com", address: "123 Main St"})])
+    givenEvents([Registered({email: aliceEmail, address: mainStreet})])
     ->whenCmd(UpdateAddress({address: "789 Pine Rd"}))
     ->thenEvent(AddressUpdated({address: "789 Pine Rd"}))
   )
 
+  // scenario-id: 004ce506-1231-43d7-a659-263af800b815
   test("UpdateAddress to same address produces no events (idempotent)", () =>
-    givenEvents([Registered({email: "alice@example.com", address: "123 Main St"})])
-    ->whenCmd(UpdateAddress({address: "123 Main St"}))
+    givenEvents([Registered({email: aliceEmail, address: mainStreet})])
+    ->whenCmd(UpdateAddress({address: mainStreet}))
     ->thenNoEvent
   )
 
+  // scenario-id: 8c84e2c8-e77c-497d-bad0-70db6643c3de
   test("Deactivate on non-existent aggregate returns CustomerNotFound", () =>
     givenEvents([])
     ->whenCmd(Deactivate)
     ->thenError(CustomerNotFound)
   )
 
+  // scenario-id: 54c0ec8c-f937-41b7-bed0-963c54702564
   test("Deactivate on active customer produces Deactivated", () =>
-    givenEvents([Registered({email: "alice@example.com", address: "123 Main St"})])
+    givenEvents([Registered({email: aliceEmail, address: mainStreet})])
     ->whenCmd(Deactivate)
     ->thenEvent(Deactivated)
   )
 
+  // scenario-id: 083c8024-7e68-44d6-b9ff-61a3250202bf
   test("Deactivate on deactivated customer produces no events (idempotent)", () =>
-    givenEvents([Registered({email: "alice@example.com", address: "123 Main St"}), Deactivated])
+    givenEvents([Registered({email: aliceEmail, address: mainStreet}), Deactivated])
     ->whenCmd(Deactivate)
     ->thenNoEvent
   )

package/lib/bs/tests/Customer/Aggregate/Customer_GWT.res.mjs

@@ -3,6 +3,7 @@
 import * as Customer$OrderingPlugin from "../../../src/Customer/Aggregate/Customer.res.mjs";
 import * as Behavior_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Behavior_GWT.res.mjs";
 import * as Customer_Behavior$OrderingPlugin from "../../../src/Customer/Aggregate/Customer_Behavior.res.mjs";
+import * as Ordering_Examples$OrderingPlugin from "../../Ordering_Examples.res.mjs";
 
 let include = Behavior_GWT$ReventlessGwt.MakeFromAggregate({
   name: Customer$OrderingPlugin.name,
@@ -40,42 +41,42 @@ let thenError = include.thenError;
 describe("Customer Behavior", () => {
   test("Register on new aggregate produces Registered", () => thenEvent(whenCmd(givenEvents([]), {
     TAG: "Register",
-    email: "alice@example.com",
-    address: "123 Main St"
+    email: Ordering_Examples$OrderingPlugin.aliceEmail,
+    address: Ordering_Examples$OrderingPlugin.mainStreet
   }), {
     TAG: "Registered",
-    email: "alice@example.com",
-    address: "123 Main St"
+    email: Ordering_Examples$OrderingPlugin.aliceEmail,
+    address: Ordering_Examples$OrderingPlugin.mainStreet
   }));
   test("Register on existing aggregate returns CustomerAlreadyRegistered", () => thenError(whenCmd(givenEvents([{
       TAG: "Registered",
-      email: "alice@example.com",
-      address: "123 Main St"
+      email: Ordering_Examples$OrderingPlugin.aliceEmail,
+      address: Ordering_Examples$OrderingPlugin.mainStreet
     }]), {
     TAG: "Register",
-    email: "bob@example.com",
-    address: "456 Oak Ave"
+    email: Ordering_Examples$OrderingPlugin.bobEmail,
+    address: Ordering_Examples$OrderingPlugin.oakAvenue
   }), "CustomerAlreadyRegistered"));
   test("Register on deactivated aggregate returns CustomerAlreadyDeactivated", () => thenError(whenCmd(givenEvents([
     {
       TAG: "Registered",
-      email: "alice@example.com",
-      address: "123 Main St"
+      email: Ordering_Examples$OrderingPlugin.aliceEmail,
+      address: Ordering_Examples$OrderingPlugin.mainStreet
     },
     "Deactivated"
   ]), {
     TAG: "Register",
-    email: "bob@example.com",
-    address: "456 Oak Ave"
+    email: Ordering_Examples$OrderingPlugin.bobEmail,
+    address: Ordering_Examples$OrderingPlugin.oakAvenue
   }), "CustomerAlreadyDeactivated"));
   test("UpdateEmail on non-existent aggregate returns CustomerNotFound", () => thenError(whenCmd(givenEvents([]), {
     TAG: "UpdateEmail",
-    email: "bob@example.com"
+    email: Ordering_Examples$OrderingPlugin.bobEmail
   }), "CustomerNotFound"));
   test("UpdateEmail on active customer produces EmailUpdated", () => thenEvent(whenCmd(givenEvents([{
       TAG: "Registered",
-      email: "alice@example.com",
-      address: "123 Main St"
+      email: Ordering_Examples$OrderingPlugin.aliceEmail,
+      address: Ordering_Examples$OrderingPlugin.mainStreet
     }]), {
     TAG: "UpdateEmail",
     email: "alice2@example.com"
@@ -85,22 +86,22 @@ describe("Customer Behavior", () => {
   }));
   test("UpdateEmail to same email produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([{
       TAG: "Registered",
-      email: "alice@example.com",
-      address: "123 Main St"
+      email: Ordering_Examples$OrderingPlugin.aliceEmail,
+      address: Ordering_Examples$OrderingPlugin.mainStreet
     }]), {
     TAG: "UpdateEmail",
-    email: "alice@example.com"
+    email: Ordering_Examples$OrderingPlugin.aliceEmail
   })));
   test("UpdateEmail on deactivated customer returns CustomerAlreadyDeactivated", () => thenError(whenCmd(givenEvents([
     {
       TAG: "Registered",
-      email: "alice@example.com",
-      address: "123 Main St"
+      email: Ordering_Examples$OrderingPlugin.aliceEmail,
+      address: Ordering_Examples$OrderingPlugin.mainStreet
     },
     "Deactivated"
   ]), {
     TAG: "UpdateEmail",
-    email: "bob@example.com"
+    email: Ordering_Examples$OrderingPlugin.bobEmail
   }), "CustomerAlreadyDeactivated"));
   test("UpdateAddress on non-existent aggregate returns CustomerNotFound", () => thenError(whenCmd(givenEvents([]), {
     TAG: "UpdateAddress",
@@ -108,8 +109,8 @@ describe("Customer Behavior", () => {
   }), "CustomerNotFound"));
   test("UpdateAddress on active customer produces AddressUpdated", () => thenEvent(whenCmd(givenEvents([{
       TAG: "Registered",
-      email: "alice@example.com",
-      address: "123 Main St"
+      email: Ordering_Examples$OrderingPlugin.aliceEmail,
+      address: Ordering_Examples$OrderingPlugin.mainStreet
     }]), {
     TAG: "UpdateAddress",
     address: "789 Pine Rd"
@@ -119,23 +120,23 @@ describe("Customer Behavior", () => {
   }));
   test("UpdateAddress to same address produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([{
       TAG: "Registered",
-      email: "alice@example.com",
-      address: "123 Main St"
+      email: Ordering_Examples$OrderingPlugin.aliceEmail,
+      address: Ordering_Examples$OrderingPlugin.mainStreet
     }]), {
     TAG: "UpdateAddress",
-    address: "123 Main St"
+    address: Ordering_Examples$OrderingPlugin.mainStreet
   })));
   test("Deactivate on non-existent aggregate returns CustomerNotFound", () => thenError(whenCmd(givenEvents([]), "Deactivate"), "CustomerNotFound"));
   test("Deactivate on active customer produces Deactivated", () => thenEvent(whenCmd(givenEvents([{
       TAG: "Registered",
-      email: "alice@example.com",
-      address: "123 Main St"
+      email: Ordering_Examples$OrderingPlugin.aliceEmail,
+      address: Ordering_Examples$OrderingPlugin.mainStreet
     }]), "Deactivate"), "Deactivated"));
   test("Deactivate on deactivated customer produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([
     {
       TAG: "Registered",
-      email: "alice@example.com",
-      address: "123 Main St"
+      email: Ordering_Examples$OrderingPlugin.aliceEmail,
+      address: Ordering_Examples$OrderingPlugin.mainStreet
     },
     "Deactivated"
   ]), "Deactivate")));

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

@@ -1,24 +1,28 @@
 @@reventless.gwt(Customers_Projections.CustomerMapping)
 
 describe("Customers ReadModel ← Customer", () => {
+  // scenario-id: d64df451-1238-400b-b146-4bd84dfb232b
   test("Registered sets initial read model state", () =>
     givenEvents([])
     ->whenEvent(Customer.Registered({email: "alice@example.com", address: "123 Main St"}))
     ->thenState({Customers.email: "alice@example.com", address: "123 Main St", deactivated: false})
   )
 
+  // scenario-id: 80d62196-a14f-4da6-9993-384996b0be93
   test("EmailUpdated updates the email", () =>
     givenEvents([Customer.Registered({email: "alice@example.com", address: "123 Main St"})])
     ->whenEvent(Customer.EmailUpdated({email: "alice2@example.com"}))
     ->thenState({Customers.email: "alice2@example.com", address: "123 Main St", deactivated: false})
   )
 
+  // scenario-id: 55ce1763-d498-440d-8c19-2dc8adfa69e2
   test("AddressUpdated updates the address", () =>
     givenEvents([Customer.Registered({email: "alice@example.com", address: "123 Main St"})])
     ->whenEvent(Customer.AddressUpdated({address: "789 Pine Rd"}))
     ->thenState({Customers.email: "alice@example.com", address: "789 Pine Rd", deactivated: false})
   )
 
+  // scenario-id: 9885a011-7448-431f-ae96-629aae5f9823
   test("Deactivated sets deactivated flag", () =>
     givenEvents([Customer.Registered({email: "alice@example.com", address: "123 Main St"})])
     ->whenEvent(Customer.Deactivated)

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

@@ -5,16 +5,17 @@
 // `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
-
-let p1 = CatalogSpec.ProductId.make("p1")
+open Ordering_Examples
 
 describe("Products Extension delegate", () => {
+  // scenario-id: 4c14eb06-02b8-41ae-b0b8-cf33ef430e93
   test("ProductBecameAvailable issues Sync", () =>
     whenIncomingEvent(
       ExtensionPoint.ProductBecameAvailable({productId: p1, name: "Book", price: 9.99}),
     )->thenPublishesAggregateCommand("p1", Delegate.Sync({name: "Book", price: 9.99}))
   )
 
+  // scenario-id: d3760e9e-c4f6-4a2f-bb5a-8e57a965ba68
   test("ProductPriceChanged issues UpdatePrice", () =>
     whenIncomingEvent(
       ExtensionPoint.ProductPriceChanged({productId: p1, price: 7.5}),

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

@@ -3,6 +3,7 @@
 import * as ProductId$CatalogSpec from "@reventlessdev/online-shop-aggregates-catalog-spec/src/ProductId.res.mjs";
 import * as Delegate_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Delegate_GWT.res.mjs";
 import * as CatalogProduct$OrderingPlugin from "../../src/CatalogProduct/Aggregate/CatalogProduct.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 Products_ExtensionPoint$CatalogSpec from "@reventlessdev/online-shop-aggregates-catalog-spec/src/Products_ExtensionPoint.res.mjs";
 
@@ -41,12 +42,10 @@ let whenIncomingEvent = include.whenIncomingEvent;
 
 let thenPublishesAggregateCommand = include.thenPublishesAggregateCommand;
 
-let p1 = ProductId$CatalogSpec.make("p1");
-
 describe("Products Extension delegate", () => {
   test("ProductBecameAvailable issues Sync", undefined, () => thenPublishesAggregateCommand(whenIncomingEvent({
     TAG: "ProductBecameAvailable",
-    productId: p1,
+    productId: Ordering_Examples$OrderingPlugin.p1,
     name: "Book",
     price: 9.99
   }), "p1", {
@@ -56,7 +55,7 @@ describe("Products Extension delegate", () => {
   }));
   test("ProductPriceChanged issues UpdatePrice", undefined, () => thenPublishesAggregateCommand(whenIncomingEvent({
     TAG: "ProductPriceChanged",
-    productId: p1,
+    productId: Ordering_Examples$OrderingPlugin.p1,
     price: 7.5
   }), "p1", {
     TAG: "UpdatePrice",
@@ -108,6 +107,5 @@ export {
   thenHandlesDirective,
   thenHandlesDirectives,
   thenHandlesNoDirective,
-  p1,
 }
 /* include Not a pure module */

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

@@ -2,11 +2,10 @@
 // into one public per-product event each (one-to-many fan-out).
 @@reventless.gwt
 
-let c1 = CustomerId.make("c1")
-let p1 = CatalogSpec.ProductId.make("p1")
-let p2 = CatalogSpec.ProductId.make("p2")
+open Ordering_Examples
 
 describe("Orders ExtensionPoint mapping — per-product fan-out", () => {
+  // scenario-id: b3fe53fe-84bd-4bb7-aca3-a0f9db5a186f
   test("Placed fans out to one ItemOrdered per product", () =>
     whenDelegateEvent(
       Delegate.Placed({customerId: c1, productIds: [p1, p2]}),
@@ -16,6 +15,7 @@ describe("Orders ExtensionPoint mapping — per-product fan-out", () => {
     ])
   )
 
+  // scenario-id: c916b814-2006-4d62-9fff-60bb99ddcfd3
   test("Cancelled fans out to one ItemOrderCancelled per product", () =>
     whenDelegateEvent(Delegate.Cancelled({productIds: [p1, p2]}))->thenPublishesEvents([
       ("p1", ExtensionPoint.ItemOrderCancelled({productId: "p1", orderId: "gwt-id"})),
@@ -23,8 +23,10 @@ describe("Orders ExtensionPoint mapping — per-product fan-out", () => {
     ])
   )
 
+  // scenario-id: 3647a0be-51ed-4d6d-83b3-9fa53a596e49
   test("Shipped publishes nothing", () => whenDelegateEvent(Delegate.Shipped)->thenPublishesNothing)
 
+  // scenario-id: 0ac71311-60e6-4373-b078-96cfaf91724d
   test("Refunded publishes nothing", () =>
     whenDelegateEvent(Delegate.Refunded({reason: "customer-changed-mind"}))->thenPublishesNothing
   )