@reventlessdev/reventless-aws 3.0.0-alpha.397 → 3.0.0-alpha.399

package/tests/IdentityProvider_Cognito_BackendTest.res

@@ -289,11 +289,8 @@ describe("AutomationSliceRuntime_Builder_Single.declaresIdentityProvider", () =>
     callbackType: "outbound",
     queryDbTableName: Pulumi.Output.make(""),
     queryDbResources: [],
-    context: None,
     sourceTopics: Dict.make(),
     consumesDcbLog: true,
-    commandTargetName: None,
-    schedule: None,
     schedulesResources: [],
     capabilityNeeds: needs,
   }

package/tests/IdentityProvider_Cognito_BackendTest.res.mjs

@@ -407,11 +407,8 @@ globalThis.describe("AutomationSliceRuntime_Builder_Single.declaresIdentityProvi
     callbackType: "outbound",
     queryDbTableName: Pulumi.output(""),
     queryDbResources: [],
-    context: undefined,
     sourceTopics: {},
     consumesDcbLog: true,
-    commandTargetName: undefined,
-    schedule: undefined,
     schedulesResources: [],
     capabilityNeeds: needs
   });

package/tests/PgQueryResolver_LambdaTest.res

@@ -104,16 +104,16 @@ let makeBinding = (
   indexes: [
     {index: "byStatus", type_: "S", idField: "status", projectionType: Reventless.ReadModel.ALL},
   ],
-  subIdField,
+  ?subIdField,
   capability,
   labelField: "name",
   includeIdParam: true,
   authorization,
-  ownerField,
-  retiredField,
-  retiredValues,
+  ?ownerField,
+  ?retiredField,
+  ?retiredValues,
   namedWhenRetired,
-  imageSource,
+  ?imageSource,
 }
 
 let mkPayload = (
@@ -695,16 +695,12 @@ let geoBinding = (): PgQueryResolver_Lambda.binding => {
   indexes: [
     {index: "byStatus", type_: "S", idField: "status", projectionType: Reventless.ReadModel.ALL},
   ],
-  subIdField: Some("lineNo"),
+  subIdField: "lineNo",
   capability,
   labelField: "name",
   includeIdParam: true,
   authorization: Reventless.Authorization.AllowAnonymous,
-  ownerField: None,
-  retiredField: None,
-  retiredValues: None,
   namedWhenRetired: false,
-  imageSource: None,
 }
 
 // The member type of the first row a door answers with, whatever shape it took.

package/tests/PgQueryResolver_LambdaTest.res.mjs

@@ -414,37 +414,11 @@ globalThis.describe("PgQueryResolver_Lambda.dispatch", () => {
     delete: 0,
     deleteBatch: 0
   };
-  let init = makeBinding(undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined);
-  let authBinding_pushdowns = init.pushdowns;
-  let authBinding_indexes = init.indexes;
-  let authBinding_subIdField = init.subIdField;
-  let authBinding_capability = init.capability;
-  let authBinding_labelField = init.labelField;
-  let authBinding_includeIdParam = init.includeIdParam;
-  let authBinding_authorization = init.authorization;
-  let authBinding_ownerField = init.ownerField;
-  let authBinding_retiredField = init.retiredField;
-  let authBinding_retiredValues = init.retiredValues;
-  let authBinding_namedWhenRetired = init.namedWhenRetired;
-  let authBinding_imageSource = init.imageSource;
-  let authBinding = {
-    ops: authOps,
-    pushdowns: authBinding_pushdowns,
-    indexes: authBinding_indexes,
-    subIdField: authBinding_subIdField,
-    capability: authBinding_capability,
-    labelField: authBinding_labelField,
-    includeIdParam: authBinding_includeIdParam,
-    authorization: authBinding_authorization,
-    ownerField: authBinding_ownerField,
-    retiredField: authBinding_retiredField,
-    retiredValues: authBinding_retiredValues,
-    namedWhenRetired: authBinding_namedWhenRetired,
-    imageSource: authBinding_imageSource
-  };
+  let newrecord = {...makeBinding(undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined)};
+  newrecord.ops = authOps;
   let lookupAuth = name => {
     if (name === "AuthTable") {
-      return authBinding;
+      return newrecord;
     }
   };
   let ident = (username, groups) => ({
@@ -710,11 +684,7 @@ function geoBinding() {
     labelField: "name",
     includeIdParam: true,
     authorization: "AllowAnonymous",
-    ownerField: undefined,
-    retiredField: undefined,
-    retiredValues: undefined,
-    namedWhenRetired: false,
-    imageSource: undefined
+    namedWhenRetired: false
   };
 }
 

package/tests/Platform_ProvidedGroupsTest.res

@@ -34,7 +34,7 @@ describe("Platform_ProvidedGroups.poolFromExports", () => {
         ("identityProviderId", JSON.Encode.string("p1")),
         ("identityProviderRegion", JSON.Encode.string("eu-west-1")),
       ]),
-    )->toEqual(Some({Platform_ProvidedGroups.id: "p1", region: Some("eu-west-1")}))
+    )->toEqual(Some({Platform_ProvidedGroups.id: "p1", region: "eu-west-1"}))
   )
 
   testSync("reads them nested under default, as an ESM platform exports them", () =>
@@ -45,7 +45,7 @@ describe("Platform_ProvidedGroups.poolFromExports", () => {
           JSON.Encode.object(Dict.fromArray([("cognitoUserPoolId", JSON.Encode.string("p-old"))])),
         ),
       ]),
