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

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

@@ -1,10 +1,9 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
 import * as Order$OrderingPlugin from "../../src/Order/Aggregate/Order.res.mjs";
-import * as ProductId$CatalogSpec from "@reventlessdev/online-shop-aggregates-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-aggregates-ordering-spec/src/Orders_ExtensionPoint.res.mjs";
 import * as Orders_ExtensionPointMapping$OrderingPlugin from "../../src/ExtensionPoint/Orders_ExtensionPointMapping.res.mjs";
 
@@ -44,19 +43,13 @@ let whenDelegateEvent = include.whenDelegateEvent;
 
 let thenPublishesEvents = include.thenPublishesEvents;
 
-let c1 = CustomerId$OrderingPlugin.make("c1");
-
-let p1 = ProductId$CatalogSpec.make("p1");
-
-let p2 = ProductId$CatalogSpec.make("p2");
-
 describe("Orders ExtensionPoint mapping — per-product fan-out", () => {
   test("Placed fans out to one ItemOrdered per product", undefined, () => thenPublishesEvents(whenDelegateEvent({
     TAG: "Placed",
-    customerId: c1,
+    customerId: Ordering_Examples$OrderingPlugin.c1,
     productIds: [
-      p1,
-      p2
+      Ordering_Examples$OrderingPlugin.p1,
+      Ordering_Examples$OrderingPlugin.p2
     ]
   }), [
     [
@@ -81,8 +74,8 @@ describe("Orders ExtensionPoint mapping — per-product fan-out", () => {
   test("Cancelled fans out to one ItemOrderCancelled per product", undefined, () => thenPublishesEvents(whenDelegateEvent({
     TAG: "Cancelled",
     productIds: [
-      p1,
-      p2
+      Ordering_Examples$OrderingPlugin.p1,
+      Ordering_Examples$OrderingPlugin.p2
     ]
   }), [
     [
@@ -151,8 +144,5 @@ export {
   thenHandlesDirective,
   thenHandlesDirectives,
   thenHandlesNoDirective,
-  c1,
-  p1,
-  p2,
 }
 /* include Not a pure module */

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

@@ -22,6 +22,7 @@ let prod1 = CatalogSpec.ProductId.make("prod-1")
 let placedEvent = Order.Placed({customerId: cust1, productIds: [prod1]})
 
 describe("Order auto-ship mapping (Placed → Ship)", () => {
+  // scenario-id: 2fd227c7-248e-47be-939a-467bceeb8796
   test("Place → AutoShipMapping issues Ship → target emits Shipped", () =>
     givenSourceEvents([])
     ->andTargetEvents([("order-1", [placedEvent])])
@@ -29,6 +30,7 @@ describe("Order auto-ship mapping (Placed → Ship)", () => {
     ->thenTargetEvent("order-1", Order.Shipped)
   )
 
+  // scenario-id: 366966a9-f65a-44cf-9bd2-4df7ef7bced4
   test("Ship command does not fire the mapping (only Placed events do)", () =>
     givenSourceEvents([placedEvent])
     ->andTargetEvents([("order-1", [placedEvent])])
@@ -36,6 +38,7 @@ describe("Order auto-ship mapping (Placed → Ship)", () => {
     ->thenNoTargetEvent
   )
 
+  // scenario-id: c6203367-d2ff-4903-b1a2-8cc259ec62ee
   test("Cancel command does not fire the mapping", () =>
     givenSourceEvents([placedEvent])
     ->andTargetEvents([("order-1", [placedEvent])])
@@ -43,6 +46,7 @@ describe("Order auto-ship mapping (Placed → Ship)", () => {
     ->thenNoTargetEvent
   )
 
+  // scenario-id: d20d610d-7ec8-4767-8d88-4556c1bf7059
   test("Refund command does not fire the mapping (only Placed events do)", () =>
     givenSourceEvents([placedEvent, Order.Cancelled({productIds: [prod1]})])
     ->andTargetEvents([("order-1", [placedEvent, Order.Cancelled({productIds: [prod1]})])])

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

@@ -1,29 +1,35 @@
 @@reventless.gwt
 
+open Ordering_Examples
+
 // Ids are typed; the literals are made once, here.
 let cust1 = CustomerId.make("cust-1")
 let prod1 = CatalogSpec.ProductId.make("prod-1")
 let prod2 = CatalogSpec.ProductId.make("prod-2")
 
 describe("Order Behavior", () => {
+  // scenario-id: 4f723805-10e2-4b72-b40a-6cf71e91c375
   test("Place on new aggregate produces Placed", () =>
     givenEvents([])
     ->whenCmd(Place({customerId: cust1, productIds: [prod1, prod2]}))
     ->thenEvent(Placed({customerId: cust1, productIds: [prod1, prod2]}))
   )
 
+  // scenario-id: 061fb189-7195-474f-8010-0a0339d7cf11
   test("Place on existing order returns OrderAlreadyPlaced", () =>
     givenEvents([Placed({customerId: cust1, productIds: [prod1]})])
     ->whenCmd(Place({customerId: cust1, productIds: [prod1]}))
     ->thenError(OrderAlreadyPlaced)
   )
 
+  // scenario-id: 3cb519a2-53ba-4f66-938f-2d5e4a3b736b
   test("Place on shipped order returns OrderAlreadyShipped", () =>
     givenEvents([Placed({customerId: cust1, productIds: [prod1]}), Shipped])
     ->whenCmd(Place({customerId: cust1, productIds: [prod1]}))
     ->thenError(OrderAlreadyShipped)
   )
 
+  // scenario-id: e74bad7c-abe6-4313-9290-b20f75897285
   test("Place on cancelled order returns OrderAlreadyCancelled", () =>
     givenEvents([
       Placed({customerId: cust1, productIds: [prod1]}),
@@ -33,24 +39,28 @@ describe("Order Behavior", () => {
     ->thenError(OrderAlreadyCancelled)
   )
 
+  // scenario-id: 1e97733f-32dd-473a-86e9-6c2cfec8f813
   test("Ship on non-existent order returns OrderNotFound", () =>
     givenEvents([])
     ->whenCmd(Ship)
     ->thenError(OrderNotFound)
   )
 
+  // scenario-id: 54073db7-f835-4d89-a648-71b6dc4869c2
   test("Ship on placed order produces Shipped", () =>
     givenEvents([Placed({customerId: cust1, productIds: [prod1]})])
     ->whenCmd(Ship)
     ->thenEvent(Shipped)
   )
 
+  // scenario-id: 2d4c200e-ece6-40c4-a67d-460f5beca59e
   test("Ship on shipped order produces no events (idempotent)", () =>
     givenEvents([Placed({customerId: cust1, productIds: [prod1]}), Shipped])
     ->whenCmd(Ship)
     ->thenNoEvent
   )
 
+  // scenario-id: 08783980-65d7-4114-b4ef-f0f95b0b3fc5
   test("Ship on cancelled order returns OrderAlreadyCancelled", () =>
     givenEvents([
       Placed({customerId: cust1, productIds: [prod1]}),
@@ -60,24 +70,28 @@ describe("Order Behavior", () => {
     ->thenError(OrderAlreadyCancelled)
   )
 
+  // scenario-id: 2104ec68-2de0-464b-b8f8-379f47b03db9
   test("Cancel on non-existent order returns OrderNotFound", () =>
     givenEvents([])
     ->whenCmd(Cancel)
     ->thenError(OrderNotFound)
   )
 
+  // scenario-id: 3d974a23-5eb6-4463-9824-e61b0fa5a278
   test("Cancel on placed order produces Cancelled", () =>
     givenEvents([Placed({customerId: cust1, productIds: [prod1]})])
     ->whenCmd(Cancel)
     ->thenEvent(Cancelled({productIds: [prod1]}))
   )
 
+  // scenario-id: 6144fcb7-d768-4237-9e67-e530c736210d
   test("Cancel on shipped order returns OrderAlreadyShipped", () =>
     givenEvents([Placed({customerId: cust1, productIds: [prod1]}), Shipped])
     ->whenCmd(Cancel)
     ->thenError(OrderAlreadyShipped)
   )
 
+  // scenario-id: 07679806-2e68-4cdb-b8c0-8cc67bd65fa7
   test("Cancel on cancelled order produces no events (idempotent)", () =>
     givenEvents([
       Placed({customerId: cust1, productIds: [prod1]}),
@@ -87,40 +101,45 @@ describe("Order Behavior", () => {
     ->thenNoEvent
   )
 
+  // scenario-id: aa624dbf-659b-4685-8695-4203e23a855f
   test("Refund on non-existent order returns OrderNotFound", () =>
     givenEvents([])
     ->whenCmd(Refund({reason: "lost-in-transit"}))
     ->thenError(OrderNotFound)
   )
 
+  // scenario-id: cf56897b-1cf0-4768-8ada-eae11c069d95
   test("Refund on placed order returns OrderNotCancelled", () =>
     givenEvents([Placed({customerId: cust1, productIds: [prod1]})])
-    ->whenCmd(Refund({reason: "customer-changed-mind"}))
+    ->whenCmd(Refund({reason: changedMind}))
     ->thenError(OrderNotCancelled)
   )
 
+  // scenario-id: 802fb4a7-3768-4c6d-8a54-444f44891515
   test("Refund on shipped order returns OrderNotCancelled", () =>
     givenEvents([Placed({customerId: cust1, productIds: [prod1]}), Shipped])
     ->whenCmd(Refund({reason: "delivered-damaged"}))
     ->thenError(OrderNotCancelled)
   )
 
+  // scenario-id: d9f7692d-4d64-41d9-b845-f5958fe95bc0
   test("Refund on cancelled order produces Refunded", () =>
     givenEvents([
       Placed({customerId: cust1, productIds: [prod1]}),
       Cancelled({productIds: [prod1]}),
     ])
-    ->whenCmd(Refund({reason: "customer-changed-mind"}))
-    ->thenEvent(Refunded({reason: "customer-changed-mind"}))
+    ->whenCmd(Refund({reason: changedMind}))
+    ->thenEvent(Refunded({reason: changedMind}))
   )
 
+  // scenario-id: 4ced8701-2214-4f05-89ed-057b130979ad
   test("Refund on already-refunded order produces no events (idempotent)", () =>
     givenEvents([
       Placed({customerId: cust1, productIds: [prod1]}),
       Cancelled({productIds: [prod1]}),
-      Refunded({reason: "customer-changed-mind"}),
+      Refunded({reason: changedMind}),
     ])
-    ->whenCmd(Refund({reason: "customer-changed-mind"}))
+    ->whenCmd(Refund({reason: changedMind}))
     ->thenNoEvent
   )
 })

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

@@ -5,6 +5,7 @@ import * as ProductId$CatalogSpec from "@reventlessdev/online-shop-aggregates-ca
 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 Order_Behavior$OrderingPlugin from "../../../src/Order/Aggregate/Order_Behavior.res.mjs";
+import * as Ordering_Examples$OrderingPlugin from "../../Ordering_Examples.res.mjs";
 
 let include = Behavior_GWT$ReventlessGwt.MakeFromAggregate({
   name: Order$OrderingPlugin.name,
@@ -160,7 +161,7 @@ describe("Order Behavior", () => {
       productIds: [prod1]
     }]), {
     TAG: "Refund",
-    reason: "customer-changed-mind"
+    reason: Ordering_Examples$OrderingPlugin.changedMind
   }), "OrderNotCancelled"));
   test("Refund on shipped order returns OrderNotCancelled", () => thenError(whenCmd(givenEvents([
     {
@@ -185,10 +186,10 @@ describe("Order Behavior", () => {
     }
   ]), {
     TAG: "Refund",
-    reason: "customer-changed-mind"
+    reason: Ordering_Examples$OrderingPlugin.changedMind
   }), {
     TAG: "Refunded",
-    reason: "customer-changed-mind"
+    reason: Ordering_Examples$OrderingPlugin.changedMind
   }));
   test("Refund on already-refunded order produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([
     {
@@ -202,11 +203,11 @@ describe("Order Behavior", () => {
     },
     {
       TAG: "Refunded",
-      reason: "customer-changed-mind"
+      reason: Ordering_Examples$OrderingPlugin.changedMind
     }
   ]), {
     TAG: "Refund",
-    reason: "customer-changed-mind"
+    reason: Ordering_Examples$OrderingPlugin.changedMind
   })));
 });
 

package/lib/bs/tests/Order/ReadModel/Orders_GWT.res

@@ -6,6 +6,7 @@ let prod1 = CatalogSpec.ProductId.make("prod-1")
 let prod2 = CatalogSpec.ProductId.make("prod-2")
 
 describe("Orders ReadModel ← Order", () => {
+  // scenario-id: 94f5938c-adf9-42c2-8986-1204e0aa0710
   test("Placed sets initial read model state", () =>
     givenEvents([])
     ->whenEvent(Order.Placed({customerId: cust1, productIds: [prod1, prod2]}))
@@ -16,6 +17,7 @@ describe("Orders ReadModel ← Order", () => {
     })
   )
 
+  // scenario-id: 4b7e916e-e7db-4c00-9337-9e2fe4104c93
   test("Shipped updates status", () =>
     givenEvents([Order.Placed({customerId: cust1, productIds: [prod1]})])
     ->whenEvent(Order.Shipped)
@@ -26,6 +28,7 @@ describe("Orders ReadModel ← Order", () => {
     })
   )
 
+  // scenario-id: a56314fa-907f-425a-80e6-a7ea1a27d6c9
   test("Cancelled updates status", () =>
     givenEvents([Order.Placed({customerId: cust1, productIds: [prod1]})])
     ->whenEvent(Order.Cancelled({productIds: [prod1]}))
@@ -36,6 +39,7 @@ describe("Orders ReadModel ← Order", () => {
     })
   )
 
+  // scenario-id: 96902cd1-2eae-4a35-b5c6-6d28dc9acda7
   test("Refunded updates status", () =>
     givenEvents([
       Order.Placed({customerId: cust1, productIds: [prod1]}),

package/lib/bs/tests/Ordering_Examples.res

@@ -0,0 +1,13 @@
+@@reventless.examples
+
+let p1: CatalogSpec.ProductId.t = CatalogSpec.ProductId.makeFromString("p1")
+let p2: CatalogSpec.ProductId.t = CatalogSpec.ProductId.makeFromString("p2")
+
+let c1: CustomerId.t = CustomerId.makeFromString("c1")
+
+let aliceEmail: string = "alice@example.com"
+let bobEmail: string = "bob@example.com"
+let changedMind: string = "customer-changed-mind"
+let laptop: string = "Laptop"
+let mainStreet: string = "123 Main St"
+let oakAvenue: string = "456 Oak Ave"

package/lib/bs/tests/Ordering_Examples.res.mjs

@@ -0,0 +1,35 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as ProductId$CatalogSpec from "@reventlessdev/online-shop-aggregates-catalog-spec/src/ProductId.res.mjs";
+import * as CustomerId$OrderingPlugin from "../src/Customer/CustomerId.res.mjs";
+
+let p1 = ProductId$CatalogSpec.makeFromString("p1");
+
+let p2 = ProductId$CatalogSpec.makeFromString("p2");
+
+let c1 = CustomerId$OrderingPlugin.makeFromString("c1");
+
+let aliceEmail = "alice@example.com";
+
+let bobEmail = "bob@example.com";
+
+let changedMind = "customer-changed-mind";
+
+let laptop = "Laptop";
+
+let mainStreet = "123 Main St";
+
+let oakAvenue = "456 Oak Ave";
+
+export {
+  p1,
+  p2,
+  c1,
+  aliceEmail,
+  bobEmail,
+  changedMind,
+  laptop,
+  mainStreet,
+  oakAvenue,
+}
+/* p1 Not a pure module */

package/lib/ocaml/.compiler.log

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

package/lib/ocaml/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/ocaml/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/ocaml/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/ocaml/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)