@reventlessdev/reventless-aws 3.0.0-alpha.396 → 3.0.0-alpha.398

package/tests/DeployAppTest.res.mjs

@@ -9,7 +9,6 @@ globalThis.describe("DeployApp.parseArgs", () => {
       TAG: "Ok",
       _0: {
         command: "Up",
-        manifest: undefined,
         stack: "dev",
         help: false
       }
@@ -79,27 +78,19 @@ globalThis.describe("DeployApp stacks and layer", () => {
     dir: "/app/platform-aws",
     projectName: "shop-platform-aws",
     program: "/app/platform-aws/src/Main.res.mjs",
-    stackDefaults: project_stackDefaults,
-    region: undefined
+    stackDefaults: project_stackDefaults
   };
   globalThis.test("a stack the manifest puts in another region is refused", () => {
-    let ingest_stackDefaults = project_stackDefaults;
-    let ingest_region = "eu-central-1";
-    let ingest = {
-      label: "ingest",
-      dir: "/app/platform-aws",
-      projectName: "shop-platform-aws",
-      program: "/app/platform-aws/src/Main.res.mjs",
-      stackDefaults: ingest_stackDefaults,
-      region: ingest_region
-    };
+    let newrecord = {...project};
+    newrecord.region = "eu-central-1";
+    newrecord.label = "ingest";
     globalThis.expect(DeployApp$ReventlessAws.regionProblems([
       project,
-      ingest
+      newrecord
     ], "eu-west-1").length).toBe(1);
     globalThis.expect(DeployApp$ReventlessAws.regionProblems([
       project,
-      ingest
+      newrecord
     ], "eu-central-1")).toEqual([]);
   });
   globalThis.test("a new stack gets the app's defaults, then the region and the try-out flag", () => {

package/tests/EpInboundTestSlice.res

@@ -15,6 +15,7 @@ type command = AddThing({thingId: string})
 
 let targetName = "AddThing"
 let externalSystem: option<string> = Some("TestFeed")
+let capabilityNeeds: array<Reventless.CapabilityNeed.t> = []
 let endpoint = None
 
 type role = Reventless.Role.name

package/tests/EpInboundTestSlice.res.mjs

@@ -12,6 +12,8 @@ let commandSchema = Sury.$schema(s => ({
   thingId: s.m(Sury.string)
 }));
 
+let capabilityNeeds = [];
+
 function authorizationOf(param) {
   return {
     TAG: "AllowRoles",
@@ -36,6 +38,7 @@ export {
   commandSchema,
   targetName,
   externalSystem,
+  capabilityNeeds,
   endpoint,
   authorizationOf,
 }

package/tests/EventCollectorPluginDefinitionAssetTest.res

@@ -30,9 +30,8 @@ let offloadedFragment: Reventless.Plugin.pluginDefinition = {
       bytes: 14594,
     }),
   ),
-  apiTarget: Some("Domain"),
+  apiTarget: "Domain",
   structure: None,
-  dcbEventLog: None,
   kind: Domain,
 }
 

package/tests/EventCollectorPluginDefinitionAssetTest.res.mjs

@@ -31,29 +31,17 @@ let offloadedFragment = {
   },
   apiTarget: "Domain",
   structure: undefined,
-  dcbEventLog: undefined,
   kind: "Domain"
 };
 
-let inlineFragment = {
-  id: offloadedFragment.id,
-  name: offloadedFragment.name,
-  version: offloadedFragment.version,
-  extensionPoints: offloadedFragment.extensionPoints,
-  extensions: offloadedFragment.extensions,
-  eventCollector: offloadedFragment.eventCollector,
-  extensionProtocols: offloadedFragment.extensionProtocols,
-  apiSchemaFragment: {
-    TAG: "Inline",
-    _0: {
-      encoded: "{\"types\":[]}",
-      protocol: "1"
-    }
-  },
-  apiTarget: offloadedFragment.apiTarget,
-  structure: offloadedFragment.structure,
-  dcbEventLog: offloadedFragment.dcbEventLog,
-  kind: offloadedFragment.kind
+let newrecord = {...offloadedFragment};
+
+newrecord.apiSchemaFragment = {
+  TAG: "Inline",
+  _0: {
+    encoded: "{\"types\":[]}",
+    protocol: "1"
+  }
 };
 
 function writeAsset(def) {
@@ -100,7 +88,7 @@ globalThis.describe("pluginDefinition.json write/read symmetry", () => {
   globalThis.test("a definition read back from the asset can be published to the Connect handshake", () => {
     [
       offloadedFragment,
-      inlineFragment
+      newrecord
     ].forEach(def => {
       let published = Util_Sury$Reventless.toJson({
         TAG: "ConnectPlugin",
@@ -126,6 +114,8 @@ globalThis.describe("pluginDefinition.json write/read symmetry", () => {
   });
 });
 
+let inlineFragment = newrecord;
+
 export {
   offloadedFragment,
   inlineFragment,

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);
   });