@reventlessdev/reventless-gwt 1.0.0-alpha.238 → 1.0.0-alpha.240

package/tests/AutomationFromSliceGwtTest.res.mjs

@@ -0,0 +1,353 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Sury from "sury";
+import * as Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
+import * as AutomationSlice$Reventless from "@reventlessdev/reventless-spec/src/components/AutomationSlice.res.mjs";
+import * as Automation_GWT$ReventlessGwt from "../src/Automation_GWT.res.mjs";
+
+let todoItemSchema = Sury.$schema(s => ({
+  orderId: s.m(Sury.string)
+}));
+
+let commandSchema = Sury.union([
+  Sury.$schema(s => ({
+    TAG: "Ship",
+    orderId: s.m(Sury.string)
+  })),
+  Sury.$schema(s => ({
+    TAG: "GiveUp",
+    orderId: s.m(Sury.string)
+  }))
+]);
+
+function authorizationOf(param) {
+  return "AllowAuthenticated";
+}
+
+function commandTransition(param) {
+  return "Undeclared";
+}
+
+let traits = [];
+
+let ShipPaid = {
+  name: "ShipPaid",
+  moduleUrl: "",
+  todoItemSchema: todoItemSchema,
+  commandSchema: commandSchema,
+  maxRetries: 3,
+  heartbeatInterval: 60,
+  targetName: "Order",
+  authorizationOf: authorizationOf,
+  commandTransition: commandTransition,
+  traits: traits
+};
+
+let M = AutomationSlice$Reventless.Mappings.Make(ShipPaid);
+
+let moduleUrl = "";
+
+let name = "Orders";
+
+let eventSchema = Sury.union([
+  Sury.$schema(s => ({
+    TAG: "OrderPlaced",
+    orderId: s.m(Sury.string)
+  })),
+  Sury.$schema(s => ({
+    TAG: "OrderCancelled",
+    orderId: s.m(Sury.string)
+  }))
+]);
+
+let Orders = {
+  Id: undefined,
+  name: name,
+  eventSchema: eventSchema
+};
+
+let name$1 = "Payments";
+
+let eventSchema$1 = Sury.union([
+  Sury.$schema(s => ({
+    TAG: "Captured",
+    amount: s.m(Sury.int32)
+  })),
+  Sury.$schema(s => ({
+    TAG: "Refunded",
+    amount: s.m(Sury.int32)
+  }))
+]);
+
+let Payments = {
+  Id: undefined,
+  name: name$1,
+  eventSchema: eventSchema$1
+};
+
+function collect(event, param, _ctx) {
+  if (event.TAG !== "OrderPlaced") {
+    return [];
+  }
+  let orderId = event.orderId;
+  return [[
+      orderId,
+      {
+        orderId: orderId
+      }
+    ]];
+}
+
+function resolve(event) {
+  if (event.TAG === "OrderPlaced") {
+    return;
+  } else {
+    return event.orderId;
+  }
+}
+
+let FromOrders = AutomationSlice$Reventless.Mapping.Make({
+  Id: Id$Reventless.$$String,
+  name: name,
+  eventSchema: eventSchema
+})(ShipPaid)({
+  collect: collect,
+  resolve: resolve
+});
+
+function collect$1(event, sourceId, _ctx) {
+  if (event.TAG === "Captured") {
+    return [[
+        sourceId,
+        {
+          orderId: sourceId
+        }
+      ]];
+  } else {
+    return [];
+  }
+}
+
+function resolve$1(event) {
+  
+}
+
+let FromPayments = AutomationSlice$Reventless.Mapping.Make({
+  Id: Id$Reventless.$$String,
+  name: name$1,
+  eventSchema: eventSchema$1
+})(ShipPaid)({
+  collect: collect$1,
+  resolve: resolve$1
+});
+
+let mappings = [
+  FromOrders,
+  FromPayments
+];
+
+function process(id, _item) {
+  return [
+    id,
+    {
+      TAG: "Ship",
+      orderId: id
+    }
+  ];
+}
+
+function onExhausted(id, _item) {
+  return [
+    id,
+    {
+      TAG: "GiveUp",
+      orderId: id
+    }
+  ];
+}
+
+let ShipPaid_Automation = {
+  M: M,
+  moduleUrl: moduleUrl,
+  Orders: Orders,
+  Payments: Payments,
+  FromOrders: FromOrders,
+  FromPayments: FromPayments,
+  mappings: mappings,
+  process: process,
+  onExhausted: onExhausted
+};
+
+let include = Automation_GWT$ReventlessGwt.FromSlice(ShipPaid)({
+  process: process,
+  onExhausted: onExhausted,
+  moduleUrl: moduleUrl,
+  mappings: mappings
+});
+
+let describe = include.describe;
+
+let test = include.test;
+
+let thenTodos = include.thenTodos;
+
+let thenResolved = include.thenResolved;
+
+let Mapping = include.Mapping;
+
+let givenTodo = include.givenTodo;
+
+let whenProcess = include.whenProcess;
+
+let whenExhausted = include.whenExhausted;
+
+let thenCommand = include.thenCommand;
+
+let givenEvents = include.givenEvents;
+
+let whenSweep = include.whenSweep;
+
+let thenCommands = include.thenCommands;
+
+let andThenEvents = include.andThenEvents;
+
+let thenScenarioTodos = include.thenScenarioTodos;
+
+let O = Mapping(FromOrders);
+
+let P = Mapping(FromPayments);
+
+describe("Automation_GWT.FromSlice", () => {
+  test("collect through one mapping", () => thenTodos(O.whenCollect(O.givenEvent({
+    TAG: "OrderPlaced",
+    orderId: "o1"
+  }), undefined, undefined), [[
+      "o1",
+      {
+        orderId: "o1"
+      }
+    ]]));
+  test("collect keys by the source id where the event does not name it", () => thenTodos(P.whenCollect(P.givenEvent({
+    TAG: "Captured",
+    amount: 5
+  }), "o2", undefined), [[
+      "o2",
+      {
+        orderId: "o2"
+      }
+    ]]));
+  test("resolve through one mapping", () => thenResolved(O.whenResolve(O.givenEvent({
+    TAG: "OrderCancelled",
+    orderId: "o1"
+  })), "o1"));
+  test("process", () => thenCommand(whenProcess(givenTodo("o1", {
+    orderId: "o1"
+  })), "o1", {
+    TAG: "Ship",
+    orderId: "o1"
+  }));
+  test("exhausted: onExhausted is what the domain hears", () => thenCommand(whenExhausted(givenTodo("o1", {
+    orderId: "o1"
+  })), "o1", {
+    TAG: "GiveUp",
+    orderId: "o1"
+  }));
+  test("sweep: both sources route by name, in event order", () => thenCommands(whenSweep(givenEvents([
+    P.event({
+      TAG: "Captured",
+      amount: 5
+    }, "o2"),
+    O.event({
+      TAG: "OrderPlaced",
+      orderId: "o1"
+    }, undefined)
+  ]), undefined), [
+    [
+      "o2",
+      {
+        TAG: "Ship",
+        orderId: "o2"
+      }
+    ],
+    [
+      "o1",
+      {
+        TAG: "Ship",
+        orderId: "o1"
+      }
+    ]
+  ]));
+  test("sweep: a resolve completes only a row that exists", () => thenScenarioTodos(whenSweep(givenEvents([
+    O.event({
+      TAG: "OrderCancelled",
+      orderId: "o1"
+    }, undefined),
+    O.event({
+      TAG: "OrderPlaced",
+      orderId: "o1"
+    }, undefined),
+    O.event({
+      TAG: "OrderPlaced",
+      orderId: "o3"
+    }, undefined),
+    O.event({
+      TAG: "OrderCancelled",
+      orderId: "o3"
+    }, undefined)
+  ]), undefined), [[
+      "o1",
+      {
+        orderId: "o1"
+      }
+    ]]));
+  test("andThenEvents drains what later events resolve", () => thenScenarioTodos(andThenEvents(whenSweep(givenEvents([O.event({
+      TAG: "OrderPlaced",
+      orderId: "o1"
+    }, undefined)]), undefined), [O.event({
+      TAG: "OrderCancelled",
+      orderId: "o1"
+    }, undefined)], undefined), []));
+});
+
+let Route = include.Route;
+
+let testContext = include.testContext;
+
+let encTodos = include.encTodos;
+
+let encPair = include.encPair;
+
+let thenNoCommand = include.thenNoCommand;
+
+let routeAll = include.routeAll;
+
+let sweep = include.sweep;
+
+export {
+  ShipPaid,
+  ShipPaid_Automation,
+  Route,
+  describe,
+  test,
+  testContext,
+  encTodos,
+  encPair,
+  thenTodos,
+  thenResolved,
+  Mapping,
+  givenTodo,
+  whenProcess,
+  whenExhausted,
+  thenCommand,
+  thenNoCommand,
+  givenEvents,
+  routeAll,
+  sweep,
+  whenSweep,
+  thenCommands,
+  andThenEvents,
+  thenScenarioTodos,
+  O,
+  P,
+}
+/* todoItemSchema Not a pure module */

