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

package/tests/AWS_TagsTest.res

@@ -18,8 +18,7 @@ let tagsFor = (
   ~component=?,
   ~plugin=?,
   ~platform=?,
-) =>
-  AWS_Tags.make(~name, ~kind, ~role, ~scope, ~component?, ~plugin?, ~platform?)->toDict
+) => AWS_Tags.make(~name, ~kind, ~role, ~scope, ~component?, ~plugin?, ~platform?)->toDict
 
 describe("AWS_Tags — key set", () => {
   testSync("emits every reventless: fact exactly once, plus the bare Name", () => {
@@ -50,7 +49,11 @@ describe("AWS_Tags — key set", () => {
     // `Environment` was a framework fact wearing an un-namespaced name. One
     // authoritative name per fact — `Name` is the sole bare key, because the AWS
     // console reads that literal spelling for its resource-name column.
-    let tags = tagsFor(~name="Products", ~kind=ReventlessCore.ComponentType.ReadModel, ~role=QueryDb)
+    let tags = tagsFor(
+      ~name="Products",
+      ~kind=ReventlessCore.ComponentType.ReadModel,
+      ~role=QueryDb,
+    )
     expect(tags->Dict.get("Type"))->toEqual(None)
     expect(tags->Dict.get("Plugin"))->toEqual(None)
     expect(tags->Dict.get("Environment"))->toEqual(None)
@@ -166,7 +169,11 @@ describe("AWS_Tags — owner overrides the piece adapter's own kind", () => {
 
 describe("AWS_Tags — scope", () => {
   testSync("component scope names the component, defaulting to the resource name", () => {
-    let tags = tagsFor(~name="Products", ~kind=ReventlessCore.ComponentType.ReadModel, ~role=QueryDb)
+    let tags = tagsFor(
+      ~name="Products",
+      ~kind=ReventlessCore.ComponentType.ReadModel,
+      ~role=QueryDb,
+    )
     expect(tags->Dict.get("reventless:scope"))->toEqual(Some("component"))
     expect(tags->Dict.get("reventless:component"))->toEqual(Some("Products"))
   })
@@ -216,7 +223,11 @@ describe("AWS_Tags — plugin attribution", () => {
     // Adapters sit far below the builder that knows the plugin name, so the
     // ambient context is how a DynamoDB table learns it belongs to Ordering.
     let previous = Attribution.enter(~platform="online-shop", ~plugin="Ordering")
-    let tags = tagsFor(~name="OrderEventLog", ~kind=ReventlessCore.ComponentType.Aggregate, ~role=EventLog)
+    let tags = tagsFor(
+      ~name="OrderEventLog",
+      ~kind=ReventlessCore.ComponentType.Aggregate,
+      ~role=EventLog,
+    )
     Attribution.restore(previous)
     expect(tags->Dict.get("reventless:plugin"))->toEqual(Some("Ordering"))
     expect(tags->Dict.get("reventless:platform"))->toEqual(Some("online-shop"))

package/tests/AppSyncEventsSigner_OpsTest.res

@@ -23,10 +23,19 @@ external signedHeadersJs: (
 let get = (d, k) => d->Dict.get(k)->Option.getOr("<missing>")
 
 // Compare the ReScript signer to the JS reference for one input tuple.
-let assertParity = (~host, ~path, ~body, ~region, ~isoNow, ~accessKeyId, ~secretAccessKey, ~sessionToken) => {
+let assertParity = (
+  ~host,
+  ~path,
+  ~body,
+  ~region,
+  ~isoNow,
+  ~accessKeyId,
+  ~secretAccessKey,
+  ~sessionToken,
+) => {
   let creds: AppSyncEventsSigner_Ops.creds = {accessKeyId, secretAccessKey, sessionToken}
   let mine = AppSyncEventsSigner_Ops.signedHeaders(~host, ~path, ~body, ~region, ~isoNow, ~creds)
-  let jsCreds: jsCreds = {accessKeyId, secretAccessKey, sessionToken: ?sessionToken}
+  let jsCreds: jsCreds = {accessKeyId, secretAccessKey, ?sessionToken}
   let ref = signedHeadersJs(~host, ~path, ~body, ~region, ~isoNow, ~creds=jsCreds)
   expect(mine->get("Authorization"))->toBe(ref->get("Authorization"))
   expect(mine->get("x-amz-date"))->toBe(ref->get("x-amz-date"))