@reventlessdev/reventless-gwt 1.0.0-alpha.237 → 1.0.0-alpha.239

package/tests/OutboundFromSliceGwtTest.res.mjs

@@ -0,0 +1,268 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Sury from "sury";
+import * as Stdlib_JsError from "@rescript/runtime/lib/es6/Stdlib_JsError.js";
+import * as Messaging$Reventless from "@reventlessdev/reventless-spec/src/semantic/Messaging.res.mjs";
+import * as Capabilities_Fake$ReventlessGwt from "../src/Capabilities_Fake.res.mjs";
+import * as OutboundTranslation_GWT$ReventlessGwt from "../src/OutboundTranslation_GWT.res.mjs";
+
+let consumedEventSchema = Sury.$schema(s => ({
+  TAG: "Registered",
+  customerId: s.m(Sury.string),
+  email: s.m(Sury.string)
+}));
+
+let outboundItemSchema = Sury.$schema(s => ({
+  email: s.m(Sury.string)
+}));
+
+let inboundCommandSchema = Sury.union([
+  Sury.$schema(s => ({
+    TAG: "MarkWelcomed",
+    customerId: s.m(Sury.string)
+  })),
+  Sury.$schema(s => ({
+    TAG: "MarkUnreachable",
+    customerId: s.m(Sury.string)
+  }))
+]);
+
+let sourceNames = [];
+
+let capabilityNeeds = [];
+
+let traits = [];
+
+let Welcome_targetName = "Customer";
+
+let Welcome = {
+  name: "Welcome",
+  moduleUrl: "",
+  consumedEventSchema: consumedEventSchema,
+  outboundItemSchema: outboundItemSchema,
+  inboundCommandSchema: inboundCommandSchema,
+  maxRetries: 2,
+  heartbeatInterval: 60,
+  targetName: Welcome_targetName,
+  sourceNames: sourceNames,
+  externalSystem: undefined,
+  capabilityNeeds: capabilityNeeds,
+  traits: traits
+};
+
+let moduleUrl = "";
+
+function collect(event, sourceId) {
+  return [[
+      sourceId,
+      {
+        email: event.email
+      }
+    ]];
+}
+
+async function translate(id, item, capabilities) {
+  let failure = await capabilities.messaging.send({
+    TAG: "ToEmail",
+    _0: item.email
+  }, {
+    subject: "Welcome",
+    body: "Hello"
+  });
+  if (failure.TAG === "Ok") {
+    return {
+      TAG: "Ok",
+      _0: [
+        id,
+        {
+          TAG: "MarkWelcomed",
+          customerId: id
+        }
+      ]
+    };
+  } else {
+    return {
+      TAG: "Error",
+      _0: Messaging$Reventless.failureReason(failure._0)
+    };
+  }
+}
+
+function onExhausted(id, _item, param) {
+  return [
+    id,
+    {
+      TAG: "MarkUnreachable",
+      customerId: id
+    }
+  ];
+}
+
+let Welcome_Translation = {
+  moduleUrl: moduleUrl,
+  collect: collect,
+  translate: translate,
+  onExhausted: onExhausted
+};
+
+let include = OutboundTranslation_GWT$ReventlessGwt.FromSlice(Welcome)({
+  collect: collect,
+  translate: translate,
+  onExhausted: onExhausted,
+  moduleUrl: moduleUrl
+});
+
+let describe = include.describe;
+
+let test = include.test;
+
+let testSync = include.testSync;
+
+let givenEvent = include.givenEvent;
+
+let whenCollect = include.whenCollect;
+
+let thenTodos = include.thenTodos;
+
+let givenTodo = include.givenTodo;
+
+let givenCapabilities = include.givenCapabilities;
+
+let whenTranslated = include.whenTranslated;
+
+let whenTranslateMocked = include.whenTranslateMocked;
+
+let whenTranslateRetrying = include.whenTranslateRetrying;
+
+let whenExhausted = include.whenExhausted;
+
+let thenCommand = include.thenCommand;
+
+let thenSent = include.thenSent;
+
+let thenNothingSent = include.thenNothingSent;
+
+let thenRetryRecorded = include.thenRetryRecorded;
+
+let thenTodoStatus = include.thenTodoStatus;
+
+let down = Capabilities_Fake$ReventlessGwt.make(undefined, async (param, param$1) => ({
+  TAG: "Error",
+  _0: {
+    TAG: "Unavailable",
+    _0: "smtp down"
+  }
+}), undefined, undefined, undefined, undefined, undefined, undefined, undefined);
+
+let welcome = {
+  TAG: "Sent",
+  recipient: {
+    TAG: "ToEmail",
+    _0: "a@b.c"
+  },
+  message: {
+    subject: "Welcome",
+    body: "Hello"
+  }
+};
+
+describe("OutboundTranslation_GWT.FromSlice", () => {
+  testSync("collect keys by the source id", () => thenTodos(whenCollect(givenEvent({
+    TAG: "Registered",
+    customerId: "c1",
+    email: "a@b.c"
+  }), "c1"), [[
+      "c1",
+      {
+        email: "a@b.c"
+      }
+    ]]));
+  test("translate sends through the messaging capability", undefined, () => thenSent(whenTranslated(givenTodo("c1", {
+    email: "a@b.c"
+  })), [welcome]));
+  test("translate answers with a command", undefined, () => thenCommand(whenTranslated(givenTodo("c1", {
+    email: "a@b.c"
+  })), "c1", {
+    TAG: "MarkWelcomed",
+    customerId: "c1"
+  }));
+  test("a failed attempt leaves the row Failed", undefined, () => thenTodoStatus(whenTranslated(givenCapabilities(givenTodo("c1", {
+    email: "a@b.c"
+  }), down)), "c1", "Failed"));
+  test("#Pending still reads as #Failed", undefined, () => thenTodoStatus(whenTranslated(givenCapabilities(givenTodo("c1", {
+    email: "a@b.c"
+  }), down)), "c1", "Pending"));
+  test("maxRetries failed attempts abandon the row", undefined, () => thenTodoStatus(whenTranslateRetrying(givenTodo("c1", {
+    email: "a@b.c"
+  }), undefined, async (param, param$1) => ({
+    TAG: "Error",
+    _0: "down"
+  })), "c1", "Abandoned"));
+  test("maxRetries attempts in all, as the runtime makes them", undefined, () => thenRetryRecorded(whenTranslateRetrying(givenTodo("c1", {
+    email: "a@b.c"
+  }), undefined, async (param, param$1) => ({
+    TAG: "Error",
+    _0: "down"
+  })), 2));
+  test("a throw is a failed attempt", undefined, () => thenTodoStatus(whenTranslateMocked(givenTodo("c1", {
+    email: "a@b.c"
+  }), async (param, param$1) => Stdlib_JsError.throwWithMessage("boom")), "c1", "Failed"));
+  test("exhausted: onExhausted is what the domain hears", undefined, () => thenCommand(whenExhausted(givenTodo("c1", {
+    email: "a@b.c"
+  }), "smtp down"), "c1", {
+    TAG: "MarkUnreachable",
+    customerId: "c1"
+  }));
+  test("nothing sent when the slice is never translated", undefined, () => thenNothingSent(whenExhausted(givenTodo("c1", {
+    email: "a@b.c"
+  }), undefined)));
+});
+
+let encItems = include.encItems;
+
+let commandPairJson = include.commandPairJson;
+
+let errorOf = include.errorOf;
+
+let fakes = include.fakes;
+
+let attemptWith = include.attemptWith;
+
+let attempts = include.attempts;
+
+let thenNoCommand = include.thenNoCommand;
+
+let statusName = include.statusName;
+
+export {
+  Welcome,
+  Welcome_Translation,
+  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,
+  down,
+  welcome,
+}
+/* consumedEventSchema Not a pure module */