@reventlessdev/online-shop-dcb-ordering 1.0.0-alpha.271 → 1.0.0-alpha.273

package/CHANGELOG.md

@@ -3,6 +3,21 @@
 All notable changes to this project will be documented in this file.
 See [Conventional Commits](https://conventionalcommits.org) for commit guidelines.
 
+# 1.0.0-alpha.273 (2026-10-10)
+
+### Features
+
+* **gwt:** automation and translation tests take the slice as written, and the sidecars read them ([93a0919](https://github.com/ReventlessDev/reventless-core/commit/93a0919a0d66730cf9bf89144ad8fba3cb025332))
+
+
+# 1.0.0-alpha.272 (2026-10-08)
+
+**Note:** Version bump only for package @reventlessdev/online-shop-dcb-ordering
+
+
+
+
+
 # 1.0.0-alpha.271 (2026-10-08)
 
 **Note:** Version bump only for package @reventlessdev/online-shop-dcb-ordering

package/lib/bs/.compiler.log

@@ -1,2 +1,2 @@
-#Start(1791470944270)
-#Done(1791470948213)
+#Start(1791641990336)
+#Done(1791641993221)

package/lib/bs/compiler-info.json

@@ -4,5 +4,5 @@
   "bsc_hash": "1006241435e8d5052329c523202a7fe6359a37e1e1688c023d37d6a7ebb5fb6d",
   "rescript_config_hash": "2b45634c4ef9d26c69e2cd8282eb5d077ce9cf087ded0065001d0f0d889e241c",
   "runtime_path": "/home/runner/work/reventless-core/reventless-core/node_modules/@rescript/runtime",
-  "generated_at": "1791470948218"
+  "generated_at": "1791641993225"
 }

package/lib/bs/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", () => {

package/lib/bs/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/lib/bs/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/lib/bs/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/lib/ocaml/.compiler.log

@@ -1,2 +1,2 @@
-#Start(1791470944270)
-#Done(1791470948213)
+#Start(1791641990336)
+#Done(1791641993221)