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

package/tests/Util_OwnerScopeEnvTest.res.mjs

@@ -1,6 +1,8 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
+import * as Stdlib_Dict from "@rescript/runtime/lib/es6/Stdlib_Dict.js";
 import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as AdminGroup$Reventless from "@reventlessdev/reventless-spec/src/types/AdminGroup.res.mjs";
 import * as OwnerScope$Reventless from "@reventlessdev/reventless-spec/src/types/OwnerScope.res.mjs";
 import * as Util_OwnerScopeEnv$ReventlessAws from "../src/util/Util_OwnerScopeEnv.res.mjs";
 
@@ -54,6 +56,17 @@ globalThis.describe("Util_OwnerScopeEnv — the elevated-groups carrier", () =>
     withElevated([], () => Util_OwnerScopeEnv$ReventlessAws.applyElevatedGroupsDefault(variables));
     globalThis.expect(Stdlib_Option.isNone(variables[Util_OwnerScopeEnv$ReventlessAws.key])).toBe(true);
   });
+  globalThis.test("the platform's administrator default reaches a composed environment", () => {
+    OwnerScope$Reventless.clearElevatedGroups();
+    Stdlib_Dict.$$delete(process.env, Util_OwnerScopeEnv$ReventlessAws.key);
+    OwnerScope$Reventless.defaultElevatedGroups([AdminGroup$Reventless.name]);
+    let variables = {};
+    Util_OwnerScopeEnv$ReventlessAws.applyElevatedGroupsDefault(variables);
+    let value = variables[Util_OwnerScopeEnv$ReventlessAws.key];
+    let encoded = value !== undefined ? value : "";
+    OwnerScope$Reventless.clearElevatedGroups();
+    globalThis.expect(OwnerScope$Reventless.parseElevatedGroups(encoded)).toEqual([AdminGroup$Reventless.name]);
+  });
 });
 
 export {

package/tests/Util_SQS_RuntimeTest.res

@@ -1,8 +1,7 @@
 open JestGlobals
 
 let shortId = "environment:alpha#platformName:online-shop#pluginName:Catalog"
-let longId =
-  "componentName:DcbEventLog#environment:alpha#platformName:online-shop-platform-aws#pluginName:Catalog#resourceName:CatalogDcbEventLog-428c0a8"
+let longId = "componentName:DcbEventLog#environment:alpha#platformName:online-shop-platform-aws#pluginName:Catalog#resourceName:CatalogDcbEventLog-428c0a8"
 
 describe("Util_SQS_Runtime.safeGroupId", () => {
   testSync("returns id unchanged when ≤ 128 chars", () => {
@@ -19,12 +18,11 @@ describe("Util_SQS_Runtime.safeGroupId", () => {
   })
 
   testSync("returns different hashes for different long ids", () => {
-    let longId2 =
-      "componentName:Products#environment:alpha#platformName:online-shop-platform-aws#pluginName:Catalog#resourceName:ProductsTable-abc1234"
+    let longId2 = "componentName:Products#environment:alpha#platformName:online-shop-platform-aws#pluginName:Catalog#resourceName:ProductsTable-abc1234"
     expect(longId2->String.length > 128)->toBe(true)
-    expect(
-      Util_SQS_Runtime.safeGroupId(longId) == Util_SQS_Runtime.safeGroupId(longId2)
-    )->toBe(false)
+    expect(Util_SQS_Runtime.safeGroupId(longId) == Util_SQS_Runtime.safeGroupId(longId2))->toBe(
+      false,
+    )
   })
 
   testSync("returns same hash for the same long id (deterministic)", () => {

package/tests/Util_ShellConfigTest.res

@@ -33,9 +33,7 @@ describe("Util_ShellConfig.fields — viewModes", () => {
     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("mapStyle"))->toEqual(JSON.Encode.string("https://tiles.example/style.json"))
     expect(out->get("graphLayout"))->toEqual(JSON.Encode.string("dagre"))
   })
 })
@@ -43,7 +41,7 @@ describe("Util_ShellConfig.fields — viewModes", () => {
 describe("Util_ShellConfig.fields — bakedManifest", () => {
   let bake = (~key: option<string>=?): ReventlessInfra.Platform.bakedManifest => {
     components: [{plugin: "Catalog", views: ["Products"], commands: []}],
-    key: ?key,
+    ?key,
   }
 
   testSync("unset ⇒ no manifestUrl, so every caller keeps the admin path", () => {
@@ -202,8 +200,8 @@ describe("Util_ShellConfig.fields — journeys", () => {
       ->Array.filterMap(JSON.Decode.string),
     )
     expect(published)->toEqual(
-      ReventlessCore.Platform_BakedManifest.files(~config=bake)->Array.map(((key, _)) =>
-        "/" ++ key
+      ReventlessCore.Platform_BakedManifest.files(~config=bake)->Array.map(
+        ((key, _)) => "/" ++ key,
       ),
     )
   })
@@ -215,9 +213,7 @@ describe("Util_ShellConfig.fields — journeys", () => {
       let _ = Util_ShellConfig.fields(
         ~computed,
         ~bakedManifest=withJourneys(~journeys=[shopper]),
-        ~shellConfig=Dict.fromArray([
-          ("journeyManifestUrls", JSON.Encode.object(Dict.make())),
-        ]),
+        ~shellConfig=Dict.fromArray([("journeyManifestUrls", JSON.Encode.object(Dict.make()))]),
       )
       None
     } catch {
@@ -239,12 +235,7 @@ describe("Util_ShellConfig.fields — shellConfig passthrough", () => {
         ("accessTiers", JSON.Encode.array([JSON.Encode.string("public")])),
       ]),
     )
-    expect(out->Dict.keysToArray)->toEqual([
-      "apiEndpoint",
-      "region",
-      "platformName",
-      "accessTiers",
-    ])
+    expect(out->Dict.keysToArray)->toEqual(["apiEndpoint", "region", "platformName", "accessTiers"])
     expect(out->get("platformName"))->toEqual(JSON.Encode.string("Online Shop"))
   })
 
@@ -277,8 +268,7 @@ describe("Util_ShellConfig.fields — shellConfig passthrough", () => {
 // These assert the property that removes that window, not the spelling.
 describe("Util_ShellConfig.identityFields", () => {
   let fields = Util_ShellConfig.identityFields(~providerId="eu-west-1_x", ~clientId="7cl13nt")
-  let get = key =>
-    fields->Array.find(((k, _)) => k == key)->Option.map(((_, v)) => v)
+  let get = key => fields->Array.find(((k, _)) => k == key)->Option.map(((_, v)) => v)
 
   testSync("the new spelling is present", () =>
     expect((get("identityProviderId"), get("identityProviderClientId")))->toEqual((

package/tests/Util_StaticBundleTest.res

@@ -31,13 +31,9 @@ describe("Util_StaticBundle.contentTypeFor", () => {
     )
   )
   testSync("json", () =>
-    expect(Util_StaticBundle.contentTypeFor("data.json"))->toBe(
-      "application/json; charset=utf-8",
-    )
-  )
-  testSync("svg", () =>
-    expect(Util_StaticBundle.contentTypeFor("logo.svg"))->toBe("image/svg+xml")
+    expect(Util_StaticBundle.contentTypeFor("data.json"))->toBe("application/json; charset=utf-8")
   )
+  testSync("svg", () => expect(Util_StaticBundle.contentTypeFor("logo.svg"))->toBe("image/svg+xml"))
   testSync("woff2", () =>
     expect(Util_StaticBundle.contentTypeFor("font.woff2"))->toBe("font/woff2")
   )
@@ -92,8 +88,7 @@ describe("Util_StaticBundle.walk", () => {
   testSync("identical contents produce identical hashes", () => {
     let dir = makeFixture()
     let entries = Util_StaticBundle.walk(dir)
-    let indexEntry =
-      entries->Array.find(e => e.relativePath == "index.html")->Option.getUnsafe
+    let indexEntry = entries->Array.find(e => e.relativePath == "index.html")->Option.getUnsafe
     let indexHash = indexEntry.contentHash
     let dir2 = NodeFs.mkdtempSync(NodePath.join([NodeOs.tmpdir(), "static-bundle-"]))
     NodeFs.writeFileSync(NodePath.join([dir2, "index.html"]), "<html></html>")

package/tests/Util_StoreLayoutTest.res

@@ -4,11 +4,15 @@ let prodStacks = Util_HostUiDomain.defaultProdStacks
 
 describe("Util_StoreLayout.layoutFor", () => {
   testSync("a prod-named stack gets a bucket per store", () =>
-    expect(Util_StoreLayout.layoutFor(~stack="prod", ~prodStacks))->toEqual(Util_StoreLayout.PerStore)
+    expect(Util_StoreLayout.layoutFor(~stack="prod", ~prodStacks))->toEqual(
+      Util_StoreLayout.PerStore,
+    )
   )
 
   testSync("'main' is production too, by the shared prod list", () =>
-    expect(Util_StoreLayout.layoutFor(~stack="main", ~prodStacks))->toEqual(Util_StoreLayout.PerStore)
+    expect(Util_StoreLayout.layoutFor(~stack="main", ~prodStacks))->toEqual(
+      Util_StoreLayout.PerStore,
+    )
   )
 
   testSync("alpha shares one bucket", () =>
@@ -34,9 +38,9 @@ describe("Util_StoreLayout.layoutFor", () => {
   )
 
   testSync("adding it to the prod list is the fix", () =>
-    expect(Util_StoreLayout.layoutFor(~stack="production", ~prodStacks=["prod", "production"]))->toEqual(
-      Util_StoreLayout.PerStore,
-    )
+    expect(
+      Util_StoreLayout.layoutFor(~stack="production", ~prodStacks=["prod", "production"]),
+    )->toEqual(Util_StoreLayout.PerStore)
   )
 })
 
@@ -91,18 +95,18 @@ describe("Util_StoreLayout.coverageFor", () => {
   )
 
   testSync("declaring nothing is covered, whatever the platform provisions", () =>
-    expect(Util_StoreLayout.coverageFor(~required=[], ~provisioned=["Catalog.productImages"]))->toEqual(
-      Util_StoreLayout.Covered,
-    )
+    expect(
+      Util_StoreLayout.coverageFor(~required=[], ~provisioned=["Catalog.productImages"]),
+    )->toEqual(Util_StoreLayout.Covered)
   )
 
   // A platform provisioning nothing has not adopted capability provisioning.
   // Failing it would break deployments that work today, so this is the arm that
   // must NOT be a hard error.
   testSync("a platform provisioning nothing has not adopted, rather than got it wrong", () =>
-    expect(Util_StoreLayout.coverageFor(~required=["Catalog.productImages"], ~provisioned=[]))->toEqual(
-      Util_StoreLayout.NotAdopted(["Catalog.productImages"]),
-    )
+    expect(
+      Util_StoreLayout.coverageFor(~required=["Catalog.productImages"], ~provisioned=[]),
+    )->toEqual(Util_StoreLayout.NotAdopted(["Catalog.productImages"]))
   )
 
   // The case that shipped: the platform declared the store under a lowercased
@@ -282,7 +286,8 @@ describe("Util_StoreLayout.pendingExpiryFor", () => {
   // 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")
+    let of_ = c =>
+      Util_StoreLayout.pendingExpiryFor(~config=Some(c), ~store="Catalog.productImages")
     expect((
       of_("Catalog.productImages"),
       of_("Catalog.productImages="),

package/tests/integration/AggregateEntryPoint_IntegrationTest.res

@@ -73,10 +73,7 @@ let buildAppSyncEvent = (~id, ~name): JSON.t => {
     ("id", id->JSON.Encode.string),
     ("name", name->JSON.Encode.string),
   ])
-  let meta = Dict.fromArray([
-    ("user", "agg-test"->JSON.Encode.string),
-    ("ip", JSON.Encode.null),
-  ])
+  let meta = Dict.fromArray([("user", "agg-test"->JSON.Encode.string), ("ip", JSON.Encode.null)])
   Dict.fromArray([
     ("command", "Add"->JSON.Encode.string),
     ("arguments", arguments->JSON.Encode.object),

package/tests/integration/DcbCommandTopicEntryPoint_IntegrationTest.res

@@ -126,10 +126,7 @@ let buildAppSyncEvent = (widgetId): JSON.t => {
   // template in `DcbCmdHandlerResolver_GraphQL.res`).
   let command = Dict.fromArray([("AddWidget", Dict.make()->JSON.Encode.object)])
   let arguments = Dict.fromArray([("widgetId", widgetId->JSON.Encode.string)])
-  let meta = Dict.fromArray([
-    ("user", "ep-test"->JSON.Encode.string),
-    ("ip", JSON.Encode.null),
-  ])
+  let meta = Dict.fromArray([("user", "ep-test"->JSON.Encode.string), ("ip", JSON.Encode.null)])
   Dict.fromArray([
     ("command", command->JSON.Encode.object),
     ("arguments", arguments->JSON.Encode.object),
@@ -181,25 +178,28 @@ describe("DcbCommandTopicEntryPoint integration", () => {
 
       // Concurrent burst — simulates the deploy-sync fan-out that surfaced the
       // `retries exhausted` cascade on alpha.
-      let outcomes =
-        await resourceNames
-        ->Array.map(resourceName =>
-          runOneCompositeEvent(table.name, buildAddResourceEvent(~environment=env, ~resourceName))
-        )
-        ->Promise.all
+      let outcomes = await resourceNames
+      ->Array.map(
+        resourceName =>
+          runOneCompositeEvent(table.name, buildAddResourceEvent(~environment=env, ~resourceName)),
+      )
+      ->Promise.all
 
       // Every distinct composite entity must commit — none may conflict on the
       // shared `environment` prefix.
-      outcomes->Array.forEach(outcomeJson => {
-        let s = outcomeJson->JSON.stringifyAny->Option.getOr("<unserializable>")
-        expect(s->String.includes("CommandAccepted"))->toBe(true)
-      })
+      outcomes->Array.forEach(
+        outcomeJson => {
+          let s = outcomeJson->JSON.stringifyAny->Option.getOr("<unserializable>")
+          expect(s->String.includes("CommandAccepted"))->toBe(true)
+        },
+      )
 
       // Mechanism-level proof: the only fence rows are the synthetic composite
       // fences (`fence#__dcb_composite__:…`) — one per entity — with NO
       // per-member `fence#environment:…` / `fence#resourceName:…` rows.
       let fenceIds = await H.scanFenceIds(table)
-      let compositeFencePrefix = "fence#" ++ DcbEventLogStorage_DynamoDb_Runtime.compositeFenceTagKey
+      let compositeFencePrefix =
+        "fence#" ++ DcbEventLogStorage_DynamoDb_Runtime.compositeFenceTagKey
       expect(fenceIds->Array.length)->toBe(resourceNames->Array.length)
       fenceIds->Array.forEach(id => expect(id->String.startsWith(compositeFencePrefix))->toBe(true))