-    )->toEqual(Some({Platform_ProvidedGroups.id: "p-old", region: None}))
+    )->toEqual(Some({Platform_ProvidedGroups.id: "p-old"}))
   )
 
   testSync("no pool id is no pool to list", () => expect(from([]))->toEqual(None))

package/tests/Platform_ProvidedGroupsTest.res.mjs

@@ -80,8 +80,7 @@ globalThis.describe("Platform_ProvidedGroups.poolFromExports", () => {
             "p-old"
           ]])
       ]])).toEqual({
-      id: "p-old",
-      region: undefined
+      id: "p-old"
     });
   });
   globalThis.test("no pool id is no pool to list", () => {

package/tests/ProvisionAccountsTest.res

@@ -15,9 +15,7 @@ module Provision = ProvisionAccounts
 
 describe("ProvisionAccounts.parseArgs", () => {
   testSync("no arguments leaves every choice unanswered", () =>
-    expect(Provision.parseArgs([]))->toEqual(
-      Ok({Provision.providerId: None, stack: None, file: None, help: false}),
-    )
+    expect(Provision.parseArgs([]))->toEqual(Ok({Provision.providerId: ?None, help: false}))
   )
 
   testSync("a pool and a manifest parse", () =>
@@ -25,9 +23,8 @@ describe("ProvisionAccounts.parseArgs", () => {
       Provision.parseArgs(["--provider-id", "eu-west-1_AbCdEfGhI", "--file", "cast.yaml"]),
     )->toEqual(
       Ok({
-        Provision.providerId: Some("eu-west-1_AbCdEfGhI"),
-        stack: None,
-        file: Some("cast.yaml"),
+        Provision.providerId: "eu-west-1_AbCdEfGhI",
+        file: "cast.yaml",
         help: false,
       }),
     )
@@ -35,7 +32,7 @@ describe("ProvisionAccounts.parseArgs", () => {
 
   testSync("--stack picks the deployment to read the pool id from", () =>
     expect(Provision.parseArgs(["--stack", "beta"]))->toEqual(
-      Ok({Provision.providerId: None, stack: Some("beta"), file: None, help: false}),
+      Ok({Provision.providerId: ?None, stack: "beta", help: false}),
     )
   )
 
@@ -54,9 +51,7 @@ describe("ProvisionAccounts.parseArgs", () => {
   )
 
   testSync("-h asks for the usage", () =>
-    expect(Provision.parseArgs(["-h"]))->toEqual(
-      Ok({Provision.providerId: None, stack: None, file: None, help: true}),
-    )
+    expect(Provision.parseArgs(["-h"]))->toEqual(Ok({Provision.providerId: ?None, help: true}))
   )
 })
 

package/tests/ProvisionAccountsTest.res.mjs

@@ -13,9 +13,6 @@ globalThis.describe("ProvisionAccounts.parseArgs", () => {
     globalThis.expect(ProvisionAccounts$ReventlessAws.parseArgs([])).toEqual({
       TAG: "Ok",
       _0: {
-        providerId: undefined,
-        stack: undefined,
-        file: undefined,
         help: false
       }
     });
@@ -30,7 +27,6 @@ globalThis.describe("ProvisionAccounts.parseArgs", () => {
       TAG: "Ok",
       _0: {
         providerId: "eu-west-1_AbCdEfGhI",
-        stack: undefined,
         file: "cast.yaml",
         help: false
       }
@@ -43,9 +39,7 @@ globalThis.describe("ProvisionAccounts.parseArgs", () => {
     ])).toEqual({
       TAG: "Ok",
       _0: {
-        providerId: undefined,
         stack: "beta",
-        file: undefined,
         help: false
       }
     });
@@ -69,9 +63,6 @@ globalThis.describe("ProvisionAccounts.parseArgs", () => {
     globalThis.expect(ProvisionAccounts$ReventlessAws.parseArgs(["-h"])).toEqual({
       TAG: "Ok",
       _0: {
-        providerId: undefined,
-        stack: undefined,
-        file: undefined,
         help: true
       }
     });

package/tests/ProvisionAdminTest.res

@@ -19,18 +19,15 @@ describe("ProvisionAdmin.parseArgs", () => {
       Provision.parseArgs(["--provider-id", "eu-west-1_AbCdEfGhI", "--email", "me@example.com"]),
     )->toEqual(
       Ok({
-        Provision.providerId: Some("eu-west-1_AbCdEfGhI"),
-        stack: None,
-        email: Some("me@example.com"),
+        Provision.providerId: "eu-west-1_AbCdEfGhI",
+        email: "me@example.com",
         help: false,
       }),
     )
   )
 
   testSync("no arguments leaves both unanswered", () =>
-    expect(Provision.parseArgs([]))->toEqual(
-      Ok({Provision.providerId: None, stack: None, email: None, help: false}),
-    )
+    expect(Provision.parseArgs([]))->toEqual(Ok({Provision.providerId: ?None, help: false}))
   )
 
   // The reason unknown flags refuse rather than being skipped: a typo'd
@@ -48,8 +45,6 @@ describe("ProvisionAdmin.parseArgs", () => {
   )
 
   testSync("-h asks for the usage", () =>
-    expect(Provision.parseArgs(["-h"]))->toEqual(
-      Ok({Provision.providerId: None, stack: None, email: None, help: true}),
-    )
+    expect(Provision.parseArgs(["-h"]))->toEqual(Ok({Provision.providerId: ?None, help: true}))
   )
 })

package/tests/ProvisionAdminTest.res.mjs

@@ -13,7 +13,6 @@ globalThis.describe("ProvisionAdmin.parseArgs", () => {
       TAG: "Ok",
       _0: {
         providerId: "eu-west-1_AbCdEfGhI",
-        stack: undefined,
         email: "me@example.com",
         help: false
       }
@@ -23,9 +22,6 @@ globalThis.describe("ProvisionAdmin.parseArgs", () => {
     globalThis.expect(ProvisionAdmin$ReventlessAws.parseArgs([])).toEqual({
       TAG: "Ok",
       _0: {
-        providerId: undefined,
-        stack: undefined,
-        email: undefined,
         help: false
       }
     });
@@ -49,9 +45,6 @@ globalThis.describe("ProvisionAdmin.parseArgs", () => {
     globalThis.expect(ProvisionAdmin$ReventlessAws.parseArgs(["-h"])).toEqual({
       TAG: "Ok",
       _0: {
-        providerId: undefined,
-        stack: undefined,
-        email: undefined,
         help: true
       }
     });

package/tests/ProvisionIdentityTest.res

@@ -15,7 +15,6 @@ describe("ProvisionIdentity.parseArgs", () => {
     expect(Provision.parseArgs([]))->toEqual(
       Ok({
         Provision.poolName: Provision.defaultPoolName,
-        providerId: None,
         loginIdentifier: Auth_LoginIdentifier.Email,
         signUpMode: Auth_SignUpMode.AdminOnly,
         help: false,
@@ -27,7 +26,7 @@ describe("ProvisionIdentity.parseArgs", () => {
     expect(Provision.parseArgs(["--provider-id", "eu-west-1_AbCdEfGhI"]))->toEqual(
       Ok({
         Provision.poolName: Provision.defaultPoolName,
-        providerId: Some("eu-west-1_AbCdEfGhI"),
+        providerId: "eu-west-1_AbCdEfGhI",
         loginIdentifier: Auth_LoginIdentifier.Email,
         signUpMode: Auth_SignUpMode.AdminOnly,
         help: false,
@@ -39,7 +38,6 @@ describe("ProvisionIdentity.parseArgs", () => {
     expect(Provision.parseArgs(["--name", "examples-dev"]))->toEqual(
       Ok({
         Provision.poolName: "examples-dev",
-        providerId: None,
         loginIdentifier: Auth_LoginIdentifier.Email,
         signUpMode: Auth_SignUpMode.AdminOnly,
         help: false,
@@ -51,7 +49,7 @@ describe("ProvisionIdentity.parseArgs", () => {
     expect(Provision.parseArgs(["--name", "ignored", "--provider-id", "eu-west-1_x"]))->toEqual(
       Ok({
         Provision.poolName: "ignored",
-        providerId: Some("eu-west-1_x"),
+        providerId: "eu-west-1_x",
         loginIdentifier: Auth_LoginIdentifier.Email,
         signUpMode: Auth_SignUpMode.AdminOnly,
         help: false,

package/tests/ProvisionIdentityTest.res.mjs

@@ -12,7 +12,6 @@ globalThis.describe("ProvisionIdentity.parseArgs", () => {
       TAG: "Ok",
       _0: {
         poolName: ProvisionIdentity$ReventlessAws.defaultPoolName,
-        providerId: undefined,
         loginIdentifier: "Email",
         signUpMode: "AdminOnly",
         help: false
@@ -42,7 +41,6 @@ globalThis.describe("ProvisionIdentity.parseArgs", () => {
       TAG: "Ok",
       _0: {
         poolName: "examples-dev",
-        providerId: undefined,
         loginIdentifier: "Email",
         signUpMode: "AdminOnly",
         help: false

package/tests/SideEffectEntryPoint_OpsTest.res

@@ -71,8 +71,8 @@ describe("SideEffectEntryPoint_Ops.makeRegisteredHandler", () => {
     let entry: SideEffectEntryPoint_Ops.handlerEntry = {
       sourceUrn: "arn:stream-1",
       sideEffectModules: [],
-      comp: Some("SideEffectHandler(Mailer)"),
-      plugin: Some("Ordering"),
+      comp: "SideEffectHandler(Mailer)",
+      plugin: "Ordering",
     }
     let registered = SideEffectEntryPoint_Ops.makeRegisteredHandler(
       entry,

package/tests/Util_ShellConfigTest.res

@@ -230,7 +230,7 @@ describe("Util_ShellConfig.fields — journeys", () => {
 // went missing shows as a badge rather than as nothing.
 describe("Util_ShellConfig.fields — environment", () => {
   testSync("the name and the purpose follow the computed keys", () => {
-    let out = Util_ShellConfig.fields(~computed, ~environment={name: "test", purpose: Some("test")})
+    let out = Util_ShellConfig.fields(~computed, ~environment={name: "test", purpose: "test"})
     expect(out->Dict.keysToArray)->toEqual([
       "apiEndpoint",
       "region",
@@ -244,7 +244,7 @@ describe("Util_ShellConfig.fields — environment", () => {
   })
 
   testSync("an unknown purpose leaves its key out", () => {
-    let out = Util_ShellConfig.fields(~computed, ~environment={name: "alpha", purpose: None})
+    let out = Util_ShellConfig.fields(~computed, ~environment={name: "alpha"})
     expect(out->Dict.get("environmentPurpose")->Option.isNone)->toBe(true)
   })
 
@@ -252,7 +252,7 @@ describe("Util_ShellConfig.fields — environment", () => {
     let failure = try {
       let _ = Util_ShellConfig.fields(
         ~computed,
-        ~environment={name: "prod", purpose: Some("production")},
+        ~environment={name: "prod", purpose: "production"},
         ~shellConfig=Dict.fromArray([("environment", JSON.Encode.string("staging"))]),
       )
       None

package/tests/Util_ShellConfigTest.res.mjs

@@ -269,8 +269,7 @@ globalThis.describe("Util_ShellConfig.fields — environment", () => {
   });
   globalThis.test("an unknown purpose leaves its key out", () => {
     let out = Util_ShellConfig$ReventlessAws.fields(computed, {
-      name: "alpha",
-      purpose: undefined
+      name: "alpha"
     }, undefined, undefined, undefined, undefined);
     globalThis.expect(Stdlib_Option.isNone(out["environmentPurpose"])).toBe(true);
   });