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

package/tests/Order/Automation/AutoShipOrder_GWT.res.mjs

@@ -5,74 +5,50 @@ import * as Automation_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src
 import * as Ordering_Examples$OrderingPlugin from "../../Ordering_Examples.res.mjs";
 import * as AutoShipOrder_Automation$OrderingPlugin from "../../../src/Order/Automation/AutoShipOrder_Automation.res.mjs";
 
-let testContext = {
-  environment: "test",
-  platformName: "test",
-  pluginName: "ordering",
-  sliceName: "AutoShipOrder"
-};
-
-let consumedEventSchema = AutoShipOrder_Automation$OrderingPlugin.FromOrderingDcb.sourceEventSchema;
-
-function collect(e) {
-  return AutoShipOrder_Automation$OrderingPlugin.FromOrderingDcb.collect(e, "", testContext);
-}
-
-let resolve = AutoShipOrder_Automation$OrderingPlugin.FromOrderingDcb.resolve;
-
-let AutoShipOrderSlice = {
+let include = Automation_GWT$ReventlessGwt.FromSlice({
   name: AutoShipOrder$OrderingPlugin.name,
-  Id: AutoShipOrder$OrderingPlugin.Id,
+  moduleUrl: AutoShipOrder$OrderingPlugin.moduleUrl,
   todoItemSchema: AutoShipOrder$OrderingPlugin.todoItemSchema,
   commandSchema: AutoShipOrder$OrderingPlugin.commandSchema,
   maxRetries: AutoShipOrder$OrderingPlugin.maxRetries,
   heartbeatInterval: AutoShipOrder$OrderingPlugin.heartbeatInterval,
-  targetName: AutoShipOrder$OrderingPlugin.targetName,
-  moduleUrl: AutoShipOrder$OrderingPlugin.moduleUrl,
-  commandAuthorization: AutoShipOrder$OrderingPlugin.commandAuthorization,
-  commandTransition: AutoShipOrder$OrderingPlugin.commandTransition,
-  traits: AutoShipOrder$OrderingPlugin.traits,
-  consumedEventSchema: consumedEventSchema,
-  collect: collect,
-  resolve: resolve,
-  process: AutoShipOrder_Automation$OrderingPlugin.process
-};
-
-let include = Automation_GWT$ReventlessGwt.Make({
-  name: AutoShipOrder$OrderingPlugin.name,
-  consumedEventSchema: consumedEventSchema,
-  todoItemSchema: AutoShipOrder$OrderingPlugin.todoItemSchema,
-  commandSchema: AutoShipOrder$OrderingPlugin.commandSchema,
-  collect: collect,
-  resolve: resolve,
-  process: AutoShipOrder_Automation$OrderingPlugin.process
+  targetName: AutoShipOrder$OrderingPlugin.targetName
+})({
+  process: AutoShipOrder_Automation$OrderingPlugin.process,
+  onExhausted: AutoShipOrder_Automation$OrderingPlugin.onExhausted,
+  moduleUrl: AutoShipOrder_Automation$OrderingPlugin.moduleUrl,
+  mappings: AutoShipOrder_Automation$OrderingPlugin.mappings
 });
 
 let describe = include.describe;
 
 let test = include.test;
 
-let givenEvent = include.givenEvent;
-
-let whenCollect = include.whenCollect;
-
 let thenTodos = include.thenTodos;
 
-let whenResolve = include.whenResolve;
-
 let thenResolved = include.thenResolved;
 
+let Mapping = include.Mapping;
+
 let givenTodo = include.givenTodo;
 
 let whenProcess = include.whenProcess;
 
 let thenCommand = include.thenCommand;
 
+let include$1 = Mapping(AutoShipOrder_Automation$OrderingPlugin.FromOrderingDcb);
+
+let givenEvent = include$1.givenEvent;
+
+let whenCollect = include$1.whenCollect;
+
+let whenResolve = include$1.whenResolve;
+
 describe("AutoShipOrder AutomationSlice", () => {
   test("collect: OrderPlaced creates a pending TODO", () => thenTodos(whenCollect(givenEvent({
     TAG: "OrderPlaced",
     orderId: Ordering_Examples$OrderingPlugin.o1
-  })), [[
+  }), undefined, undefined), [[
       "o1",
       {
         orderId: Ordering_Examples$OrderingPlugin.o1
@@ -81,7 +57,7 @@ describe("AutoShipOrder AutomationSlice", () => {
   test("collect: OrderShipped is ignored (no TODO)", () => thenTodos(whenCollect(givenEvent({
     TAG: "OrderShipped",
     orderId: Ordering_Examples$OrderingPlugin.o1
-  })), []));
+  }), undefined, undefined), []));
   test("resolve: OrderShipped marks the TODO done", () => thenResolved(whenResolve(givenEvent({
     TAG: "OrderShipped",
     orderId: Ordering_Examples$OrderingPlugin.o1
@@ -98,12 +74,24 @@ describe("AutoShipOrder AutomationSlice", () => {
   }));
 });
 
-let Spec = include.Spec;
+let Route = include.Route;
+
+let testContext = include.testContext;
+
+let encTodos = include.encTodos;
+
+let encPair = include.encPair;
+
+let whenExhausted = include.whenExhausted;
 
 let thenNoCommand = include.thenNoCommand;
 
 let givenEvents = include.givenEvents;
 
+let routeAll = include.routeAll;
+
+let sweep = include.sweep;
+
 let whenSweep = include.whenSweep;
 
 let thenCommands = include.thenCommands;
@@ -112,25 +100,33 @@ let andThenEvents = include.andThenEvents;
 
 let thenScenarioTodos = include.thenScenarioTodos;
 
+let event = include$1.event;
+
 export {
-  testContext,
-  AutoShipOrderSlice,
-  Spec,
+  Route,
   describe,
   test,
-  givenEvent,
-  whenCollect,
+  testContext,
+  encTodos,
+  encPair,
   thenTodos,
-  whenResolve,
   thenResolved,
+  Mapping,
   givenTodo,
   whenProcess,
+  whenExhausted,
   thenCommand,
   thenNoCommand,
   givenEvents,
+  routeAll,
+  sweep,
   whenSweep,
   thenCommands,
   andThenEvents,
   thenScenarioTodos,
+  event,
+  givenEvent,
+  whenCollect,
+  whenResolve,
 }
 /* include Not a pure module */

package/tests/Order/OutboundTranslation/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/tests/Order/OutboundTranslation/SendOrderConfirmation_GWT.res.mjs

@@ -5,9 +5,9 @@ import * as SendOrderConfirmation$OrderingPlugin from "../../../src/Order/Outbou
 import * as OutboundTranslation_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/OutboundTranslation_GWT.res.mjs";
 import * as SendOrderConfirmation_Translation$OrderingPlugin from "../../../src/Order/OutboundTranslation/SendOrderConfirmation_Translation.res.mjs";
 
-let SendOrderConfirmationSlice = {
+let include = OutboundTranslation_GWT$ReventlessGwt.FromSlice({
   name: SendOrderConfirmation$OrderingPlugin.name,
-  Id: SendOrderConfirmation$OrderingPlugin.Id,
+  moduleUrl: SendOrderConfirmation$OrderingPlugin.moduleUrl,
   consumedEventSchema: SendOrderConfirmation$OrderingPlugin.consumedEventSchema,
   outboundItemSchema: SendOrderConfirmation$OrderingPlugin.outboundItemSchema,
   inboundCommandSchema: SendOrderConfirmation$OrderingPlugin.inboundCommandSchema,
@@ -17,17 +17,12 @@ let SendOrderConfirmationSlice = {
   sourceNames: SendOrderConfirmation$OrderingPlugin.sourceNames,
   externalSystem: SendOrderConfirmation$OrderingPlugin.externalSystem,
   capabilityNeeds: SendOrderConfirmation$OrderingPlugin.capabilityNeeds,
-  moduleUrl: SendOrderConfirmation$OrderingPlugin.moduleUrl,
-  traits: SendOrderConfirmation$OrderingPlugin.traits,
-  collect: SendOrderConfirmation_Translation$OrderingPlugin.collect
-};
-
-let include = OutboundTranslation_GWT$ReventlessGwt.Make({
-  name: SendOrderConfirmation$OrderingPlugin.name,
-  consumedEventSchema: SendOrderConfirmation$OrderingPlugin.consumedEventSchema,
-  outboundItemSchema: SendOrderConfirmation$OrderingPlugin.outboundItemSchema,
-  inboundCommandSchema: SendOrderConfirmation$OrderingPlugin.inboundCommandSchema,
-  collect: SendOrderConfirmation_Translation$OrderingPlugin.collect
+  traits: SendOrderConfirmation$OrderingPlugin.traits
+})({
+  collect: SendOrderConfirmation_Translation$OrderingPlugin.collect,
+  translate: SendOrderConfirmation_Translation$OrderingPlugin.translate,
+  onExhausted: SendOrderConfirmation_Translation$OrderingPlugin.onExhausted,
+  moduleUrl: SendOrderConfirmation_Translation$OrderingPlugin.moduleUrl
 });
 
 let describe = include.describe;
@@ -67,40 +62,72 @@ describe("SendOrderConfirmation OutboundTranslationSlice", () => {
     TAG: "Ok",
     _0: undefined
   })), "o1", "Completed"));
-  test("translate failure leaves the TODO Pending for retry", undefined, () => thenTodoStatus(whenTranslateMocked(givenTodo("o1", {
+  test("translate failure leaves the TODO Failed for retry", undefined, () => thenTodoStatus(whenTranslateMocked(givenTodo("o1", {
     orderId: Ordering_Examples$OrderingPlugin.o1,
     customerId: Ordering_Examples$OrderingPlugin.c1
   }), (_id, _item) => Promise.resolve({
     TAG: "Error",
     _0: "smtp down"
-  })), "o1", "Pending"));
+  })), "o1", "Failed"));
 });
 
-let Spec = include.Spec;
+let encItems = include.encItems;
+
+let commandPairJson = include.commandPairJson;
+
+let errorOf = include.errorOf;
+
+let fakes = include.fakes;
+
+let givenCapabilities = include.givenCapabilities;
+
+let attemptWith = include.attemptWith;
+
+let attempts = include.attempts;
+
+let whenTranslated = include.whenTranslated;
 
 let whenTranslateRetrying = include.whenTranslateRetrying;
 
+let whenExhausted = include.whenExhausted;
+
 let thenCommand = include.thenCommand;
 
 let thenNoCommand = include.thenNoCommand;
 
+let thenSent = include.thenSent;
+
+let thenNothingSent = include.thenNothingSent;
+
 let thenRetryRecorded = include.thenRetryRecorded;
 
+let statusName = include.statusName;
+
 export {
-  SendOrderConfirmationSlice,
-  Spec,
   describe,
   test,
   testSync,
+  encItems,
+  commandPairJson,
+  errorOf,
   givenEvent,
   whenCollect,
   thenTodos,
   givenTodo,
+  fakes,
+  givenCapabilities,
+  attemptWith,
+  attempts,
+  whenTranslated,
   whenTranslateMocked,
   whenTranslateRetrying,
+  whenExhausted,
   thenCommand,
   thenNoCommand,
+  thenSent,
+  thenNothingSent,
   thenRetryRecorded,
+  statusName,
   thenTodoStatus,
 }
 /* include Not a pure module */

package/tests/Order/StateChange/CancelOrder_GWT.res.mjs

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

package/tests/Order/StateChange/PlaceOrder_GWT.res.mjs

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

package/tests/Order/StateChange/ShipOrder_GWT.res.mjs

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