@reventlessdev/reventless-aws 3.0.0-alpha.252 → 3.0.0-alpha.254

package/tests/Util_LogRetentionTest.res.mjs

@@ -0,0 +1,95 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Util_HostUiDomain$ReventlessAws from "../src/util/Util_HostUiDomain.res.mjs";
+import * as Util_LogRetention$ReventlessAws from "../src/util/Util_LogRetention.res.mjs";
+
+globalThis.describe("Util_LogRetention.retentionDaysFor", () => {
+  globalThis.test("prod keeps logs a year", () => {
+    globalThis.expect(Util_LogRetention$ReventlessAws.retentionDaysFor("prod", Util_HostUiDomain$ReventlessAws.defaultProdStacks, undefined)).toBe(365);
+  });
+  globalThis.test("'main' is production too, by the shared prod list", () => {
+    globalThis.expect(Util_LogRetention$ReventlessAws.retentionDaysFor("main", Util_HostUiDomain$ReventlessAws.defaultProdStacks, undefined)).toBe(365);
+  });
+  globalThis.test("beta keeps a month of pre-prod history", () => {
+    globalThis.expect(Util_LogRetention$ReventlessAws.retentionDaysFor("beta", Util_HostUiDomain$ReventlessAws.defaultProdStacks, undefined)).toBe(30);
+  });
+  globalThis.test("a PR stack keeps the minimum — torn down quickly", () => {
+    globalThis.expect(Util_LogRetention$ReventlessAws.retentionDaysFor("pr-1234", Util_HostUiDomain$ReventlessAws.defaultProdStacks, undefined)).toBe(3);
+  });
+  globalThis.test("alpha keeps a week — active development, consumed within hours", () => {
+    globalThis.expect(Util_LogRetention$ReventlessAws.retentionDaysFor("alpha", Util_HostUiDomain$ReventlessAws.defaultProdStacks, undefined)).toBe(7);
+  });
+  globalThis.test("an unlisted stack falls open to the dev tier", () => {
+    globalThis.expect(Util_LogRetention$ReventlessAws.retentionDaysFor("production", Util_HostUiDomain$ReventlessAws.defaultProdStacks, undefined)).toBe(7);
+  });
+  globalThis.test("adding it to the prod list is the fix", () => {
+    globalThis.expect(Util_LogRetention$ReventlessAws.retentionDaysFor("production", [
+      "prod",
+      "production"
+    ], undefined)).toBe(365);
+  });
+  globalThis.test("a config override wins over the tier default", () => {
+    globalThis.expect(Util_LogRetention$ReventlessAws.retentionDaysFor("alpha", Util_HostUiDomain$ReventlessAws.defaultProdStacks, 14)).toBe(14);
+  });
+  globalThis.test("0 = never expire is expressible via the override", () => {
+    globalThis.expect(Util_LogRetention$ReventlessAws.retentionDaysFor("prod", Util_HostUiDomain$ReventlessAws.defaultProdStacks, 0)).toBe(0);
+  });
+});
+
+globalThis.describe("Util_LogRetention.logLevelFor", () => {
+  globalThis.test("prod is quiet — info, no debug noise or payload leakage", () => {
+    globalThis.expect(Util_LogRetention$ReventlessAws.logLevelFor("prod", Util_HostUiDomain$ReventlessAws.defaultProdStacks, undefined)).toBe("info");
+  });
+  globalThis.test("beta mirrors prod so pre-prod behaves like prod", () => {
+    globalThis.expect(Util_LogRetention$ReventlessAws.logLevelFor("beta", Util_HostUiDomain$ReventlessAws.defaultProdStacks, undefined)).toBe("info");
+  });
+  globalThis.test("alpha is verbose — debug feedback during active development", () => {
+    globalThis.expect(Util_LogRetention$ReventlessAws.logLevelFor("alpha", Util_HostUiDomain$ReventlessAws.defaultProdStacks, undefined)).toBe("debug");
+  });
+  globalThis.test("a PR stack is verbose too", () => {
+    globalThis.expect(Util_LogRetention$ReventlessAws.logLevelFor("pr-7", Util_HostUiDomain$ReventlessAws.defaultProdStacks, undefined)).toBe("debug");
+  });
+  globalThis.test("a config override wins over the tier default", () => {
+    globalThis.expect(Util_LogRetention$ReventlessAws.logLevelFor("prod", Util_HostUiDomain$ReventlessAws.defaultProdStacks, "debug")).toBe("debug");
+  });
+});
+
+globalThis.describe("Util_LogRetention.managesLogGroup", () => {
+  globalThis.test("alpha is managed", () => {
+    globalThis.expect(Util_LogRetention$ReventlessAws.managesLogGroup("alpha", undefined)).toBe(true);
+  });
+  globalThis.test("a PR stack is managed", () => {
+    globalThis.expect(Util_LogRetention$ReventlessAws.managesLogGroup("pr-42", undefined)).toBe(true);
+  });
+  globalThis.test("prod is managed too — a fresh prod stack has no group to adopt", () => {
+    globalThis.expect(Util_LogRetention$ReventlessAws.managesLogGroup("prod", undefined)).toBe(true);
+  });
+  globalThis.test("beta is managed too", () => {
+    globalThis.expect(Util_LogRetention$ReventlessAws.managesLogGroup("beta", undefined)).toBe(true);
+  });
+  globalThis.test("a stack named in unmanagedLogGroupStacks is left auto-created", () => {
+    globalThis.expect(Util_LogRetention$ReventlessAws.managesLogGroup("legacy-prod", ["legacy-prod"])).toBe(false);
+  });
+  globalThis.test("only the named stacks are excluded — others stay managed", () => {
+    globalThis.expect(Util_LogRetention$ReventlessAws.managesLogGroup("alpha", ["legacy-prod"])).toBe(true);
+  });
+});
+
+globalThis.describe("Util_LogRetention.parseUnmanagedStacks", () => {
+  globalThis.test("empty config manages every stack", () => {
+    globalThis.expect(Util_LogRetention$ReventlessAws.parseUnmanagedStacks("")).toEqual([]);
+  });
+  globalThis.test("CSV is trimmed and empty entries dropped", () => {
+    globalThis.expect(Util_LogRetention$ReventlessAws.parseUnmanagedStacks(" legacy-prod , , old-beta ")).toEqual([
+      "legacy-prod",
+      "old-beta"
+    ]);
+  });
+});
+
+let prodStacks = Util_HostUiDomain$ReventlessAws.defaultProdStacks;
+
+export {
+  prodStacks,
+}
+/*  Not a pure module */

