@reventlessdev/online-shop-dcb-ordering 1.0.0-alpha.272 → 1.0.0-alpha.274

package/lib/ocaml/SendOrderConfirmation_GWT.res

@@ -1,14 +1,5 @@
-// `OutboundTranslation_GWT.Make` expects a single SliceSpec with `collect` at
-// the top level. The split-form production layout keeps `collect` in the
-// translation body file, so we compose it onto the spec module locally.
-//
-// `translate` is supplied at test time via `whenTranslateMocked`; the real
-// `translate` (which calls `EmailService`) is exercised in component tests.
-
-module SendOrderConfirmationSlice = {
-  include SendOrderConfirmation
-  let collect = SendOrderConfirmation_Translation.collect
-}
+// `translate` calls a mailer the framework does not broker, so these scenarios
+// answer for it with `whenTranslateMocked`.
 
 @@reventless.gwt
 
@@ -29,9 +20,9 @@ describe("SendOrderConfirmation OutboundTranslationSlice", () => {
   )
 
   // scenario-id: a4563058-8777-4756-8e12-983fcd0e8f20
-  test("translate failure leaves the TODO Pending for retry", () =>
+  test("translate failure leaves the TODO Failed for retry", () =>
     givenTodo("o1", {orderId: o1, customerId: c1})
     ->whenTranslateMocked((_id, _item) => Promise.resolve(Error("smtp down")))
-    ->thenTodoStatus("o1", #Pending)
+    ->thenTodoStatus("o1", #Failed)
   )
 })

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@reventlessdev/online-shop-dcb-ordering",
-  "version": "1.0.0-alpha.272",
+  "version": "1.0.0-alpha.274",
   "description": "Online Shop example — Ordering bounded context (Customer & Order) using the DCB pattern",
   "license": "Apache-2.0",
   "jest": {
@@ -21,18 +21,18 @@
   },
   "dependencies": {
     "sury": "11.0.0",
-    "@reventlessdev/online-shop-dcb-catalog-spec": "1.0.0-alpha.160",
+    "@reventlessdev/online-shop-dcb-catalog-spec": "1.0.0-alpha.162",
+    "@reventlessdev/online-shop-dcb-ordering-spec": "1.0.0-alpha.162",
     "@reventlessdev/rescript-pulumi-pulumi": "2.3.0-alpha.23",
-    "@reventlessdev/online-shop-dcb-ordering-spec": "1.0.0-alpha.160",
-    "@reventlessdev/reventless-gwt": "1.0.0-alpha.238",
-    "@reventlessdev/reventless-infra": "3.0.0-alpha.188",
-    "@reventlessdev/reventless-local": "3.0.0-alpha.281",
-    "@reventlessdev/reventless-spec": "3.0.0-alpha.160"
+    "@reventlessdev/reventless-gwt": "1.0.0-alpha.240",
+    "@reventlessdev/reventless-infra": "3.0.0-alpha.190",
+    "@reventlessdev/reventless-local": "3.0.0-alpha.283",
+    "@reventlessdev/reventless-spec": "3.0.0-alpha.162"
   },
   "devDependencies": {
     "rescript": "12.3.1",
     "sury-ppx": "11.0.0",
-    "@reventlessdev/reventless-ppx": "1.0.0-alpha.98"
+    "@reventlessdev/reventless-ppx": "1.0.0-alpha.99"
   },
   "peerDependencies": {
     "rescript": "^12.3.1"

package/src/CatalogProduct/StateChange/SyncCatalogProduct.res.mjs

@@ -46,7 +46,7 @@ let eventSchema = Sury.union([
   }))
 ]);
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -72,7 +72,7 @@ export {
   errorSchema,
   eventSchema,
   moduleUrl,
-  commandAuthorization,
+  authorizationOf,
   readConsistency,
   commandTransition,
   traits,

package/src/Customer/StateChange/ChangeAddress.res.mjs

@@ -33,7 +33,7 @@ let eventSchema = Sury.$schema(s => ({
   address: s.m(Sury.string)
 }));
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -59,7 +59,7 @@ export {
   errorSchema,
   eventSchema,
   moduleUrl,
-  commandAuthorization,
+  authorizationOf,
   readConsistency,
   commandTransition,
   traits,

package/src/Customer/StateChange/ChangeEmail.res.mjs

@@ -33,7 +33,7 @@ let eventSchema = Sury.$schema(s => ({
   email: s.m(Sury.string)
 }));
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -59,7 +59,7 @@ export {
   errorSchema,
   eventSchema,
   moduleUrl,
-  commandAuthorization,
+  authorizationOf,
   readConsistency,
   commandTransition,
   traits,

package/src/Customer/StateChange/DeactivateCustomer.res.mjs

@@ -21,7 +21,7 @@ let eventSchema = Sury.$schema(s => ({
   customerId: s.m(DcbTag$Reventless.mark(CustomerId$OrderingPlugin.schema))
 }));
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -47,7 +47,7 @@ export {
   errorSchema,
   eventSchema,
   moduleUrl,
-  commandAuthorization,
+  authorizationOf,
   readConsistency,
   commandTransition,
   traits,

package/src/Customer/StateChange/RegisterCustomer.res.mjs

@@ -22,7 +22,7 @@ let eventSchema = Sury.$schema(s => ({
   address: s.m(Sury.string)
 }));
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -48,7 +48,7 @@ export {
   errorSchema,
   eventSchema,
   moduleUrl,
-  commandAuthorization,
+  authorizationOf,
   readConsistency,
   commandTransition,
   traits,

package/src/ExtensionPoint/Orders_ExtensionPointMapping.res.mjs

@@ -24,7 +24,7 @@ let eventSchema = Sury.union([
 
 let errorSchema = Sury.$unit;
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -41,7 +41,7 @@ let Delegate = {
   eventSchema: eventSchema,
   errorSchema: errorSchema,
   moduleUrl: "@reventlessdev/online-shop-dcb-ordering/src/ExtensionPoint/Orders_ExtensionPointMapping.res.mjs",
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 };

package/src/Order/Automation/AutoShipOrder.res.mjs

@@ -13,7 +13,7 @@ let commandSchema = Sury.$schema(s => ({
   orderId: s.m(DcbTag$Reventless.mark(OrderId$OrderingPlugin.schema))
 }));
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -44,7 +44,7 @@ export {
   heartbeatInterval,
   targetName,
   moduleUrl,
-  commandAuthorization,
+  authorizationOf,
   commandTransition,
   traits,
 }

package/src/Order/StateChange/CancelOrder.res.mjs

@@ -38,7 +38,7 @@ function commandTransition(command) {
   };
 }
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -61,7 +61,7 @@ export {
   eventSchema,
   commandTransition,
   moduleUrl,
-  commandAuthorization,
+  authorizationOf,
   readConsistency,
   traits,
 }

package/src/Order/StateChange/PlaceOrder.res.mjs

@@ -40,7 +40,7 @@ let eventSchema = Sury.$schema(s => ({
   productIds: s.m(Sury.array(DcbTag$Reventless.mark(ProductId$CatalogSpec.schema)))
 }));
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -66,7 +66,7 @@ export {
   errorSchema,
   eventSchema,
   moduleUrl,
-  commandAuthorization,
+  authorizationOf,
   readConsistency,
   commandTransition,
   traits,

package/src/Order/StateChange/ShipOrder.res.mjs

@@ -33,7 +33,7 @@ function commandTransition(command) {
   };
 }
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -56,7 +56,7 @@ export {
   eventSchema,
   commandTransition,
   moduleUrl,
-  commandAuthorization,
+  authorizationOf,
   readConsistency,
   traits,
 }

package/src/Plugin.res.mjs

@@ -104,7 +104,7 @@ function Make(Platform) {
     errorSchema: CancelOrder$OrderingPlugin.errorSchema,
     eventSchema: CancelOrder$OrderingPlugin.eventSchema,
     commandSchema: CancelOrder$OrderingPlugin.commandSchema,
-    commandAuthorization: CancelOrder$OrderingPlugin.commandAuthorization,
+    authorizationOf: CancelOrder$OrderingPlugin.authorizationOf,
     commandTransition: CancelOrder$OrderingPlugin.commandTransition,
     traits: CancelOrder$OrderingPlugin.traits,
     readConsistency: CancelOrder$OrderingPlugin.readConsistency
@@ -121,7 +121,7 @@ function Make(Platform) {
     errorSchema: ChangeAddress$OrderingPlugin.errorSchema,
     eventSchema: ChangeAddress$OrderingPlugin.eventSchema,
     commandSchema: ChangeAddress$OrderingPlugin.commandSchema,
-    commandAuthorization: ChangeAddress$OrderingPlugin.commandAuthorization,
+    authorizationOf: ChangeAddress$OrderingPlugin.authorizationOf,
     commandTransition: ChangeAddress$OrderingPlugin.commandTransition,
     traits: ChangeAddress$OrderingPlugin.traits,
     readConsistency: ChangeAddress$OrderingPlugin.readConsistency
@@ -138,7 +138,7 @@ function Make(Platform) {
     errorSchema: ChangeEmail$OrderingPlugin.errorSchema,
     eventSchema: ChangeEmail$OrderingPlugin.eventSchema,
     commandSchema: ChangeEmail$OrderingPlugin.commandSchema,
-    commandAuthorization: ChangeEmail$OrderingPlugin.commandAuthorization,
+    authorizationOf: ChangeEmail$OrderingPlugin.authorizationOf,
     commandTransition: ChangeEmail$OrderingPlugin.commandTransition,
     traits: ChangeEmail$OrderingPlugin.traits,
     readConsistency: ChangeEmail$OrderingPlugin.readConsistency
@@ -155,7 +155,7 @@ function Make(Platform) {
     errorSchema: DeactivateCustomer$OrderingPlugin.errorSchema,
     eventSchema: DeactivateCustomer$OrderingPlugin.eventSchema,
     commandSchema: DeactivateCustomer$OrderingPlugin.commandSchema,
-    commandAuthorization: DeactivateCustomer$OrderingPlugin.commandAuthorization,
+    authorizationOf: DeactivateCustomer$OrderingPlugin.authorizationOf,
     commandTransition: DeactivateCustomer$OrderingPlugin.commandTransition,
     traits: DeactivateCustomer$OrderingPlugin.traits,
     readConsistency: DeactivateCustomer$OrderingPlugin.readConsistency
@@ -172,7 +172,7 @@ function Make(Platform) {
     errorSchema: PlaceOrder$OrderingPlugin.errorSchema,
     eventSchema: PlaceOrder$OrderingPlugin.eventSchema,
     commandSchema: PlaceOrder$OrderingPlugin.commandSchema,
-    commandAuthorization: PlaceOrder$OrderingPlugin.commandAuthorization,
+    authorizationOf: PlaceOrder$OrderingPlugin.authorizationOf,
     commandTransition: PlaceOrder$OrderingPlugin.commandTransition,
     traits: PlaceOrder$OrderingPlugin.traits,
     readConsistency: PlaceOrder$OrderingPlugin.readConsistency
@@ -189,7 +189,7 @@ function Make(Platform) {
     errorSchema: RegisterCustomer$OrderingPlugin.errorSchema,
     eventSchema: RegisterCustomer$OrderingPlugin.eventSchema,
     commandSchema: RegisterCustomer$OrderingPlugin.commandSchema,
-    commandAuthorization: RegisterCustomer$OrderingPlugin.commandAuthorization,
+    authorizationOf: RegisterCustomer$OrderingPlugin.authorizationOf,
     commandTransition: RegisterCustomer$OrderingPlugin.commandTransition,
     traits: RegisterCustomer$OrderingPlugin.traits,
     readConsistency: RegisterCustomer$OrderingPlugin.readConsistency
@@ -206,7 +206,7 @@ function Make(Platform) {
     errorSchema: ShipOrder$OrderingPlugin.errorSchema,
     eventSchema: ShipOrder$OrderingPlugin.eventSchema,
     commandSchema: ShipOrder$OrderingPlugin.commandSchema,
-    commandAuthorization: ShipOrder$OrderingPlugin.commandAuthorization,
+    authorizationOf: ShipOrder$OrderingPlugin.authorizationOf,
     commandTransition: ShipOrder$OrderingPlugin.commandTransition,
     traits: ShipOrder$OrderingPlugin.traits,
     readConsistency: ShipOrder$OrderingPlugin.readConsistency
@@ -223,7 +223,7 @@ function Make(Platform) {
     errorSchema: SyncCatalogProduct$OrderingPlugin.errorSchema,
     eventSchema: SyncCatalogProduct$OrderingPlugin.eventSchema,
     commandSchema: SyncCatalogProduct$OrderingPlugin.commandSchema,
-    commandAuthorization: SyncCatalogProduct$OrderingPlugin.commandAuthorization,
+    authorizationOf: SyncCatalogProduct$OrderingPlugin.authorizationOf,
     commandTransition: SyncCatalogProduct$OrderingPlugin.commandTransition,
     traits: SyncCatalogProduct$OrderingPlugin.traits,
     readConsistency: SyncCatalogProduct$OrderingPlugin.readConsistency
@@ -323,7 +323,7 @@ function Make(Platform) {
       errorSchema: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.errorSchema,
       commandSchema: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.commandSchema,
       moduleUrl: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.moduleUrl,
-      commandAuthorization: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.commandAuthorization,
+      authorizationOf: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.authorizationOf,
       commandTransition: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.commandTransition,
       traits: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.traits
     },
@@ -348,7 +348,7 @@ function Make(Platform) {
       errorSchema: SyncCatalogProduct$OrderingPlugin.errorSchema,
       commandSchema: SyncCatalogProduct$OrderingPlugin.commandSchema,
       moduleUrl: SyncCatalogProduct$OrderingPlugin.moduleUrl,
-      commandAuthorization: SyncCatalogProduct$OrderingPlugin.commandAuthorization,
+      authorizationOf: SyncCatalogProduct$OrderingPlugin.authorizationOf,
       commandTransition: SyncCatalogProduct$OrderingPlugin.commandTransition,
       traits: SyncCatalogProduct$OrderingPlugin.traits
     },
@@ -387,7 +387,7 @@ function Make(Platform) {
         errorSchema: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.errorSchema,
         commandSchema: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.commandSchema,
         moduleUrl: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.moduleUrl,
-        commandAuthorization: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.commandAuthorization,
+        authorizationOf: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.authorizationOf,
         commandTransition: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.commandTransition,
         traits: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.traits
       },

package/tests/CatalogProduct/StateChange/SyncCatalogProduct_GWT.res.mjs

@@ -11,7 +11,7 @@ let include = Behavior_GWT$ReventlessGwt.Make({
   commandSchema: SyncCatalogProduct$OrderingPlugin.commandSchema,
   errorSchema: SyncCatalogProduct$OrderingPlugin.errorSchema,
   eventSchema: SyncCatalogProduct$OrderingPlugin.eventSchema,
-  commandAuthorization: SyncCatalogProduct$OrderingPlugin.commandAuthorization
+  authorizationOf: SyncCatalogProduct$OrderingPlugin.authorizationOf
 })({
   initialState: SyncCatalogProduct_Behavior$OrderingPlugin.initialState,
   evolve: SyncCatalogProduct_Behavior$OrderingPlugin.evolve,

package/tests/Customer/StateChange/ChangeAddress_GWT.res.mjs

@@ -11,7 +11,7 @@ let include = Behavior_GWT$ReventlessGwt.Make({
   commandSchema: ChangeAddress$OrderingPlugin.commandSchema,
   errorSchema: ChangeAddress$OrderingPlugin.errorSchema,
   eventSchema: ChangeAddress$OrderingPlugin.eventSchema,
-  commandAuthorization: ChangeAddress$OrderingPlugin.commandAuthorization
+  authorizationOf: ChangeAddress$OrderingPlugin.authorizationOf
 })({
   initialState: ChangeAddress_Behavior$OrderingPlugin.initialState,
   evolve: ChangeAddress_Behavior$OrderingPlugin.evolve,

package/tests/Customer/StateChange/ChangeEmail_GWT.res.mjs

@@ -11,7 +11,7 @@ let include = Behavior_GWT$ReventlessGwt.Make({
   commandSchema: ChangeEmail$OrderingPlugin.commandSchema,
   errorSchema: ChangeEmail$OrderingPlugin.errorSchema,
   eventSchema: ChangeEmail$OrderingPlugin.eventSchema,
-  commandAuthorization: ChangeEmail$OrderingPlugin.commandAuthorization
+  authorizationOf: ChangeEmail$OrderingPlugin.authorizationOf
 })({
   initialState: ChangeEmail_Behavior$OrderingPlugin.initialState,
   evolve: ChangeEmail_Behavior$OrderingPlugin.evolve,

package/tests/Customer/StateChange/DeactivateCustomer_GWT.res.mjs

@@ -11,7 +11,7 @@ let include = Behavior_GWT$ReventlessGwt.Make({
   commandSchema: DeactivateCustomer$OrderingPlugin.commandSchema,
   errorSchema: DeactivateCustomer$OrderingPlugin.errorSchema,
   eventSchema: DeactivateCustomer$OrderingPlugin.eventSchema,
-  commandAuthorization: DeactivateCustomer$OrderingPlugin.commandAuthorization
+  authorizationOf: DeactivateCustomer$OrderingPlugin.authorizationOf
 })({
   initialState: DeactivateCustomer_Behavior$OrderingPlugin.initialState,
   evolve: DeactivateCustomer_Behavior$OrderingPlugin.evolve,

package/tests/Customer/StateChange/RegisterCustomer_GWT.res.mjs

@@ -11,7 +11,7 @@ let include = Behavior_GWT$ReventlessGwt.Make({
   commandSchema: RegisterCustomer$OrderingPlugin.commandSchema,
   errorSchema: RegisterCustomer$OrderingPlugin.errorSchema,
   eventSchema: RegisterCustomer$OrderingPlugin.eventSchema,
-  commandAuthorization: RegisterCustomer$OrderingPlugin.commandAuthorization
+  authorizationOf: RegisterCustomer$OrderingPlugin.authorizationOf
 })({
   initialState: RegisterCustomer_Behavior$OrderingPlugin.initialState,
   evolve: RegisterCustomer_Behavior$OrderingPlugin.evolve,

package/tests/Extension/Products_Extension_GWT.res.mjs

@@ -22,7 +22,7 @@ let include = Delegate_GWT$ReventlessGwt.FromExtension({
     errorSchema: SyncCatalogProduct$OrderingPlugin.errorSchema,
     commandSchema: SyncCatalogProduct$OrderingPlugin.commandSchema,
     moduleUrl: SyncCatalogProduct$OrderingPlugin.moduleUrl,
-    commandAuthorization: SyncCatalogProduct$OrderingPlugin.commandAuthorization,
+    authorizationOf: SyncCatalogProduct$OrderingPlugin.authorizationOf,
     commandTransition: SyncCatalogProduct$OrderingPlugin.commandTransition,
     traits: SyncCatalogProduct$OrderingPlugin.traits
   },

package/tests/ExtensionPoint/Orders_ExtensionPointMapping_GWT.res.mjs

@@ -21,7 +21,7 @@ let include = Delegate_GWT$ReventlessGwt.FromExtensionPoint({
     errorSchema: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.errorSchema,
     commandSchema: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.commandSchema,
     moduleUrl: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.moduleUrl,
-    commandAuthorization: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.commandAuthorization,
+    authorizationOf: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.authorizationOf,
     commandTransition: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.commandTransition,
     traits: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.traits
   },

package/tests/Order/Automation/AutoShipOrder_GWT.res

@@ -1,27 +1,7 @@
-// `Automation_GWT.Make` expects a single SliceSpec with `collect`, `resolve`
-// and `process` as top-level bindings. The split-form production layout puts
-// `collect`/`resolve` inside the per-source `FromOrderingDcb` mapping, so we
-// compose the pieces locally before handing the result to the DSL.
-
-let testContext: Reventless.AutomationSlice.context = {
-  environment: "test",
-  platformName: "test",
-  pluginName: "ordering",
-  sliceName: "AutoShipOrder",
-}
-
-module AutoShipOrderSlice = {
-  include AutoShipOrder
-  type consumedEvent = AutoShipOrder_Automation.FromOrderingDcb.sourceEvent
-  let consumedEventSchema = AutoShipOrder_Automation.FromOrderingDcb.sourceEventSchema
-
-  let collect = e => AutoShipOrder_Automation.FromOrderingDcb.collect(e, ~sourceId="", testContext)
-  let resolve = AutoShipOrder_Automation.FromOrderingDcb.resolve
-  let process = AutoShipOrder_Automation.process
-}
-
 @@reventless.gwt
 
+include Mapping(FromOrderingDcb)
+
 open Ordering_Examples
 
 describe("AutoShipOrder AutomationSlice", () => {