package/tests/AutomationGwtTest.res.mjs

@@ -64,7 +64,7 @@ function onExhausted(_id, _item) {
   
 }
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -83,7 +83,7 @@ let ShipOrderSlice = {
   resolve: resolve,
   process: process,
   onExhausted: onExhausted,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 };

package/tests/DelegateGwtTest.res

@@ -46,7 +46,7 @@ module ProductDelegate = {
 
   let moduleUrl = ""
   type role = Reventless.Role.name
-  let commandAuthorization = (_: command): Reventless.Authorization.rule<role> => AllowAuthenticated
+  let authorizationOf = (_: string): Reventless.Authorization.rule<role> => AllowAuthenticated
   type lifecycleState = unit
   let commandTransition = (_: command): Reventless.Transition.t<lifecycleState> => Unrestricted
 }
@@ -134,7 +134,7 @@ module OrderDelegate = {
 
   let moduleUrl = ""
   type role = Reventless.Role.name
-  let commandAuthorization = (_: command): Reventless.Authorization.rule<role> => AllowAuthenticated
+  let authorizationOf = (_: string): Reventless.Authorization.rule<role> => AllowAuthenticated
   type lifecycleState = unit
   let commandTransition = (_: command): Reventless.Transition.t<lifecycleState> => Unrestricted
 }
