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

package/src/Plugin.res

@@ -3,14 +3,54 @@
 @val external uiBundleUrl: option<string> = "process.env.ORDERING_UI_BUNDLE_URL"
 
 let dcbSliceSchemas: array<Reventless.DcbTag.sliceSchemas> = [
-  {name: CancelOrder.name, commandSchema: CancelOrder.commandSchema->S.castToUnknown, consumedEventSchema: CancelOrder.consumedEventSchema->S.castToUnknown, eventSchema: CancelOrder.eventSchema->S.castToUnknown},
-  {name: ChangeAddress.name, commandSchema: ChangeAddress.commandSchema->S.castToUnknown, consumedEventSchema: ChangeAddress.consumedEventSchema->S.castToUnknown, eventSchema: ChangeAddress.eventSchema->S.castToUnknown},
-  {name: ChangeEmail.name, commandSchema: ChangeEmail.commandSchema->S.castToUnknown, consumedEventSchema: ChangeEmail.consumedEventSchema->S.castToUnknown, eventSchema: ChangeEmail.eventSchema->S.castToUnknown},
-  {name: DeactivateCustomer.name, commandSchema: DeactivateCustomer.commandSchema->S.castToUnknown, consumedEventSchema: DeactivateCustomer.consumedEventSchema->S.castToUnknown, eventSchema: DeactivateCustomer.eventSchema->S.castToUnknown},
-  {name: PlaceOrder.name, commandSchema: PlaceOrder.commandSchema->S.castToUnknown, consumedEventSchema: PlaceOrder.consumedEventSchema->S.castToUnknown, eventSchema: PlaceOrder.eventSchema->S.castToUnknown},
-  {name: RegisterCustomer.name, commandSchema: RegisterCustomer.commandSchema->S.castToUnknown, consumedEventSchema: RegisterCustomer.consumedEventSchema->S.castToUnknown, eventSchema: RegisterCustomer.eventSchema->S.castToUnknown},
-  {name: ShipOrder.name, commandSchema: ShipOrder.commandSchema->S.castToUnknown, consumedEventSchema: ShipOrder.consumedEventSchema->S.castToUnknown, eventSchema: ShipOrder.eventSchema->S.castToUnknown},
-  {name: SyncCatalogProduct.name, commandSchema: SyncCatalogProduct.commandSchema->S.castToUnknown, consumedEventSchema: SyncCatalogProduct.consumedEventSchema->S.castToUnknown, eventSchema: SyncCatalogProduct.eventSchema->S.castToUnknown},
+  {
+    name: CancelOrder.name,
+    commandSchema: CancelOrder.commandSchema->S.castToUnknown,
+    consumedEventSchema: CancelOrder.consumedEventSchema->S.castToUnknown,
+    eventSchema: CancelOrder.eventSchema->S.castToUnknown,
+  },
+  {
+    name: ChangeAddress.name,
+    commandSchema: ChangeAddress.commandSchema->S.castToUnknown,
+    consumedEventSchema: ChangeAddress.consumedEventSchema->S.castToUnknown,
+    eventSchema: ChangeAddress.eventSchema->S.castToUnknown,
+  },
+  {
+    name: ChangeEmail.name,
+    commandSchema: ChangeEmail.commandSchema->S.castToUnknown,
+    consumedEventSchema: ChangeEmail.consumedEventSchema->S.castToUnknown,
+    eventSchema: ChangeEmail.eventSchema->S.castToUnknown,
+  },
+  {
+    name: DeactivateCustomer.name,
+    commandSchema: DeactivateCustomer.commandSchema->S.castToUnknown,
+    consumedEventSchema: DeactivateCustomer.consumedEventSchema->S.castToUnknown,
+    eventSchema: DeactivateCustomer.eventSchema->S.castToUnknown,
+  },
+  {
+    name: PlaceOrder.name,
+    commandSchema: PlaceOrder.commandSchema->S.castToUnknown,
+    consumedEventSchema: PlaceOrder.consumedEventSchema->S.castToUnknown,
+    eventSchema: PlaceOrder.eventSchema->S.castToUnknown,
+  },
+  {
+    name: RegisterCustomer.name,
+    commandSchema: RegisterCustomer.commandSchema->S.castToUnknown,
+    consumedEventSchema: RegisterCustomer.consumedEventSchema->S.castToUnknown,
+    eventSchema: RegisterCustomer.eventSchema->S.castToUnknown,
+  },
+  {
+    name: ShipOrder.name,
+    commandSchema: ShipOrder.commandSchema->S.castToUnknown,
+    consumedEventSchema: ShipOrder.consumedEventSchema->S.castToUnknown,
+    eventSchema: ShipOrder.eventSchema->S.castToUnknown,
+  },
+  {
+    name: SyncCatalogProduct.name,
+    commandSchema: SyncCatalogProduct.commandSchema->S.castToUnknown,
+    consumedEventSchema: SyncCatalogProduct.consumedEventSchema->S.castToUnknown,
+    eventSchema: SyncCatalogProduct.eventSchema->S.castToUnknown,
+  },
 ]
 
 module Make = (Platform: ReventlessInfra.Platform.T) => {
@@ -18,14 +58,26 @@ module Make = (Platform: ReventlessInfra.Platform.T) => {
   module CancelOrderSlice = Platform.StateChangeSlice.Make(CancelOrder, CancelOrder_Behavior)
   module ChangeAddressSlice = Platform.StateChangeSlice.Make(ChangeAddress, ChangeAddress_Behavior)
   module ChangeEmailSlice = Platform.StateChangeSlice.Make(ChangeEmail, ChangeEmail_Behavior)
-  module DeactivateCustomerSlice = Platform.StateChangeSlice.Make(DeactivateCustomer, DeactivateCustomer_Behavior)
+  module DeactivateCustomerSlice = Platform.StateChangeSlice.Make(
+    DeactivateCustomer,
+    DeactivateCustomer_Behavior,
+  )
   module PlaceOrderSlice = Platform.StateChangeSlice.Make(PlaceOrder, PlaceOrder_Behavior)
-  module RegisterCustomerSlice = Platform.StateChangeSlice.Make(RegisterCustomer, RegisterCustomer_Behavior)
+  module RegisterCustomerSlice = Platform.StateChangeSlice.Make(
+    RegisterCustomer,
+    RegisterCustomer_Behavior,
+  )
   module ShipOrderSlice = Platform.StateChangeSlice.Make(ShipOrder, ShipOrder_Behavior)
-  module SyncCatalogProductSlice = Platform.StateChangeSlice.Make(SyncCatalogProduct, SyncCatalogProduct_Behavior)
+  module SyncCatalogProductSlice = Platform.StateChangeSlice.Make(
+    SyncCatalogProduct,
+    SyncCatalogProduct_Behavior,
+  )
 
   // StateViewSlices
-  module AvailableProductsSlice = Platform.StateViewSlice.Make(AvailableProducts, AvailableProducts_Projection)
+  module AvailableProductsSlice = Platform.StateViewSlice.Make(
+    AvailableProducts,
+    AvailableProducts_Projection,
+  )
   module CustomersSlice = Platform.StateViewSlice.Make(Customers, Customers_Projection)
   module OrdersSlice = Platform.StateViewSlice.Make(Orders, Orders_Projection)
 
@@ -33,7 +85,10 @@ module Make = (Platform: ReventlessInfra.Platform.T) => {
   module AutoShipOrderSlice = Platform.AutomationSlice.Make(AutoShipOrder, AutoShipOrder_Automation)
 
   // OutboundTranslationSlices
-  module SendOrderConfirmationSlice = Platform.OutboundTranslationSlice.Make(SendOrderConfirmation, SendOrderConfirmation_Translation)
+  module SendOrderConfirmationSlice = Platform.OutboundTranslationSlice.Make(
+    SendOrderConfirmation,
+    SendOrderConfirmation_Translation,
+  )
 
   // ExtensionPoints
   module Orders_ExtensionPoint = Platform.ExtensionPoint.Make(Orders_ExtensionPointMapping)
@@ -44,12 +99,35 @@ module Make = (Platform: ReventlessInfra.Platform.T) => {
   let pluginStructure = Platform.Plugin.makePluginDefinition(
     ~name="Ordering",
     ~stateViewSlices=[module(AvailableProductsSlice), module(CustomersSlice), module(OrdersSlice)],
-    ~stateChangeSlices=[module(CancelOrderSlice), module(ChangeAddressSlice), module(ChangeEmailSlice), module(DeactivateCustomerSlice), module(PlaceOrderSlice), module(RegisterCustomerSlice), module(ShipOrderSlice), module(SyncCatalogProductSlice)],
+    ~stateChangeSlices=[
+      module(CancelOrderSlice),
+      module(ChangeAddressSlice),
+      module(ChangeEmailSlice),
+      module(DeactivateCustomerSlice),
+      module(PlaceOrderSlice),
+      module(RegisterCustomerSlice),
+      module(ShipOrderSlice),
+      module(SyncCatalogProductSlice),
+    ],
     ~automationSlices=[module(AutoShipOrderSlice)],
     ~outboundTranslationSlices=[module(SendOrderConfirmationSlice)],
     ~extensions=[module(Products_Extension)],
     ~extensionPoints=[module(Orders_ExtensionPointMapping)],
-    ~componentChapters=Dict.fromArray([("AutoShipOrder", "Order"), ("AvailableProducts", "CatalogProduct"), ("CancelOrder", "Order"), ("ChangeAddress", "Customer"), ("ChangeEmail", "Customer"), ("Customers", "Customer"), ("DeactivateCustomer", "Customer"), ("Orders", "Order"), ("PlaceOrder", "Order"), ("RegisterCustomer", "Customer"), ("SendOrderConfirmation", "Order"), ("ShipOrder", "Order"), ("SyncCatalogProduct", "CatalogProduct")]),
+    ~componentChapters=Dict.fromArray([
+      ("AutoShipOrder", "Order"),
+      ("AvailableProducts", "CatalogProduct"),
+      ("CancelOrder", "Order"),
+      ("ChangeAddress", "Customer"),
+      ("ChangeEmail", "Customer"),
+      ("Customers", "Customer"),
+      ("DeactivateCustomer", "Customer"),
+      ("Orders", "Order"),
+      ("PlaceOrder", "Order"),
+      ("RegisterCustomer", "Customer"),
+      ("SendOrderConfirmation", "Order"),
+      ("ShipOrder", "Order"),
+      ("SyncCatalogProduct", "CatalogProduct"),
+    ]),
     ~lifecycleModel=LifecycleModel.model,
   )
 
@@ -59,11 +137,24 @@ module Make = (Platform: ReventlessInfra.Platform.T) => {
       ~heartbeatInterval=5,
       ~extensionPoints=[module(Orders_ExtensionPoint)],
       ~extensions=[module(Products_Extension)],
-      ~stateChangeSlices=[module(CancelOrderSlice), module(ChangeAddressSlice), module(ChangeEmailSlice), module(DeactivateCustomerSlice), module(PlaceOrderSlice), module(RegisterCustomerSlice), module(ShipOrderSlice), module(SyncCatalogProductSlice)],
-      ~stateViewSlices=[module(AvailableProductsSlice), module(CustomersSlice), module(OrdersSlice)],
+      ~stateChangeSlices=[
+        module(CancelOrderSlice),
+        module(ChangeAddressSlice),
+        module(ChangeEmailSlice),
+        module(DeactivateCustomerSlice),
+        module(PlaceOrderSlice),
+        module(RegisterCustomerSlice),
+        module(ShipOrderSlice),
+        module(SyncCatalogProductSlice),
+      ],
+      ~stateViewSlices=[
+        module(AvailableProductsSlice),
+        module(CustomersSlice),
+        module(OrdersSlice),
+      ],
       ~automationSlices=[module(AutoShipOrderSlice)],
       ~outboundTranslationSlices=[module(SendOrderConfirmationSlice)],
-      ~pluginStructure=pluginStructure,
+      ~pluginStructure,
       ~uiFragments=?uiBundleUrl->Option.map(url =>
         Platform.Plugin.makeAutoUIManifest(
           ~remoteEntryUrl=url,

package/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/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/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/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/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",