@reventlessdev/online-shop-aggregates-ordering 3.0.0-alpha.237 → 3.0.0-alpha.239

package/src/Plugin.res

@@ -14,14 +14,13 @@ module Make = (Platform: ReventlessInfra.Platform.T) => {
     Customer_Behavior,
     ReventlessInfra.NoEventMappings.Make(Customer),
   )
-  module OrderAggregate = Platform.Aggregate.Make(
-    Order,
-    Order_Behavior,
-    Order_Mappings,
-  )
+  module OrderAggregate = Platform.Aggregate.Make(Order, Order_Behavior, Order_Mappings)
 
   // ReadModels
-  module AvailableProductsReadModel = Platform.ReadModel.Make(AvailableProducts, AvailableProducts_Projections)
+  module AvailableProductsReadModel = Platform.ReadModel.Make(
+    AvailableProducts,
+    AvailableProducts_Projections,
+  )
   module CustomersReadModel = Platform.ReadModel.Make(Customers, Customers_Projections)
   module OrdersReadModel = Platform.ReadModel.Make(Orders, Orders_Projections)
 
@@ -36,11 +35,26 @@ module Make = (Platform: ReventlessInfra.Platform.T) => {
 
   let pluginStructure = Platform.Plugin.makePluginDefinition(
     ~name="Ordering",
-    ~aggregates=[module(CatalogProductAggregate), module(CustomerAggregate), module(OrderAggregate)],
-    ~readModels=[module(AvailableProductsReadModel), module(CustomersReadModel), module(OrdersReadModel)],
+    ~aggregates=[
+      module(CatalogProductAggregate),
+      module(CustomerAggregate),
+      module(OrderAggregate),
+    ],
+    ~readModels=[
+      module(AvailableProductsReadModel),
+      module(CustomersReadModel),
+      module(OrdersReadModel),
+    ],
     ~extensions=[module(Products_Extension)],
     ~extensionPoints=[module(Orders_ExtensionPointMapping)],
-    ~componentChapters=Dict.fromArray([("AvailableProducts", "CatalogProduct"), ("CatalogProduct", "CatalogProduct"), ("Customer", "Customer"), ("Customers", "Customer"), ("Order", "Order"), ("Orders", "Order")]),
+    ~componentChapters=Dict.fromArray([
+      ("AvailableProducts", "CatalogProduct"),
+      ("CatalogProduct", "CatalogProduct"),
+      ("Customer", "Customer"),
+      ("Customers", "Customer"),
+      ("Order", "Order"),
+      ("Orders", "Order"),
+    ]),
     ~lifecycleModel=LifecycleModel.model,
   )
 
@@ -50,10 +64,18 @@ module Make = (Platform: ReventlessInfra.Platform.T) => {
       ~heartbeatInterval=5,
       ~extensionPoints=[module(Orders_ExtensionPoint)],
       ~extensions=[module(Products_Extension)],
-      ~aggregates=[module(CatalogProductAggregate), module(CustomerAggregate), module(OrderAggregate)],
-      ~readModels=[module(AvailableProductsReadModel), module(CustomersReadModel), module(OrdersReadModel)],
+      ~aggregates=[
+        module(CatalogProductAggregate),
+        module(CustomerAggregate),
+        module(OrderAggregate),
+      ],
+      ~readModels=[
+        module(AvailableProductsReadModel),
+        module(CustomersReadModel),
+        module(OrdersReadModel),
+      ],
       ~tasks=[module(OrderNotificationsTask)],
-      ~pluginStructure=pluginStructure,
+      ~pluginStructure,
       ~uiFragments=?uiBundleUrl->Option.map(url =>
         Platform.Plugin.makeAutoUIManifest(
           ~remoteEntryUrl=url,

package/src/Task/OrderNotifications.res

@@ -4,5 +4,5 @@
 @@reventless.task
 
 let setup = (_queryEngine, _queryBucketName, _opts) => {
-  Task.sideEffects: [module(Order_EmailNotification): module(SideEffect.T)],
+  Task.sideEffects: [module(Order_EmailNotification: SideEffect.T)],
 }

package/tests/Customer/Aggregate/Customer_GWT.res

@@ -14,10 +14,7 @@ describe("Customer Behavior", () => {
   )
 
   test("Register on deactivated aggregate returns CustomerAlreadyDeactivated", () =>
-    givenEvents([
-      Registered({email: "alice@example.com", address: "123 Main St"}),
-      Deactivated,
-    ])
+    givenEvents([Registered({email: "alice@example.com", address: "123 Main St"}), Deactivated])
     ->whenCmd(Register({email: "bob@example.com", address: "456 Oak Ave"}))
     ->thenError(CustomerAlreadyDeactivated)
   )
@@ -41,10 +38,7 @@ describe("Customer Behavior", () => {
   )
 
   test("UpdateEmail on deactivated customer returns CustomerAlreadyDeactivated", () =>
-    givenEvents([
-      Registered({email: "alice@example.com", address: "123 Main St"}),
-      Deactivated,
-    ])
+    givenEvents([Registered({email: "alice@example.com", address: "123 Main St"}), Deactivated])
     ->whenCmd(UpdateEmail({email: "bob@example.com"}))
     ->thenError(CustomerAlreadyDeactivated)
   )
@@ -80,10 +74,7 @@ describe("Customer Behavior", () => {
   )
 
   test("Deactivate on deactivated customer produces no events (idempotent)", () =>
-    givenEvents([
-      Registered({email: "alice@example.com", address: "123 Main St"}),
-      Deactivated,
-    ])
+    givenEvents([Registered({email: "alice@example.com", address: "123 Main St"}), Deactivated])
     ->whenCmd(Deactivate)
     ->thenNoEvent
   )

package/tests/ExtensionPoint/Orders_ExtensionPointMapping_GWT.res

@@ -13,21 +13,15 @@ describe("Orders ExtensionPoint mapping — per-product fan-out", () => {
   )
 
   test("Cancelled fans out to one ItemOrderCancelled per product", () =>
-    whenDelegateEvent(
-      Delegate.Cancelled({productIds: ["p1", "p2"]}),
-    )->thenPublishesEvents([
+    whenDelegateEvent(Delegate.Cancelled({productIds: ["p1", "p2"]}))->thenPublishesEvents([
       ("p1", ExtensionPoint.ItemOrderCancelled({productId: "p1", orderId: "gwt-id"})),
       ("p2", ExtensionPoint.ItemOrderCancelled({productId: "p2", orderId: "gwt-id"})),
     ])
   )
 
-  test("Shipped publishes nothing", () =>
-    whenDelegateEvent(Delegate.Shipped)->thenPublishesNothing
-  )
+  test("Shipped publishes nothing", () => whenDelegateEvent(Delegate.Shipped)->thenPublishesNothing)
 
   test("Refunded publishes nothing", () =>
-    whenDelegateEvent(
-      Delegate.Refunded({reason: "customer-changed-mind"}),
-    )->thenPublishesNothing
+    whenDelegateEvent(Delegate.Refunded({reason: "customer-changed-mind"}))->thenPublishesNothing
   )
 })

package/tests/Order/Aggregate/OrderMappings_GWT.res

@@ -43,9 +43,7 @@ describe("Order auto-ship mapping (Placed → Ship)", () => {
 
   test("Refund command does not fire the mapping (only Placed events do)", () =>
     givenSourceEvents([placedEvent, Order.Cancelled({productIds: ["prod-1"]})])
-    ->andTargetEvents([
-      ("order-1", [placedEvent, Order.Cancelled({productIds: ["prod-1"]})]),
-    ])
+    ->andTargetEvents([("order-1", [placedEvent, Order.Cancelled({productIds: ["prod-1"]})])])
     ->whenSourceCmd("order-1", Refund({reason: "customer-changed-mind"}))
     ->thenNoTargetEvent
   )