@@ -204,7 +204,7 @@ module SyncDelegate = {
 
   let moduleUrl = ""
   type role = Reventless.Role.name
-  let commandAuthorization = (_: command): Reventless.Authorization.rule<role> => AllowAuthenticated
+  let authorizationOf = (_: string): Reventless.Authorization.rule<role> => AllowAuthenticated
   type lifecycleState = unit
   let commandTransition = (_: command): Reventless.Transition.t<lifecycleState> => Unrestricted
 }
@@ -283,7 +283,7 @@ module StockDelegate = {
 
   let moduleUrl = ""
   type role = Reventless.Role.name
-  let commandAuthorization = (_: command): Reventless.Authorization.rule<role> => AllowAuthenticated
+  let authorizationOf = (_: string): Reventless.Authorization.rule<role> => AllowAuthenticated
   type lifecycleState = unit
   let commandTransition = (_: command): Reventless.Transition.t<lifecycleState> => Unrestricted
 }
@@ -346,7 +346,7 @@ module SyncedDelegate = {
 
   let moduleUrl = ""
   type role = Reventless.Role.name
-  let commandAuthorization = (_: command): Reventless.Authorization.rule<role> => AllowAuthenticated
+  let authorizationOf = (_: string): Reventless.Authorization.rule<role> => AllowAuthenticated
   type lifecycleState = unit
   let commandTransition = (_: command): Reventless.Transition.t<lifecycleState> => Unrestricted
 }

package/tests/DelegateGwtTest.res.mjs