package/tests/Util_StoreLayoutTest.res

@@ -222,8 +222,84 @@ describe("Util_StoreLayout.bucketNameFor", () => {
 describe("Util_StoreLayout.keyPrefixFor", () => {
   // The assertion the whole dual-layout scheme rests on: a ref is
   // layout-independent, so the same declaration produces the same stored string
-  // on a per-store stack and a shared one.
-  testSync("the key prefix is the store name in both layouts", () =>
-    expect(Util_StoreLayout.keyPrefixFor(~store="productImages"))->toBe("productImages")
+  // on a per-store stack and a shared one. Plugin and store are both
+  // stack-invariant, so qualifying by plugin keeps that property.
+  testSync("the key prefix qualifies the store with its plugin", () =>
+    expect(Util_StoreLayout.keyPrefixFor(~plugin="Catalog", ~store="productImages"))->toBe(
+      "Catalog/productImages",
+    )
+  )
+
+  // The reason it is qualified: the prefix is a platform-global namespace (one
+  // distribution, one cache behavior per prefix), so two plugins declaring one
+  // store name were unroutable in EITHER layout until the plugin qualified them.
+  testSync("two plugins declaring one store name get distinct prefixes", () =>
+    expect(
+      Util_StoreLayout.keyPrefixFor(~plugin="Catalog", ~store="productImages") !=
+        Util_StoreLayout.keyPrefixFor(~plugin="Ordering", ~store="productImages"),
+    )->toBe(true)
+  )
+})
+
+describe("Util_StoreLayout.pendingExpiryFor", () => {
+  // The default is the whole point: expiry is the one step in the mechanism that
+  // deletes objects, and it is only sound once reconciliation has confirmed the
+  // tagged set is the unreferenced set. A store nobody named accumulates.
+  testSync("no config at all means no store expires anything", () =>
+    expect(
+      Util_StoreLayout.pendingExpiryFor(~config=None, ~store="Catalog.productImages"),
+    )->toEqual(None)
+  )
+
+  testSync("a store the config does not name expires nothing", () =>
+    expect(
+      Util_StoreLayout.pendingExpiryFor(
+        ~config=Some("Ordering.receipts=14"),
+        ~store="Catalog.productImages",
+      ),
+    )->toEqual(None)
+  )
+
+  testSync("a named store takes its own retention", () =>
+    expect(
+      Util_StoreLayout.pendingExpiryFor(
+        ~config=Some("Catalog.productImages=30"),
+        ~store="Catalog.productImages",
+      ),
+    )->toEqual(Some(30))
+  )
+
+  // Per store, one at a time — the plan's sequencing expressed in the setting.
+  testSync("stores are enabled independently, with their own values", () => {
+    let config = Some("Catalog.productImages=30, Ordering.receipts=14")
+    expect((
+      Util_StoreLayout.pendingExpiryFor(~config, ~store="Catalog.productImages"),
+      Util_StoreLayout.pendingExpiryFor(~config, ~store="Ordering.receipts"),
+      Util_StoreLayout.pendingExpiryFor(~config, ~store="Catalog.other"),
+    ))->toEqual((Some(30), Some(14), None))
+  })
+
+  // Guessing at what a typo meant, in the one setting that deletes objects, is
+  // not a service — an unreadable entry leaves the store accumulating.
+  testSync("a malformed or non-positive entry is ignored, not defaulted", () => {
+    let of_ = c => Util_StoreLayout.pendingExpiryFor(~config=Some(c), ~store="Catalog.productImages")
+    expect((
+      of_("Catalog.productImages"),
+      of_("Catalog.productImages="),
+      of_("Catalog.productImages=soon"),
+      of_("Catalog.productImages=0"),
+      of_("Catalog.productImages=-1"),
+    ))->toEqual((None, None, None, None, None))
+  })
+
+  // The prefix is a platform-global namespace, so two plugins' stores are
+  // distinct keys — enabling one must not enable the other.
+  testSync("a store name is matched whole, not by prefix", () =>
+    expect(
+      Util_StoreLayout.pendingExpiryFor(
+        ~config=Some("Catalog.productImages=30"),
+        ~store="Catalog.productImagesArchive",
+      ),
+    )->toEqual(None)
   )
 })

package/tests/Util_StoreLayoutTest.res.mjs

@@ -113,8 +113,53 @@ globalThis.describe("Util_StoreLayout.bucketNameFor", () => {
 });
 
 globalThis.describe("Util_StoreLayout.keyPrefixFor", () => {
-  globalThis.test("the key prefix is the store name in both layouts", () => {
-    globalThis.expect(Util_StoreLayout$ReventlessAws.keyPrefixFor("productImages")).toBe("productImages");
+  globalThis.test("the key prefix qualifies the store with its plugin", () => {
+    globalThis.expect(Util_StoreLayout$ReventlessAws.keyPrefixFor("Catalog", "productImages")).toBe("Catalog/productImages");
+  });
+  globalThis.test("two plugins declaring one store name get distinct prefixes", () => {
+    globalThis.expect(Util_StoreLayout$ReventlessAws.keyPrefixFor("Catalog", "productImages") !== Util_StoreLayout$ReventlessAws.keyPrefixFor("Ordering", "productImages")).toBe(true);
+  });
+});
+
+globalThis.describe("Util_StoreLayout.pendingExpiryFor", () => {
+  globalThis.test("no config at all means no store expires anything", () => {
+    globalThis.expect(Util_StoreLayout$ReventlessAws.pendingExpiryFor(undefined, "Catalog.productImages")).toEqual(undefined);
+  });
+  globalThis.test("a store the config does not name expires nothing", () => {
+    globalThis.expect(Util_StoreLayout$ReventlessAws.pendingExpiryFor("Ordering.receipts=14", "Catalog.productImages")).toEqual(undefined);
+  });
+  globalThis.test("a named store takes its own retention", () => {
+    globalThis.expect(Util_StoreLayout$ReventlessAws.pendingExpiryFor("Catalog.productImages=30", "Catalog.productImages")).toEqual(30);
+  });
+  globalThis.test("stores are enabled independently, with their own values", () => {
+    let config = "Catalog.productImages=30, Ordering.receipts=14";
+    globalThis.expect([
+      Util_StoreLayout$ReventlessAws.pendingExpiryFor(config, "Catalog.productImages"),
+      Util_StoreLayout$ReventlessAws.pendingExpiryFor(config, "Ordering.receipts"),
+      Util_StoreLayout$ReventlessAws.pendingExpiryFor(config, "Catalog.other")
+    ]).toEqual([
+      30,
+      14,
+      undefined
+    ]);
+  });
+  globalThis.test("a malformed or non-positive entry is ignored, not defaulted", () => {
+    globalThis.expect([
+      Util_StoreLayout$ReventlessAws.pendingExpiryFor("Catalog.productImages", "Catalog.productImages"),
+      Util_StoreLayout$ReventlessAws.pendingExpiryFor("Catalog.productImages=", "Catalog.productImages"),
+      Util_StoreLayout$ReventlessAws.pendingExpiryFor("Catalog.productImages=soon", "Catalog.productImages"),
+      Util_StoreLayout$ReventlessAws.pendingExpiryFor("Catalog.productImages=0", "Catalog.productImages"),
+      Util_StoreLayout$ReventlessAws.pendingExpiryFor("Catalog.productImages=-1", "Catalog.productImages")
+    ]).toEqual([
+      undefined,
+      undefined,
+      undefined,
+      undefined,
+      undefined
+    ]);
+  });
+  globalThis.test("a store name is matched whole, not by prefix", () => {
+    globalThis.expect(Util_StoreLayout$ReventlessAws.pendingExpiryFor("Catalog.productImages=30", "Catalog.productImagesArchive")).toEqual(undefined);
   });
 });