@reventlessdev/online-shop-dcb-ordering 1.0.0-alpha.239 → 1.0.0-alpha.241

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

@@ -3,19 +3,13 @@
 describe("RegisterCustomer StateChangeSlice", () => {
   test("empty event log produces CustomerRegistered", () =>
     givenEvents([])
-    ->whenCmd(
-      RegisterCustomer({customerId: "c1", email: "alice@x.y", address: "123 Main"}),
-    )
-    ->thenEvent(
-      CustomerRegistered({customerId: "c1", email: "alice@x.y", address: "123 Main"}),
-    )
+    ->whenCmd(RegisterCustomer({customerId: "c1", email: "alice@x.y", address: "123 Main"}))
+    ->thenEvent(CustomerRegistered({customerId: "c1", email: "alice@x.y", address: "123 Main"}))
   )
 
   test("existing customer returns CustomerAlreadyRegistered", () =>
     givenEvents([CustomerRegistered])
-    ->whenCmd(
-      RegisterCustomer({customerId: "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/StateView/Customers_GWT.res

@@ -11,9 +11,7 @@ describe("Customers StateViewSlice", () => {
   )
 
   test("EmailChanged updates the email", () =>
-    givenEvents([
-      CustomerRegistered({customerId: "c1", email: "alice@x.y", address: "123 Main"}),
-    ])
+    givenEvents([CustomerRegistered({customerId: "c1", email: "alice@x.y", address: "123 Main"})])
     ->whenEvent(EmailChanged({customerId: "c1", email: "alice2@x.y"}))
     ->thenStateWithId(
       "c1",
@@ -22,9 +20,7 @@ describe("Customers StateViewSlice", () => {
   )
 
   test("AddressChanged updates the address", () =>
-    givenEvents([
-      CustomerRegistered({customerId: "c1", email: "alice@x.y", address: "123 Main"}),
-    ])
+    givenEvents([CustomerRegistered({customerId: "c1", email: "alice@x.y", address: "123 Main"})])
     ->whenEvent(AddressChanged({customerId: "c1", address: "789 Pine"}))
     ->thenStateWithId(
       "c1",
@@ -33,9 +29,7 @@ describe("Customers StateViewSlice", () => {
   )
 
   test("CustomerDeactivated sets deactivated flag", () =>
-    givenEvents([
-      CustomerRegistered({customerId: "c1", email: "alice@x.y", address: "123 Main"}),
-    ])
+    givenEvents([CustomerRegistered({customerId: "c1", email: "alice@x.y", address: "123 Main"})])
     ->whenEvent(CustomerDeactivated({customerId: "c1"}))
     ->thenStateWithId(
       "c1",

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

@@ -10,9 +10,7 @@ describe("Products Extension delegate", () => {
   test("ProductBecameAvailable issues SyncNewProduct", () =>
     whenIncomingEvent(
       ExtensionPoint.ProductBecameAvailable({productId: "p1", name: "Book", price: 9.99}),
-    )->thenPublishesCommand(
-      Delegate.SyncNewProduct({productId: "p1", name: "Book", price: 9.99}),
-    )
+    )->thenPublishesCommand(Delegate.SyncNewProduct({productId: "p1", name: "Book", price: 9.99}))
   )
 
   test("ProductPriceChanged issues ChangeSyncedPrice", () =>

package/lib/bs/tests/Order/StateChange/PlaceOrder_GWT.res

@@ -20,19 +20,13 @@ describe("PlaceOrder StateChangeSlice", () => {
   )
 
   test("re-placing the same orderId returns OrderAlreadyPlaced", () =>
-    givenEvents([
-      CatalogProductSynced({productId: "p1"}),
-      OrderPlaced({orderId: "o1"}),
-    ])
+    givenEvents([CatalogProductSynced({productId: "p1"}), OrderPlaced({orderId: "o1"})])
     ->whenCmd(PlaceOrder({orderId: "o1", customerId: "c1", productIds: ["p1"]}))
     ->thenError(OrderAlreadyPlaced)
   )
 
   test("a sibling OrderPlaced for a different orderId does not block placement", () =>
-    givenEvents([
-      CatalogProductSynced({productId: "p1"}),
-      OrderPlaced({orderId: "o2"}),
-    ])
+    givenEvents([CatalogProductSynced({productId: "p1"}), OrderPlaced({orderId: "o2"})])
     ->whenCmd(PlaceOrder({orderId: "o1", customerId: "c1", productIds: ["p1"]}))
     ->thenEvent(OrderPlaced({orderId: "o1", customerId: "c1", productIds: ["p1"]}))
   )

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

@@ -3,9 +3,7 @@
 describe("Orders StateViewSlice", () => {
   test("OrderPlaced creates a row with status Placed", () =>
     givenEvents([])
-    ->whenEvent(
-      OrderPlaced({orderId: "o1", customerId: "c1", productIds: ["p1", "p2"]}),
-    )
+    ->whenEvent(OrderPlaced({orderId: "o1", customerId: "c1", productIds: ["p1", "p2"]}))
     ->thenStateWithId(
       "o1",
       {orderId: "o1", customerId: "c1", productIds: ["p1", "p2"], lifecycle: Placed},
@@ -13,9 +11,7 @@ describe("Orders StateViewSlice", () => {
   )
 
   test("OrderShipped updates status to Shipped", () =>
-    givenEvents([
-      OrderPlaced({orderId: "o1", customerId: "c1", productIds: ["p1"]}),
-    ])
+    givenEvents([OrderPlaced({orderId: "o1", customerId: "c1", productIds: ["p1"]})])
     ->whenEvent(OrderShipped({orderId: "o1"}))
     ->thenStateWithId(
       "o1",
@@ -24,9 +20,7 @@ describe("Orders StateViewSlice", () => {
   )
 
   test("OrderCancelled updates status to Cancelled", () =>
-    givenEvents([
-      OrderPlaced({orderId: "o1", customerId: "c1", productIds: ["p1"]}),
-    ])
+    givenEvents([OrderPlaced({orderId: "o1", customerId: "c1", productIds: ["p1"]})])
     ->whenEvent(OrderCancelled({orderId: "o1"}))
     ->thenStateWithId(
       "o1",

package/lib/ocaml/.compiler.log

@@ -1,2 +1,2 @@
-#Start(1788869299999)
-#Done(1788869302860)
+#Start(1789087733234)
+#Done(1789087736200)

package/lib/ocaml/AvailableProducts_Projection.res

@@ -3,6 +3,5 @@
 let project = ({event}) =>
   switch event {
   | CatalogProductSynced({productId, name, price}) => [Set(productId, {productId, name, price})]
-  | CatalogProductPriceChanged({productId, price}) =>
-    [Update(productId, p => {...p, price})]
+  | CatalogProductPriceChanged({productId, price}) => [Update(productId, p => {...p, price})]
   }

package/lib/ocaml/CancelOrder.res

@@ -9,8 +9,7 @@ type consumedEvent =
   | OrderCancelled
 
 @schema
-type command =
-  | CancelOrder({orderId: string})
+type command = CancelOrder({orderId: string})
 
 @schema
 type error =
@@ -18,11 +17,12 @@ type error =
   | OrderAlreadyShipped
 
 @schema
-type event = OrderCancelled({
-  // orderId and productIds both tag — @partitionTag picks the storage partition.
-  @partitionTag orderId: string,
-  productIds: array<string>,
-})
+type event =
+  | OrderCancelled({
+      // orderId and productIds both tag — @partitionTag picks the storage partition.
+      @partitionTag orderId: string,
+      productIds: array<string>,
+    })
 
 type lifecycleState = Orders.lifecycle
 

package/lib/ocaml/Customers_GWT.res

@@ -11,9 +11,7 @@ describe("Customers StateViewSlice", () => {
   )
 
   test("EmailChanged updates the email", () =>
-    givenEvents([
-      CustomerRegistered({customerId: "c1", email: "alice@x.y", address: "123 Main"}),
-    ])
+    givenEvents([CustomerRegistered({customerId: "c1", email: "alice@x.y", address: "123 Main"})])
     ->whenEvent(EmailChanged({customerId: "c1", email: "alice2@x.y"}))
     ->thenStateWithId(
       "c1",
@@ -22,9 +20,7 @@ describe("Customers StateViewSlice", () => {
   )
 
   test("AddressChanged updates the address", () =>
-    givenEvents([
-      CustomerRegistered({customerId: "c1", email: "alice@x.y", address: "123 Main"}),
-    ])
+    givenEvents([CustomerRegistered({customerId: "c1", email: "alice@x.y", address: "123 Main"})])
     ->whenEvent(AddressChanged({customerId: "c1", address: "789 Pine"}))
     ->thenStateWithId(
       "c1",
@@ -33,9 +29,7 @@ describe("Customers StateViewSlice", () => {
   )
 
   test("CustomerDeactivated sets deactivated flag", () =>
-    givenEvents([
-      CustomerRegistered({customerId: "c1", email: "alice@x.y", address: "123 Main"}),
-    ])
+    givenEvents([CustomerRegistered({customerId: "c1", email: "alice@x.y", address: "123 Main"})])
     ->whenEvent(CustomerDeactivated({customerId: "c1"}))
     ->thenStateWithId(
       "c1",

package/lib/ocaml/LifecycleModel.res

@@ -7,7 +7,25 @@
 // annotation where it is silent.
 
 let model: array<Reventless.Plugin.derivedEdge> = [
-  {component: "CancelOrder", command: "CancelOrder", level: Reventless.Plugin.Instance, allowedStates: ["Placed"], targets: ["Cancelled"]},
-  {component: "PlaceOrder", command: "PlaceOrder", level: Reventless.Plugin.Collection, allowedStates: [], targets: ["Placed"]},
-  {component: "ShipOrder", command: "ShipOrder", level: Reventless.Plugin.Instance, allowedStates: ["Placed"], targets: ["Shipped"]},
+  {
+    component: "CancelOrder",
+    command: "CancelOrder",
+    level: Reventless.Plugin.Instance,
+    allowedStates: ["Placed"],
+    targets: ["Cancelled"],
+  },
+  {
+    component: "PlaceOrder",
+    command: "PlaceOrder",
+    level: Reventless.Plugin.Collection,
+    allowedStates: [],
+    targets: ["Placed"],
+  },
+  {
+    component: "ShipOrder",
+    command: "ShipOrder",
+    level: Reventless.Plugin.Instance,
+    allowedStates: ["Placed"],
+    targets: ["Shipped"],
+  },
 ]

package/lib/ocaml/Orders_ExtensionPointMapping.res

@@ -15,18 +15,18 @@ module Delegate = {
 
 let mapIncomingCommand = (_id, _command, _meta) => []
 
-let mapOutgoingEvent = Some((_id, event, _meta, _queryEngine) =>
-  switch event {
-  | Delegate.OrderPlaced({orderId, customerId, productIds}) =>
-    productIds->Array.map(productId =>
-      PublishEvent(
+let mapOutgoingEvent = Some(
+  (_id, event, _meta, _queryEngine) =>
+    switch event {
+    | Delegate.OrderPlaced({orderId, customerId, productIds}) =>
+      productIds->Array.map(productId => PublishEvent(
         productId,
         OrderingSpec.Orders_ExtensionPoint.ItemOrdered({productId, orderId, customerId}),
-      )
-    )
-  | Delegate.OrderCancelled({orderId, productIds}) =>
-    productIds->Array.map(productId =>
-      PublishEvent(productId, OrderingSpec.Orders_ExtensionPoint.ItemOrderCancelled({productId, orderId}))
-    )
-  }
+      ))
+    | Delegate.OrderCancelled({orderId, productIds}) =>
+      productIds->Array.map(productId => PublishEvent(
+        productId,
+        OrderingSpec.Orders_ExtensionPoint.ItemOrderCancelled({productId, orderId}),
+      ))
+    },
 )

package/lib/ocaml/Orders_GWT.res

@@ -3,9 +3,7 @@
 describe("Orders StateViewSlice", () => {
   test("OrderPlaced creates a row with status Placed", () =>
     givenEvents([])
-    ->whenEvent(
-      OrderPlaced({orderId: "o1", customerId: "c1", productIds: ["p1", "p2"]}),
-    )
+    ->whenEvent(OrderPlaced({orderId: "o1", customerId: "c1", productIds: ["p1", "p2"]}))
     ->thenStateWithId(
       "o1",
       {orderId: "o1", customerId: "c1", productIds: ["p1", "p2"], lifecycle: Placed},
@@ -13,9 +11,7 @@ describe("Orders StateViewSlice", () => {
   )
 
   test("OrderShipped updates status to Shipped", () =>
-    givenEvents([
-      OrderPlaced({orderId: "o1", customerId: "c1", productIds: ["p1"]}),
-    ])
+    givenEvents([OrderPlaced({orderId: "o1", customerId: "c1", productIds: ["p1"]})])
     ->whenEvent(OrderShipped({orderId: "o1"}))
     ->thenStateWithId(
       "o1",
@@ -24,9 +20,7 @@ describe("Orders StateViewSlice", () => {
   )
 
   test("OrderCancelled updates status to Cancelled", () =>
-    givenEvents([
-      OrderPlaced({orderId: "o1", customerId: "c1", productIds: ["p1"]}),
-    ])
+    givenEvents([OrderPlaced({orderId: "o1", customerId: "c1", productIds: ["p1"]})])
     ->whenEvent(OrderCancelled({orderId: "o1"}))
     ->thenStateWithId(
       "o1",

package/lib/ocaml/PlaceOrder.res

@@ -12,7 +12,11 @@ type consumedEvent =
 @schema
 type command =
   // Multiple tagged fields — @partitionTag picks orderId as the storage partition.
-  PlaceOrder({@partitionTag orderId: string, customerId: string, @ref("AvailableProducts") productIds: array<string>})
+  | PlaceOrder({
+      @partitionTag orderId: string,
+      customerId: string,
+      @ref("AvailableProducts") productIds: array<string>,
+    })
 
 @schema
 type error =

package/lib/ocaml/PlaceOrder_Behavior.res

@@ -29,7 +29,8 @@ let decide = (state, command) =>
     if state.placedOrderIds->Array.includes(orderId) {
       Error(OrderAlreadyPlaced)
     } else {
-      let missing = productIds->Array.filter(pid => !(state.availableProductIds->Array.includes(pid)))
+      let missing =
+        productIds->Array.filter(pid => !(state.availableProductIds->Array.includes(pid)))
       if missing->Array.length > 0 {
         Error(ProductsNotAvailable({missing: missing}))
       } else {

package/lib/ocaml/PlaceOrder_GWT.res

@@ -20,19 +20,13 @@ describe("PlaceOrder StateChangeSlice", () => {
   )
 
   test("re-placing the same orderId returns OrderAlreadyPlaced", () =>
-    givenEvents([
-      CatalogProductSynced({productId: "p1"}),
-      OrderPlaced({orderId: "o1"}),
-    ])
+    givenEvents([CatalogProductSynced({productId: "p1"}), OrderPlaced({orderId: "o1"})])
     ->whenCmd(PlaceOrder({orderId: "o1", customerId: "c1", productIds: ["p1"]}))
     ->thenError(OrderAlreadyPlaced)
   )
 
   test("a sibling OrderPlaced for a different orderId does not block placement", () =>
-    givenEvents([
-      CatalogProductSynced({productId: "p1"}),
-      OrderPlaced({orderId: "o2"}),
-    ])
+    givenEvents([CatalogProductSynced({productId: "p1"}), OrderPlaced({orderId: "o2"})])
     ->whenCmd(PlaceOrder({orderId: "o1", customerId: "c1", productIds: ["p1"]}))
     ->thenEvent(OrderPlaced({orderId: "o1", customerId: "c1", productIds: ["p1"]}))
   )