@reventlessdev/reventless-aws 3.0.0-alpha.346 → 3.0.0-alpha.347

package/tests/ProvisionAccountsTest.res.mjs

@@ -1,5 +1,8 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
+import * as Nodefs from "node:fs";
+import * as Nodeos from "node:os";
+import * as Nodepath from "node:path";
 import * as Stdlib_Dict from "@rescript/runtime/lib/es6/Stdlib_Dict.js";
 import * as Stdlib_Result from "@rescript/runtime/lib/es6/Stdlib_Result.js";
 import * as ProvisionAccounts$ReventlessAws from "../scripts/ProvisionAccounts.res.mjs";
@@ -145,6 +148,34 @@ globalThis.describe("ProvisionAccounts.looksLikeEmail", () => {
   });
 });
 
+globalThis.describe("ProvisionAccounts.provision", () => {
+  let manifest = `# the cast
+- username: shopper
+  password: ""
+  groups: [Shopper]
+`;
+  globalThis.test("a refused pool leaves the manifest untouched", async () => {
+    let dir = Nodefs.mkdtempSync(Nodepath.join(Nodeos.tmpdir(), "provision-accounts-"));
+    let file = Nodepath.join(dir, "users.yaml");
+    Nodefs.writeFileSync(file, manifest, "utf8");
+    let refuse = async (param, param$1) => ({
+      TAG: "Error",
+      _0: "pool signs in on email"
+    });
+    let outcome = await ProvisionAccounts$ReventlessAws.provision(file, "eu-west-1_Refuses", refuse);
+    let after = Nodefs.readFileSync(file, "utf8");
+    Nodefs.rmSync(dir, {
+      recursive: true,
+      force: true
+    });
+    globalThis.expect(outcome).toEqual({
+      TAG: "Error",
+      _0: "pool signs in on email"
+    });
+    globalThis.expect(after).toBe(manifest);
+  });
+});
+
 let Provision;
 
 export {

package/tests/Util_StoreLayoutTest.res

@@ -179,6 +179,12 @@ describe("Util_StoreLayout.protectionFor", () => {
   testSync("'prepare' is not a PR stack — the prefix is 'pr-', not 'pr'", () =>
     expect(Util_StoreLayout.protectionFor(~stack="prepare"))->toEqual(Util_StoreLayout.Protected)
   )
+
+  testSync("a stack declared disposable is unprotected whatever its name", () =>
+    expect(Util_StoreLayout.protectionFor(~stack="dev", ~disposable=true))->toEqual(
+      Util_StoreLayout.Unprotected,
+    )
+  )
 })
 
 describe("Util_StoreLayout.bucketNameFor", () => {

package/tests/Util_StoreLayoutTest.res.mjs

@@ -87,16 +87,19 @@ globalThis.describe("Util_StoreLayout.coverageFor", () => {
 globalThis.describe("Util_StoreLayout.protectionFor", () => {
   globalThis.test("alpha shares a bucket and is still protected", () => {
     globalThis.expect(Util_StoreLayout$ReventlessAws.layoutFor("alpha", Util_HostUiDomain$ReventlessAws.defaultProdStacks)).toEqual("SharedBucket");
-    globalThis.expect(Util_StoreLayout$ReventlessAws.protectionFor("alpha", undefined)).toEqual("Protected");
+    globalThis.expect(Util_StoreLayout$ReventlessAws.protectionFor("alpha", undefined, undefined)).toEqual("Protected");
   });
   globalThis.test("prod is protected", () => {
-    globalThis.expect(Util_StoreLayout$ReventlessAws.protectionFor("prod", undefined)).toEqual("Protected");
+    globalThis.expect(Util_StoreLayout$ReventlessAws.protectionFor("prod", undefined, undefined)).toEqual("Protected");
   });
   globalThis.test("a PR stack is unprotected so teardown does not leak buckets", () => {
-    globalThis.expect(Util_StoreLayout$ReventlessAws.protectionFor("pr-42", undefined)).toEqual("Unprotected");
+    globalThis.expect(Util_StoreLayout$ReventlessAws.protectionFor("pr-42", undefined, undefined)).toEqual("Unprotected");
   });
   globalThis.test("'prepare' is not a PR stack — the prefix is 'pr-', not 'pr'", () => {
-    globalThis.expect(Util_StoreLayout$ReventlessAws.protectionFor("prepare", undefined)).toEqual("Protected");
+    globalThis.expect(Util_StoreLayout$ReventlessAws.protectionFor("prepare", undefined, undefined)).toEqual("Protected");
+  });
+  globalThis.test("a stack declared disposable is unprotected whatever its name", () => {
+    globalThis.expect(Util_StoreLayout$ReventlessAws.protectionFor("dev", true, undefined)).toEqual("Unprotected");
   });
 });
 

package/tests/dcbColdStartPartition.mjs

@@ -0,0 +1,66 @@
+// Harness for DcbColdStartPartitionTest.
+//
+// Startup runs when the entry point is first imported, reading HANDLER_CONFIG from
+// the environment — so the failed-startup case has to set it before that import,
+// which only plain ESM can do. The assertions stay in the .res test.
+
+const ENTRY = "../src/adapter/Runtime/DcbCommandTopicEntryPoint.mjs";
+
+const baseConfig = {
+  pluginName: "ColdStartTestPlugin",
+  dcbEventLogTableName: "cold-start-test-table",
+  queueUrl: "https://sqs.eu-west-1.amazonaws.com/000000000000/cold-start-test-queue",
+  inboundTranslationSliceModules: [],
+};
+
+const messageOf = (err) => (err instanceof Error ? err.message : String(err));
+
+// Imports the entry point with a registry it cannot load, then calls `handler`
+// twice. Returns both rejection messages and any rejection nobody handled.
+export async function invokeAfterFailedStartup() {
+  const unhandled = [];
+  const onUnhandled = (reason) => unhandled.push(messageOf(reason));
+  process.on("unhandledRejection", onUnhandled);
+  process.env.HANDLER_CONFIG = JSON.stringify({
+    ...baseConfig,
+    stateChangeSliceModules: [{ spec: "cold-start-test/missing-spec.mjs", behavior: "cold-start-test/missing-behavior.mjs" }],
+  });
+  try {
+    const { handler } = await import(ENTRY);
+    // Let the startup rejection settle before anyone awaits it.
+    await new Promise((resolve) => setTimeout(resolve, 50));
+    const messages = [];
+    for (let i = 0; i < 2; i++) {
+      try {
+        await handler({ Records: [] }, { awsRequestId: `call-${i}` });
+        messages.push("resolved");
+      } catch (err) {
+        messages.push(messageOf(err));
+      }
+    }
+    return { messages, unhandled };
+  } finally {
+    delete process.env.HANDLER_CONFIG;
+    process.off("unhandledRejection", onUnhandled);
+  }
+}
+
+// Builds the handlers for a boundary holding one slice whose partition cannot be
+// inferred. Returns the rejection message, or "started".
+export async function startWithUnresolvedSlice() {
+  const { buildHandlersForConfig } = await import(ENTRY);
+  const loadModule = async (specifier) => {
+    if (specifier === "cold-start-test://spec") return await import("./DcbUnresolvedPartitionSlice.res.mjs");
+    if (specifier === "cold-start-test://behavior") return {};
+    throw new Error("unknown test specifier: " + specifier);
+  };
+  try {
+    await buildHandlersForConfig(
+      { ...baseConfig, stateChangeSliceModules: [{ spec: "cold-start-test://spec", behavior: "cold-start-test://behavior" }] },
+      { loadModule },
+    );
+    return "started";
+  } catch (err) {
+    return messageOf(err);
+  }
+}

package/tests/setup/layerArn.cjs

@@ -0,0 +1,5 @@
+// A deploy stops when no Reventless layer is found, and these suites create
+// functions — some at import time — so they get a stand-in rather than a lookup
+// in whatever AWS account the shell happens to reach.
+process.env.REVENTLESS_LAYER_ARN =
+  "arn:aws:lambda:eu-central-1:000000000000:layer:reventless-test:1";