@reventlessdev/reventless-aws 3.0.0-alpha.419 → 3.0.0-alpha.421

package/tests/Util_DeadLetterHandlerTest.res

@@ -0,0 +1,78 @@
+open JestGlobals
+
+module H = Util_DeadLetterHandler
+
+// A dead letter writes one full line on its first delivery here and a short one on every
+// redelivery. A message moved here by a redrive policy keeps its receive count, so its first
+// delivery reports `maxReceiveCount + 1`; reading only 1 as first meant the full line was
+// never written for any of them.
+
+let recordWith = (~receiveCount: int): H.record => {
+  messageId: "m-1",
+  body: `{"command":{"TAG":"Heartbeat"}}`,
+  attributes: Dict.fromArray([
+    ("ApproximateReceiveCount", Int.toString(receiveCount)),
+    ("DeadLetterQueueSourceArn", "arn:aws:sqs:eu-west-1:1:CmdTopic"),
+  ]),
+}
+
+let isItem = line => line->String.startsWith("DEAD LETTER ITEM:")
+
+describe("the dead-letter handler's line", () => {
+  testSync("is the full one when a redriven message first arrives", () => {
+    let line = H.lineOf(recordWith(~receiveCount=H.maxReceiveCount + 1))
+    expect((isItem(line), line->String.includes("kind=Heartbeat")))->toEqual((true, true))
+  })
+
+  testSync("is the full one for a message sent here directly", () =>
+    expect(isItem(H.lineOf(recordWith(~receiveCount=1))))->toBe(true)
+  )
+
+  testSync("is the short one on a redelivery", () => {
+    let line = H.lineOf(recordWith(~receiveCount=H.maxReceiveCount + 2))
+    expect((
+      line->String.startsWith("DEAD LETTER REDELIVERY:"),
+      line->String.includes("kind="),
+    ))->toEqual((true, false))
+  })
+
+  testSync("names an unreadable body's kind unknown, and never writes the body", () => {
+    let line = H.lineOf({
+      messageId: "m-2",
+      body: "not json, about a person",
+      attributes: Dict.make(),
+    })
+    expect((
+      line->String.includes("kind=unknown"),
+      line->String.includes("about a person"),
+    ))->toEqual((true, false))
+  })
+})
+
+describe("the dead-letter handler", () => {
+  test("fails on purpose, so the messages stay on the queue", async () => {
+    let failed = switch await H.handler({records: [recordWith(~receiveCount=6)]}) {
+    | () => false
+    | exception _ => true
+    }
+    expect(failed)->toBe(true)
+  })
+
+  // The function ships the compiled file alone, so it must import nothing.
+  testSync("compiles to a file that imports nothing", () => {
+    let text = NodeFs.readFileSync(
+      NodePath.join([
+        NodePath.dirname(NodeUrl.fileURLToPath(%raw("import.meta.url"))),
+        "..",
+        "src",
+        "util",
+        "Util_DeadLetterHandler.res.mjs",
+      ]),
+    )
+    expect(
+      text
+      ->String.split("\n")
+      ->Array.some(l => l->String.startsWith("import ") || l->String.includes("require(")),
+    )->toBe(false)
+  })
+})

package/tests/Util_DeadLetterHandlerTest.res.mjs

@@ -0,0 +1,101 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Nodefs from "node:fs";
+import * as Nodeurl from "node:url";
+import * as Nodepath from "node:path";
+import * as Util_DeadLetterHandler$ReventlessAws from "../src/util/Util_DeadLetterHandler.res.mjs";
+
+function recordWith(receiveCount) {
+  return {
+    messageId: "m-1",
+    body: `{"command":{"TAG":"Heartbeat"}}`,
+    attributes: Object.fromEntries([
+      [
+        "ApproximateReceiveCount",
+        receiveCount.toString()
+      ],
+      [
+        "DeadLetterQueueSourceArn",
+        "arn:aws:sqs:eu-west-1:1:CmdTopic"
+      ]
+    ])
+  };
+}
+
+function isItem(line) {
+  return line.startsWith("DEAD LETTER ITEM:");
+}
+
+globalThis.describe("the dead-letter handler's line", () => {
+  globalThis.test("is the full one when a redriven message first arrives", () => {
+    let line = Util_DeadLetterHandler$ReventlessAws.lineOf(recordWith(Util_DeadLetterHandler$ReventlessAws.maxReceiveCount + 1 | 0));
+    globalThis.expect([
+      line.startsWith("DEAD LETTER ITEM:"),
+      line.includes("kind=Heartbeat")
+    ]).toEqual([
+      true,
+      true
+    ]);
+  });
+  globalThis.test("is the full one for a message sent here directly", () => {
+    globalThis.expect(Util_DeadLetterHandler$ReventlessAws.lineOf(recordWith(1)).startsWith("DEAD LETTER ITEM:")).toBe(true);
+  });
+  globalThis.test("is the short one on a redelivery", () => {
+    let line = Util_DeadLetterHandler$ReventlessAws.lineOf(recordWith(Util_DeadLetterHandler$ReventlessAws.maxReceiveCount + 2 | 0));
+    globalThis.expect([
+      line.startsWith("DEAD LETTER REDELIVERY:"),
+      line.includes("kind=")
+    ]).toEqual([
+      true,
+      false
+    ]);
+  });
+  globalThis.test("names an unreadable body's kind unknown, and never writes the body", () => {
+    let line = Util_DeadLetterHandler$ReventlessAws.lineOf({
+      messageId: "m-2",
+      body: "not json, about a person",
+      attributes: {}
+    });
+    globalThis.expect([
+      line.includes("kind=unknown"),
+      line.includes("about a person")
+    ]).toEqual([
+      true,
+      false
+    ]);
+  });
+});
+
+globalThis.describe("the dead-letter handler", () => {
+  globalThis.test("fails on purpose, so the messages stay on the queue", async () => {
+    let failed;
+    try {
+      await Util_DeadLetterHandler$ReventlessAws.handler({
+        Records: [recordWith(6)]
+      });
+      failed = false;
+    } catch (exn) {
+      failed = true;
+    }
+    globalThis.expect(failed).toBe(true);
+  });
+  globalThis.test("compiles to a file that imports nothing", () => {
+    let text = Nodefs.readFileSync(Nodepath.join(Nodepath.dirname(Nodeurl.fileURLToPath(import.meta.url)), "..", "src", "util", "Util_DeadLetterHandler.res.mjs"), "utf8");
+    globalThis.expect(text.split("\n").some(l => {
+      if (l.startsWith("import ")) {
+        return true;
+      } else {
+        return l.includes("require(");
+      }
+    })).toBe(false);
+  });
+});
+
+let H;
+
+export {
+  H,
+  recordWith,
+  isItem,
+}
+/*  Not a pure module */