@reventlessdev/reventless-aws 3.0.0-alpha.259 → 3.0.0-alpha.260

package/tests/Util_ShellConfigTest.res

@@ -0,0 +1,78 @@
+open JestGlobals
+
+// The host shell reads config.json by key name, and every failure here is a
+// silent one: a missing key deletes a feature with nothing in any log, and a
+// key overwritten by a passthrough points the app at the wrong API. Both are
+// only assertable because `fields` is pure.
+
+let computed = [
+  ("apiEndpoint", JSON.Encode.string("https://domain.example/graphql")),
+  ("region", JSON.Encode.string("eu-west-1")),
+]
+
+let get = (out, key) => out->Dict.get(key)->Option.getOr(JSON.Encode.null)
+
+describe("Util_ShellConfig.fields — viewModes", () => {
+  testSync("unset ⇒ no viewModes key and the computed set is untouched", () => {
+    let out = Util_ShellConfig.fields(~computed)
+    expect(out->Dict.keysToArray)->toEqual(["apiEndpoint", "region"])
+    expect(out->Dict.get("viewModes")->Option.isNone)->toBe(true)
+  })
+
+  testSync("Map with defaults ⇒ the mode, and no mapStyle key", () => {
+    let out = Util_ShellConfig.fields(~computed, ~viewModes=[Map({})])
+    expect(out->get("viewModes"))->toEqual(JSON.Encode.array([JSON.Encode.string("map")]))
+    expect(out->Dict.get("mapStyle")->Option.isNone)->toBe(true)
+  })
+
+  testSync("per-mode options flatten beside the mode", () => {
+    let out = Util_ShellConfig.fields(
+      ~computed,
+      ~viewModes=[Map({style: "https://tiles.example/style.json"}), Graph({layout: "dagre"})],
+    )
+    expect(out->get("viewModes"))->toEqual(
+      JSON.Encode.array([JSON.Encode.string("map"), JSON.Encode.string("graph")]),
+    )
+    expect(out->get("mapStyle"))->toEqual(
+      JSON.Encode.string("https://tiles.example/style.json"),
+    )
+    expect(out->get("graphLayout"))->toEqual(JSON.Encode.string("dagre"))
+  })
+})
+
+describe("Util_ShellConfig.fields — shellConfig passthrough", () => {
+  testSync("shell-owned keys land verbatim, under the computed ones", () => {
+    let out = Util_ShellConfig.fields(
+      ~computed,
+      ~shellConfig=Dict.fromArray([
+        ("platformName", JSON.Encode.string("Online Shop")),
+        ("accessTiers", JSON.Encode.array([JSON.Encode.string("public")])),
+      ]),
+    )
+    expect(out->Dict.keysToArray)->toEqual([
+      "apiEndpoint",
+      "region",
+      "platformName",
+      "accessTiers",
+    ])
+    expect(out->get("platformName"))->toEqual(JSON.Encode.string("Online Shop"))
+  })
+
+  testSync("a key the deploy computes fails the deploy, naming it", () => {
+    let failure = try {
+      let _ = Util_ShellConfig.fields(
+        ~computed,
+        ~shellConfig=Dict.fromArray([
+          ("apiEndpoint", JSON.Encode.string("https://wrong.example/graphql")),
+        ]),
+      )
+      None
+    } catch {
+    | Failure(message) => Some(message)
+    }
+    switch failure {
+    | Some(message) => expect(message->String.includes("apiEndpoint"))->toBe(true)
+    | None => fail("a shellConfig key colliding with a computed one must fail the deploy")
+    }
+  })
+})

package/tests/Util_ShellConfigTest.res.mjs

@@ -0,0 +1,113 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as JestGlobals from "@reventlessdev/rescript-jest/src/JestGlobals.res.mjs";
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as Primitive_exceptions from "@rescript/runtime/lib/es6/Primitive_exceptions.js";
+import * as Util_ShellConfig$ReventlessAws from "../src/util/Util_ShellConfig.res.mjs";
+
+let computed = [
+  [
+    "apiEndpoint",
+    "https://domain.example/graphql"
+  ],
+  [
+    "region",
+    "eu-west-1"
+  ]
+];
+
+function get(out, key) {
+  return Stdlib_Option.getOr(out[key], null);
+}
+
+globalThis.describe("Util_ShellConfig.fields — viewModes", () => {
+  globalThis.test("unset ⇒ no viewModes key and the computed set is untouched", () => {
+    let out = Util_ShellConfig$ReventlessAws.fields(computed, undefined, undefined);
+    globalThis.expect(Object.keys(out)).toEqual([
+      "apiEndpoint",
+      "region"
+    ]);
+    globalThis.expect(Stdlib_Option.isNone(out["viewModes"])).toBe(true);
+  });
+  globalThis.test("Map with defaults ⇒ the mode, and no mapStyle key", () => {
+    let out = Util_ShellConfig$ReventlessAws.fields(computed, [{
+        TAG: "Map",
+        _0: {}
+      }], undefined);
+    globalThis.expect(get(out, "viewModes")).toEqual(["map"]);
+    globalThis.expect(Stdlib_Option.isNone(out["mapStyle"])).toBe(true);
+  });
+  globalThis.test("per-mode options flatten beside the mode", () => {
+    let out = Util_ShellConfig$ReventlessAws.fields(computed, [
+      {
+        TAG: "Map",
+        _0: {
+          style: "https://tiles.example/style.json"
+        }
+      },
+      {
+        TAG: "Graph",
+        _0: {
+          layout: "dagre"
+        }
+      }
+    ], undefined);
+    globalThis.expect(get(out, "viewModes")).toEqual([
+      "map",
+      "graph"
+    ]);
+    globalThis.expect(get(out, "mapStyle")).toEqual("https://tiles.example/style.json");
+    globalThis.expect(get(out, "graphLayout")).toEqual("dagre");
+  });
+});
+
+globalThis.describe("Util_ShellConfig.fields — shellConfig passthrough", () => {
+  globalThis.test("shell-owned keys land verbatim, under the computed ones", () => {
+    let out = Util_ShellConfig$ReventlessAws.fields(computed, undefined, Object.fromEntries([
+      [
+        "platformName",
+        "Online Shop"
+      ],
+      [
+        "accessTiers",
+        ["public"]
+      ]
+    ]));
+    globalThis.expect(Object.keys(out)).toEqual([
+      "apiEndpoint",
+      "region",
+      "platformName",
+      "accessTiers"
+    ]);
+    globalThis.expect(get(out, "platformName")).toEqual("Online Shop");
+  });
+  globalThis.test("a key the deploy computes fails the deploy, naming it", () => {
+    let failure;
+    try {
+      Util_ShellConfig$ReventlessAws.fields(computed, undefined, Object.fromEntries([[
+          "apiEndpoint",
+          "https://wrong.example/graphql"
+        ]]));
+      failure = undefined;
+    } catch (raw_message) {
+      let message = Primitive_exceptions.internalToException(raw_message);
+      if (message.RE_EXN_ID === "Failure") {
+        failure = message._1;
+      } else {
+        throw message;
+      }
+    }
+    if (failure !== undefined) {
+      globalThis.expect(failure.includes("apiEndpoint")).toBe(true);
+      return;
+    } else {
+      return JestGlobals.fail("a shellConfig key colliding with a computed one must fail the deploy");
+    }
+  });
+});
+
+export {
+  computed,
+  get,
+}
+/*  Not a pure module */