@reventlessdev/reventless-gwt 1.0.0-alpha.74

package/src/Automation_GWT.res.mjs

@@ -0,0 +1,160 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.res.mjs";
+import * as Stdlib_Array from "@rescript/runtime/lib/es6/Stdlib_Array.js";
+import * as Primitive_object from "@rescript/runtime/lib/es6/Primitive_object.js";
+import * as Primitive_option from "@rescript/runtime/lib/es6/Primitive_option.js";
+import * as Outcome$ReventlessGwt from "./Outcome.res.mjs";
+import * as JestBind$ReventlessGwt from "./JestBind.res.mjs";
+import * as Message$ReventlessCore from "@reventlessdev/reventless-core/src/Message.res.mjs";
+
+function Make(Spec) {
+  S.enableJson();
+  let test = (name, body) => JestBind$ReventlessGwt.test(Spec.name, name, body);
+  let encTodos = arr => arr.map(param => [
+    param[0],
+    Message$ReventlessCore.encode(param[1], Spec.todoItemSchema)
+  ]);
+  let givenEvent = e => e;
+  let whenCollect = e => Spec.collect(e);
+  let thenTodos = (actual, expected) => {
+    if (Primitive_object.equal(actual, expected)) {
+      return Outcome$ReventlessGwt.pass;
+    } else {
+      return Outcome$ReventlessGwt.fail({
+        TAG: "TodoMismatch",
+        expected: encTodos(expected),
+        actual: encTodos(actual)
+      });
+    }
+  };
+  let whenResolve = e => Spec.resolve(e);
+  let thenResolved = (actual, expected) => {
+    if (Primitive_object.equal(actual, expected)) {
+      return Outcome$ReventlessGwt.pass;
+    }
+    let asPair = opt => {
+      if (opt !== undefined) {
+        return [[
+            Primitive_option.valFromOption(opt),
+            null
+          ]];
+      } else {
+        return [];
+      }
+    };
+    return Outcome$ReventlessGwt.fail({
+      TAG: "TodoMismatch",
+      expected: asPair(expected),
+      actual: asPair(actual)
+    });
+  };
+  let givenTodo = (id, todo) => [
+    id,
+    todo
+  ];
+  let whenProcess = param => Spec.process(param[0], param[1]);
+  let thenCommand = (actual, expectedId, expectedCmd) => {
+    if (actual !== undefined) {
+      let cmd = actual[1];
+      let id = actual[0];
+      if (id === expectedId && Primitive_object.equal(cmd, expectedCmd)) {
+        return Outcome$ReventlessGwt.pass;
+      }
+      let obj = (rid, rcmd) => {
+        let d = {};
+        d["id"] = rid;
+        d["command"] = Message$ReventlessCore.encode(rcmd, Spec.commandSchema);
+        return d;
+      };
+      return Outcome$ReventlessGwt.fail({
+        TAG: "EventsMismatch",
+        expected: [obj(expectedId, expectedCmd)],
+        actual: [obj(id, cmd)]
+      });
+    }
+    let obj$1 = (rid, rcmd) => {
+      let d = {};
+      d["id"] = rid;
+      d["command"] = Message$ReventlessCore.encode(rcmd, Spec.commandSchema);
+      return d;
+    };
+    return Outcome$ReventlessGwt.fail({
+      TAG: "EventsMismatch",
+      expected: [obj$1(expectedId, expectedCmd)],
+      actual: []
+    });
+  };
+  let thenNoCommand = actual => {
+    if (actual === undefined) {
+      return Outcome$ReventlessGwt.pass;
+    }
+    let d = {};
+    d["id"] = actual[0];
+    d["command"] = Message$ReventlessCore.encode(actual[1], Spec.commandSchema);
+    return Outcome$ReventlessGwt.fail({
+      TAG: "NoEventExpected",
+      actual: [d]
+    });
+  };
+  let givenEvents = es => es;
+  let whenSweep = events => {
+    let collected = events.map(e => Spec.collect(e)).flat();
+    let resolvedIds = Stdlib_Array.filterMap(events, e => Spec.resolve(e));
+    let pending = collected.filter(param => !resolvedIds.includes(param[0]));
+    let commands = Stdlib_Array.filterMap(pending, param => Spec.process(param[0], param[1]));
+    return {
+      todos: pending,
+      commands: commands
+    };
+  };
+  let thenCommands = (scenario, expected) => {
+    if (Primitive_object.equal(scenario.commands, expected)) {
+      return Outcome$ReventlessGwt.pass;
+    }
+    let toJsonPairs = arr => arr.map(param => {
+      let d = {};
+      d["id"] = param[0];
+      d["command"] = Message$ReventlessCore.encode(param[1], Spec.commandSchema);
+      return d;
+    });
+    return Outcome$ReventlessGwt.fail({
+      TAG: "EventsMismatch",
+      expected: toJsonPairs(expected),
+      actual: toJsonPairs(scenario.commands)
+    });
+  };
+  let andThenEvents = (scenario, events) => {
+    let resolvedIds = Stdlib_Array.filterMap(events, e => Spec.resolve(e));
+    let remaining = scenario.todos.filter(param => !resolvedIds.includes(param[0]));
+    return {
+      todos: remaining,
+      commands: scenario.commands
+    };
+  };
+  let thenScenarioTodos = (scenario, expected) => thenTodos(scenario.todos, expected);
+  return {
+    Spec: Spec,
+    describe: JestBind$ReventlessGwt.describe,
+    test: test,
+    givenEvent: givenEvent,
+    whenCollect: whenCollect,
+    thenTodos: thenTodos,
+    whenResolve: whenResolve,
+    thenResolved: thenResolved,
+    givenTodo: givenTodo,
+    whenProcess: whenProcess,
+    thenCommand: thenCommand,
+    thenNoCommand: thenNoCommand,
+    givenEvents: givenEvents,
+    whenSweep: whenSweep,
+    thenCommands: thenCommands,
+    andThenEvents: andThenEvents,
+    thenScenarioTodos: thenScenarioTodos
+  };
+}
+
+export {
+  Make,
+}
+/* S Not a pure module */