@reventlessdev/online-shop-dcb-ordering 1.0.0-alpha.276 → 1.0.0-alpha.278

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@reventlessdev/online-shop-dcb-ordering",
-  "version": "1.0.0-alpha.276",
+  "version": "1.0.0-alpha.278",
   "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.163",
+    "@reventlessdev/online-shop-dcb-catalog-spec": "1.0.0-alpha.165",
     "@reventlessdev/rescript-pulumi-pulumi": "2.3.0-alpha.23",
-    "@reventlessdev/reventless-gwt": "1.0.0-alpha.242",
-    "@reventlessdev/reventless-infra": "3.0.0-alpha.191",
-    "@reventlessdev/online-shop-dcb-ordering-spec": "1.0.0-alpha.163",
-    "@reventlessdev/reventless-spec": "3.0.0-alpha.163",
-    "@reventlessdev/reventless-local": "3.0.0-alpha.285"
+    "@reventlessdev/reventless-infra": "3.0.0-alpha.193",
+    "@reventlessdev/reventless-gwt": "1.0.0-alpha.244",
+    "@reventlessdev/online-shop-dcb-ordering-spec": "1.0.0-alpha.165",
+    "@reventlessdev/reventless-spec": "3.0.0-alpha.165",
+    "@reventlessdev/reventless-local": "3.0.0-alpha.287"
   },
   "devDependencies": {
     "rescript": "12.3.1",
     "sury-ppx": "11.0.0",
-    "@reventlessdev/reventless-ppx": "1.0.0-alpha.100"
+    "@reventlessdev/reventless-ppx": "1.0.0-alpha.101"
   },
   "peerDependencies": {
     "rescript": "^12.3.1"

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

@@ -35,6 +35,8 @@ let targetName = "ShipOrder";
 
 let moduleUrl = "@reventlessdev/online-shop-dcb-ordering/src/Order/Automation/AutoShipOrder.res.mjs";
 
+let schedule;
+
 export {
   name,
   Id,
@@ -47,5 +49,6 @@ export {
   authorizationOf,
   commandTransition,
   traits,
+  schedule,
 }
 /* todoItemSchema Not a pure module */

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

@@ -14,7 +14,8 @@ let M = AutomationSlice$Reventless.Mappings.Make({
   commandSchema: AutoShipOrder$OrderingPlugin.commandSchema,
   maxRetries: AutoShipOrder$OrderingPlugin.maxRetries,
   heartbeatInterval: AutoShipOrder$OrderingPlugin.heartbeatInterval,
-  targetName: AutoShipOrder$OrderingPlugin.targetName
+  targetName: AutoShipOrder$OrderingPlugin.targetName,
+  schedule: undefined
 });
 
 let name = "OrderingDcbEventLog";
@@ -57,6 +58,10 @@ function resolve(event) {
   }
 }
 
+function reschedule(param) {
+  return [];
+}
+
 let FromOrderingDcb = AutomationSlice$Reventless.Mapping.Make({
   Id: Id$Reventless.$$String,
   name: name,
@@ -68,15 +73,17 @@ let FromOrderingDcb = AutomationSlice$Reventless.Mapping.Make({
   commandSchema: AutoShipOrder$OrderingPlugin.commandSchema,
   maxRetries: AutoShipOrder$OrderingPlugin.maxRetries,
   heartbeatInterval: AutoShipOrder$OrderingPlugin.heartbeatInterval,
-  targetName: AutoShipOrder$OrderingPlugin.targetName
+  targetName: AutoShipOrder$OrderingPlugin.targetName,
+  schedule: undefined
 })({
   collect: collect,
-  resolve: resolve
+  resolve: resolve,
+  reschedule: reschedule
 });
 
 let mappings = [FromOrderingDcb];
 
-function process(id, item) {
+function process(id, item, param) {
   return [
     id,
     {

package/src/Plugin.res.mjs

@@ -282,7 +282,8 @@ function Make(Platform) {
     commandSchema: AutoShipOrder$OrderingPlugin.commandSchema,
     maxRetries: AutoShipOrder$OrderingPlugin.maxRetries,
     heartbeatInterval: AutoShipOrder$OrderingPlugin.heartbeatInterval,
-    targetName: AutoShipOrder$OrderingPlugin.targetName
+    targetName: AutoShipOrder$OrderingPlugin.targetName,
+    schedule: undefined
   })({
     process: AutoShipOrder_Automation$OrderingPlugin.process,
     onExhausted: AutoShipOrder_Automation$OrderingPlugin.onExhausted,

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

@@ -12,7 +12,8 @@ let include = Automation_GWT$ReventlessGwt.FromSlice({
   commandSchema: AutoShipOrder$OrderingPlugin.commandSchema,
   maxRetries: AutoShipOrder$OrderingPlugin.maxRetries,
   heartbeatInterval: AutoShipOrder$OrderingPlugin.heartbeatInterval,
-  targetName: AutoShipOrder$OrderingPlugin.targetName
+  targetName: AutoShipOrder$OrderingPlugin.targetName,
+  schedule: undefined
 })({
   process: AutoShipOrder_Automation$OrderingPlugin.process,
   onExhausted: AutoShipOrder_Automation$OrderingPlugin.onExhausted,
@@ -48,7 +49,7 @@ describe("AutoShipOrder AutomationSlice", () => {
   test("collect: OrderPlaced creates a pending TODO", () => thenTodos(whenCollect(givenEvent({
     TAG: "OrderPlaced",
     orderId: Ordering_Examples$OrderingPlugin.o1
-  }), undefined, undefined), [[
+  }), undefined, undefined, undefined), [[
       "o1",
       {
         orderId: Ordering_Examples$OrderingPlugin.o1
@@ -57,7 +58,7 @@ describe("AutoShipOrder AutomationSlice", () => {
   test("collect: OrderShipped is ignored (no TODO)", () => thenTodos(whenCollect(givenEvent({
     TAG: "OrderShipped",
     orderId: Ordering_Examples$OrderingPlugin.o1
-  }), undefined, undefined), []));
+  }), undefined, undefined, undefined), []));
   test("resolve: OrderShipped marks the TODO done", () => thenResolved(whenResolve(givenEvent({
     TAG: "OrderShipped",
     orderId: Ordering_Examples$OrderingPlugin.o1
@@ -68,7 +69,7 @@ describe("AutoShipOrder AutomationSlice", () => {
   })), undefined));
   test("process: pending TODO emits ShipOrder for the same id", () => thenCommand(whenProcess(givenTodo("o1", {
     orderId: Ordering_Examples$OrderingPlugin.o1
-  })), "o1", {
+  }), undefined), "o1", {
     TAG: "ShipOrder",
     orderId: Ordering_Examples$OrderingPlugin.o1
   }));
@@ -78,6 +79,8 @@ let Route = include.Route;
 
 let testContext = include.testContext;
 
+let withRecordedAt = include.withRecordedAt;
+
 let encTodos = include.encTodos;
 
 let encPair = include.encPair;
@@ -88,16 +91,32 @@ let thenNoCommand = include.thenNoCommand;
 
 let givenEvents = include.givenEvents;
 
+let atTime = include.atTime;
+
+let latestRecorded = include.latestRecorded;
+
+let routeEach = include.routeEach;
+
 let routeAll = include.routeAll;
 
+let foldSchedules = include.foldSchedules;
+
+let declaredRows = include.declaredRows;
+
 let sweep = include.sweep;
 
 let whenSweep = include.whenSweep;
 
+let tick = include.tick;
+
+let whenTick = include.whenTick;
+
 let thenCommands = include.thenCommands;
 
 let andThenEvents = include.andThenEvents;
 
+let thenSchedules = include.thenSchedules;
+
 let thenScenarioTodos = include.thenScenarioTodos;
 
 let event = include$1.event;
@@ -107,6 +126,7 @@ export {
   describe,
   test,
   testContext,
+  withRecordedAt,
   encTodos,
   encPair,
   thenTodos,
@@ -118,11 +138,19 @@ export {
   thenCommand,
   thenNoCommand,
   givenEvents,
+  atTime,
+  latestRecorded,
+  routeEach,
   routeAll,
+  foldSchedules,
+  declaredRows,
   sweep,
   whenSweep,
+  tick,
+  whenTick,
   thenCommands,
   andThenEvents,
+  thenSchedules,
   thenScenarioTodos,
   event,
   givenEvent,