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

package/tests/Geocoder_AwsLocation_OpsTest.res.mjs

@@ -0,0 +1,71 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Stdlib_Dict from "@rescript/runtime/lib/es6/Stdlib_Dict.js";
+import * as Geocoder_AwsLocation_Ops$ReventlessAws from "../src/adapter/Geocoder/Geocoder_AwsLocation_Ops.res.mjs";
+
+function setIndex(v) {
+  process.env["PLACE_INDEX_NAME"] = v;
+}
+
+function clearIndex() {
+  Stdlib_Dict.$$delete(process.env, "PLACE_INDEX_NAME");
+}
+
+globalThis.describe("Geocoder_AwsLocation_Ops.handler status contract", () => {
+  globalThis.test("an unset PLACE_INDEX_NAME is a service failure, not a verdict", async () => {
+    Stdlib_Dict.$$delete(process.env, "PLACE_INDEX_NAME");
+    let resp = await Geocoder_AwsLocation_Ops$ReventlessAws.handler({
+      queryStringParameters: Object.fromEntries([[
+          "q",
+          "10 Downing Street"
+        ]])
+    });
+    globalThis.expect(resp.statusCode).toBe(502);
+    globalThis.expect(resp.body).toBe("[]");
+  });
+  globalThis.test("an empty query is an answer — nothing was asked", async () => {
+    setIndex("some-index");
+    let resp = await Geocoder_AwsLocation_Ops$ReventlessAws.handler({
+      queryStringParameters: Object.fromEntries([[
+          "q",
+          ""
+        ]])
+    });
+    globalThis.expect(resp.statusCode).toBe(200);
+    globalThis.expect(resp.body).toBe("[]");
+    return Stdlib_Dict.$$delete(process.env, "PLACE_INDEX_NAME");
+  });
+  globalThis.test("a missing q param is treated as an empty one", async () => {
+    setIndex("some-index");
+    let resp = await Geocoder_AwsLocation_Ops$ReventlessAws.handler({});
+    globalThis.expect(resp.statusCode).toBe(200);
+    return Stdlib_Dict.$$delete(process.env, "PLACE_INDEX_NAME");
+  });
+});
+
+globalThis.describe("Geocoder_AwsLocation_Ops.readQueryParam", () => {
+  globalThis.test("prefers the parsed params", () => {
+    globalThis.expect(Geocoder_AwsLocation_Ops$ReventlessAws.readQueryParam({
+      queryStringParameters: Object.fromEntries([[
+          "q",
+          "Berlin"
+        ]])
+    })).toEqual("Berlin");
+  });
+  globalThis.test("falls back to the raw query string, percent-decoded", () => {
+    globalThis.expect(Geocoder_AwsLocation_Ops$ReventlessAws.readQueryParam({
+      rawQueryString: "lang=en&q=10%20Downing%20Street"
+    })).toEqual("10 Downing Street");
+  });
+  globalThis.test("no q anywhere is None", () => {
+    globalThis.expect(Geocoder_AwsLocation_Ops$ReventlessAws.readQueryParam({
+      rawQueryString: "lang=en"
+    })).toEqual(undefined);
+  });
+});
+
+export {
+  setIndex,
+  clearIndex,
+}
+/*  Not a pure module */

package/tests/Util_DcbMetricsTest.res

@@ -0,0 +1,35 @@
+open JestGlobals
+
+// The rule that matters is CloudWatch's, not ours: a metric transformation may carry
+// `dimensions` OR `defaultValue`, never both. Violating it is not caught at compile
+// time — both fields are optional in the binding — and not caught at deploy time
+// either unless the stack happens to have a managed log group for the filter to
+// attach to. So it is asserted here.
+
+describe("Util_DcbMetrics.transformationFor", () => {
+  testSync("never sets defaultValue — it is mutually exclusive with dimensions", () =>
+    Util_DcbMetrics.metricNames->Array.forEach(m =>
+      expect(Util_DcbMetrics.transformationFor(m).defaultValue)->toBe(None)
+    )
+  )
+
+  testSync("dimensions the metric by slice", () =>
+    expect(
+      Util_DcbMetrics.transformationFor("AppendRetry").dimensions->Option.isSome,
+    )->toBe(true)
+  )
+
+  testSync("counts into the DCB namespace", () =>
+    expect(Util_DcbMetrics.transformationFor("AppendRetry").namespace)->toBe("Reventless/DCB")
+  )
+
+  testSync("names the metric after the emitted marker", () =>
+    expect(Util_DcbMetrics.transformationFor("AppendConflict").name)->toBe("AppendConflict")
+  )
+})
+
+describe("Util_DcbMetrics.patternFor", () => {
+  testSync("selects one metric's lines by its marker", () =>
+    expect(Util_DcbMetrics.patternFor("AppendRetry"))->toBe(`{ $.reventlessMetric = "AppendRetry" }`)
+  )
+})

package/tests/Util_DcbMetricsTest.res.mjs

@@ -0,0 +1,29 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as Util_DcbMetrics$ReventlessAws from "../src/util/Util_DcbMetrics.res.mjs";
+
+globalThis.describe("Util_DcbMetrics.transformationFor", () => {
+  globalThis.test("never sets defaultValue — it is mutually exclusive with dimensions", () => {
+    Util_DcbMetrics$ReventlessAws.metricNames.forEach(m => {
+      globalThis.expect(Util_DcbMetrics$ReventlessAws.transformationFor(m).defaultValue).toBe(undefined);
+    });
+  });
+  globalThis.test("dimensions the metric by slice", () => {
+    globalThis.expect(Stdlib_Option.isSome(Util_DcbMetrics$ReventlessAws.transformationFor("AppendRetry").dimensions)).toBe(true);
+  });
+  globalThis.test("counts into the DCB namespace", () => {
+    globalThis.expect(Util_DcbMetrics$ReventlessAws.transformationFor("AppendRetry").namespace).toBe("Reventless/DCB");
+  });
+  globalThis.test("names the metric after the emitted marker", () => {
+    globalThis.expect(Util_DcbMetrics$ReventlessAws.transformationFor("AppendConflict").name).toBe("AppendConflict");
+  });
+});
+
+globalThis.describe("Util_DcbMetrics.patternFor", () => {
+  globalThis.test("selects one metric's lines by its marker", () => {
+    globalThis.expect(Util_DcbMetrics$ReventlessAws.patternFor("AppendRetry")).toBe(`{ $.reventlessMetric = "AppendRetry" }`);
+  });
+});
+
+/*  Not a pure module */

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 */