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

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

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

@@ -1,6 +1,6 @@
 {
   "name": "@reventlessdev/online-shop-aggregates-ordering",
-  "version": "3.0.0-alpha.249",
+  "version": "3.0.0-alpha.251",
   "description": "Online Shop example — Ordering plugin (Customer & Order aggregates)",
   "license": "Apache-2.0",
   "jest": {
@@ -21,18 +21,18 @@
   },
   "dependencies": {
     "sury": "11.0.0",
-    "@reventlessdev/online-shop-aggregates-ordering-spec": "3.0.0-alpha.141",
-    "@reventlessdev/online-shop-aggregates-catalog-spec": "3.0.0-alpha.141",
     "@reventlessdev/rescript-pulumi-pulumi": "2.3.0-alpha.22",
-    "@reventlessdev/reventless-infra": "3.0.0-alpha.170",
-    "@reventlessdev/reventless-gwt": "1.0.0-alpha.217",
-    "@reventlessdev/reventless-local": "3.0.0-alpha.260",
-    "@reventlessdev/reventless-spec": "3.0.0-alpha.142"
+    "@reventlessdev/online-shop-aggregates-catalog-spec": "3.0.0-alpha.142",
+    "@reventlessdev/reventless-gwt": "1.0.0-alpha.218",
+    "@reventlessdev/reventless-infra": "3.0.0-alpha.171",
+    "@reventlessdev/online-shop-aggregates-ordering-spec": "3.0.0-alpha.142",
+    "@reventlessdev/reventless-local": "3.0.0-alpha.261",
+    "@reventlessdev/reventless-spec": "3.0.0-alpha.143"
   },
   "devDependencies": {
     "rescript": "12.3.1",
     "sury-ppx": "11.0.0",
-    "@reventlessdev/reventless-ppx": "1.0.0-alpha.83"
+    "@reventlessdev/reventless-ppx": "1.0.0-alpha.89"
   },
   "peerDependencies": {
     "rescript": "^12.3.1"

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