@reventlessdev/online-shop-aggregates-ordering 3.0.0-alpha.248 → 3.0.0-alpha.250

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