@@ -22,7 +22,7 @@ let eventSchema = Sury.union([
 
 let directiveSchema = Sury.literal("NoDirective");
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -38,7 +38,7 @@ let ProductsEpSpec = {
   commandSchema: commandSchema,
   eventSchema: eventSchema,
   directiveSchema: directiveSchema,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 };
@@ -65,7 +65,7 @@ let errorSchema = Sury.literal("NoError");
 
 let moduleUrl = "";
 
-function commandAuthorization$1(param) {
+function authorizationOf$1(param) {
   return "AllowAuthenticated";
 }
 
@@ -82,7 +82,7 @@ let ProductDelegate = {
   eventSchema: eventSchema$1,
   errorSchema: errorSchema,
   moduleUrl: moduleUrl,
-  commandAuthorization: commandAuthorization$1,
+  authorizationOf: authorizationOf$1,
   commandTransition: commandTransition$1,
   traits: traits$1
 };
@@ -157,7 +157,7 @@ let ProductsEpGwt = Delegate_GWT$ReventlessGwt.FromExtensionPoint({
     errorSchema: errorSchema,
     commandSchema: commandSchema$1,
     moduleUrl: moduleUrl,
-    commandAuthorization: commandAuthorization$1,
+    authorizationOf: authorizationOf$1,
     commandTransition: commandTransition$1,
     traits: traits$1
   },
@@ -209,7 +209,7 @@ let eventSchema$2 = Sury.union([
 
 let directiveSchema$1 = Sury.literal("NoDirective");
 
-function commandAuthorization$2(param) {
+function authorizationOf$2(param) {
   return "AllowAuthenticated";
 }
 
@@ -225,7 +225,7 @@ let OrdersEpSpec = {
   commandSchema: commandSchema$2,
   eventSchema: eventSchema$2,
   directiveSchema: directiveSchema$1,
-  commandAuthorization: commandAuthorization$2,
+  authorizationOf: authorizationOf$2,
   commandTransition: commandTransition$2,
   traits: traits$2
 };
@@ -252,7 +252,7 @@ let errorSchema$1 = Sury.literal("NoError");
 
 let moduleUrl$2 = "";
 
-function commandAuthorization$3(param) {
+function authorizationOf$3(param) {
   return "AllowAuthenticated";
 }
 
@@ -269,7 +269,7 @@ let OrderDelegate = {
   eventSchema: eventSchema$3,
   errorSchema: errorSchema$1,
   moduleUrl: moduleUrl$2,
-  commandAuthorization: commandAuthorization$3,
+  authorizationOf: authorizationOf$3,
   commandTransition: commandTransition$3,
   traits: traits$3
 };
@@ -345,7 +345,7 @@ let OrdersEpGwt = Delegate_GWT$ReventlessGwt.FromExtensionPoint({
     errorSchema: errorSchema$1,
     commandSchema: commandSchema$3,
     moduleUrl: moduleUrl$2,
-    commandAuthorization: commandAuthorization$3,
+    authorizationOf: authorizationOf$3,
     commandTransition: commandTransition$3,
     traits: traits$3
   },
@@ -415,7 +415,7 @@ let errorSchema$2 = Sury.literal("NoError");
 
 let moduleUrl$4 = "";
 
-function commandAuthorization$4(param) {
+function authorizationOf$4(param) {
   return "AllowAuthenticated";
 }
 
@@ -432,7 +432,7 @@ let SyncDelegate = {
   eventSchema: eventSchema$4,
   errorSchema: errorSchema$2,
   moduleUrl: moduleUrl$4,
-  commandAuthorization: commandAuthorization$4,
+  authorizationOf: authorizationOf$4,
   commandTransition: commandTransition$4,
   traits: traits$4
 };
@@ -503,7 +503,7 @@ let ProductsExtGwt = Delegate_GWT$ReventlessGwt.FromExtension({
     errorSchema: errorSchema$2,
     commandSchema: commandSchema$4,
     moduleUrl: moduleUrl$4,
-    commandAuthorization: commandAuthorization$4,
+    authorizationOf: authorizationOf$4,
     commandTransition: commandTransition$4,
     traits: traits$4
   },
@@ -548,7 +548,7 @@ let eventSchema$5 = Sury.literal("NoEvent");
 
 let directiveSchema$2 = Sury.literal("NoDirective");
 
-function commandAuthorization$5(param) {
+function authorizationOf$5(param) {
   return "AllowAuthenticated";
 }
 
@@ -564,7 +564,7 @@ let InventoryEpSpec = {
   commandSchema: commandSchema$5,
   eventSchema: eventSchema$5,
   directiveSchema: directiveSchema$2,
-  commandAuthorization: commandAuthorization$5,
+  authorizationOf: authorizationOf$5,
   commandTransition: commandTransition$5,
   traits: traits$5
 };
@@ -583,7 +583,7 @@ let errorSchema$3 = Sury.literal("NoError");
 
 let moduleUrl$6 = "";
 
-function commandAuthorization$6(param) {
+function authorizationOf$6(param) {
   return "AllowAuthenticated";
 }
 
@@ -600,7 +600,7 @@ let StockDelegate = {
   eventSchema: eventSchema$6,
   errorSchema: errorSchema$3,
   moduleUrl: moduleUrl$6,
-  commandAuthorization: commandAuthorization$6,
+  authorizationOf: authorizationOf$6,
   commandTransition: commandTransition$6,
   traits: traits$6
 };
@@ -651,7 +651,7 @@ let InventoryEpGwt = Delegate_GWT$ReventlessGwt.FromExtensionPoint({
     errorSchema: errorSchema$3,
     commandSchema: commandSchema$6,
     moduleUrl: moduleUrl$6,
-    commandAuthorization: commandAuthorization$6,
+    authorizationOf: authorizationOf$6,
     commandTransition: commandTransition$6,
     traits: traits$6
   },
@@ -681,7 +681,7 @@ let eventSchema$7 = Sury.literal("NoEvent");
 
 let directiveSchema$3 = Sury.literal("NoDirective");
 
-function commandAuthorization$7(param) {
+function authorizationOf$7(param) {
   return "AllowAuthenticated";
 }
 
@@ -697,7 +697,7 @@ let FeedbackEpSpec = {
   commandSchema: commandSchema$7,
   eventSchema: eventSchema$7,
   directiveSchema: directiveSchema$3,
-  commandAuthorization: commandAuthorization$7,
+  authorizationOf: authorizationOf$7,
   commandTransition: commandTransition$7,
   traits: traits$7
 };
@@ -715,7 +715,7 @@ let errorSchema$4 = Sury.literal("NoError");
 
 let moduleUrl$8 = "";
 
-function commandAuthorization$8(param) {
+function authorizationOf$8(param) {
   return "AllowAuthenticated";
 }
 
@@ -732,7 +732,7 @@ let SyncedDelegate = {
   eventSchema: eventSchema$8,
   errorSchema: errorSchema$4,
   moduleUrl: moduleUrl$8,
-  commandAuthorization: commandAuthorization$8,
+  authorizationOf: authorizationOf$8,
   commandTransition: commandTransition$8,
   traits: traits$8
 };
@@ -787,7 +787,7 @@ let FeedbackExtGwt = Delegate_GWT$ReventlessGwt.FromExtension({
     errorSchema: errorSchema$4,
     commandSchema: commandSchema$8,
     moduleUrl: moduleUrl$8,
-    commandAuthorization: commandAuthorization$8,
+    authorizationOf: authorizationOf$8,
     commandTransition: commandTransition$8,
     traits: traits$8
   },
@@ -822,7 +822,7 @@ let directiveSchema$4 = Sury.union([
   Sury.literal("FlushCache")
 ]);
 
-function commandAuthorization$9(param) {
+function authorizationOf$9(param) {
   return "AllowAuthenticated";
 }
 
@@ -838,7 +838,7 @@ let NotifyEpSpec = {
   commandSchema: commandSchema$9,
   eventSchema: eventSchema$9,
   directiveSchema: directiveSchema$4,
-  commandAuthorization: commandAuthorization$9,
+  authorizationOf: authorizationOf$9,
   commandTransition: commandTransition$9,
   traits: traits$9
 };
@@ -922,7 +922,7 @@ let NotifyEpGwt = Delegate_GWT$ReventlessGwt.FromExtensionPoint({
     errorSchema: errorSchema,
     commandSchema: commandSchema$1,
     moduleUrl: moduleUrl,
-    commandAuthorization: commandAuthorization$1,
+    authorizationOf: authorizationOf$1,
     commandTransition: commandTransition$1,
     traits: traits$1
   },
@@ -1019,7 +1019,7 @@ let NotifyExtGwt = Delegate_GWT$ReventlessGwt.FromExtension({
     errorSchema: errorSchema$2,
     commandSchema: commandSchema$4,
     moduleUrl: moduleUrl$4,
-    commandAuthorization: commandAuthorization$4,
+    authorizationOf: authorizationOf$4,
     commandTransition: commandTransition$4,
     traits: traits$4
   },

package/tests/FlowAggregateGwtTest.res.mjs

@@ -17,7 +17,7 @@ let eventSchema = Sury.$schema(s => ({
 
 let errorSchema = Sury.literal("AlreadySynced");
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -32,7 +32,7 @@ let CatalogProductAggregate = {
   commandSchema: commandSchema,
   eventSchema: eventSchema,
   errorSchema: errorSchema,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 };
@@ -93,7 +93,7 @@ let errorSchema$1 = Sury.union([
   Sury.literal("NotPlaced")
 ]);
 
-function commandAuthorization$1(param) {
+function authorizationOf$1(param) {
   return "AllowAuthenticated";
 }
 
@@ -108,7 +108,7 @@ let OrderAggregate = {
   commandSchema: commandSchema$1,
   eventSchema: eventSchema$1,
   errorSchema: errorSchema$1,
-  commandAuthorization: commandAuthorization$1,
+  authorizationOf: authorizationOf$1,
   commandTransition: commandTransition$1,
   traits: traits$1
 };