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

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