@reventlessdev/reventless-aws 3.0.0-alpha.207 → 3.0.0-alpha.209

package/src/components/Api/AppSync_Adapter.res.mjs

@@ -10,15 +10,12 @@ import * as Stdlib_String from "@rescript/runtime/lib/es6/Stdlib_String.js";
 import * as Effect$1 from "effect/Effect";
 import * as Pulumi from "@pulumi/pulumi";
 import * as Stdlib_JsError from "@rescript/runtime/lib/es6/Stdlib_JsError.js";
-import * as Stdlib_Promise from "@rescript/runtime/lib/es6/Stdlib_Promise.js";
 import * as Primitive_option from "@rescript/runtime/lib/es6/Primitive_option.js";
 import * as Primitive_exceptions from "@rescript/runtime/lib/es6/Primitive_exceptions.js";
-import * as LibDynamodb from "@aws-sdk/lib-dynamodb";
 import * as Logger$ReventlessCore from "@reventlessdev/reventless-core/src/util/Logger.res.mjs";
 import * as ClientAppsync from "@aws-sdk/client-appsync";
 import * as Auth_Cognito$ReventlessAws from "../../adapter/Auth/Auth_Cognito.res.mjs";
 import * as AppSync_Error$ReventlessAws from "../../errors/AppSync_Error.res.mjs";
-import * as DynamoDb_DocumentClient$AwsSdk from "@reventlessdev/rescript-aws-sdk/src/DynamoDb_DocumentClient.res.mjs";
 import * as GraphQL_Stitcher$ReventlessCore from "@reventlessdev/reventless-core/src/components/Api/GraphQL_Stitcher.res.mjs";
 import * as AppSync_SdlDecorate$ReventlessAws from "./AppSync_SdlDecorate.res.mjs";
 import * as GraphQL_FragmentGenerator$ReventlessCore from "@reventlessdev/reventless-core/src/components/Api/GraphQL_FragmentGenerator.res.mjs";
@@ -90,84 +87,6 @@ function deploySchemaWithRetry(client, apiId, definition) {
   })).then(param => Promise.resolve())), AppSync_Error$ReventlessAws.retrySchedule);
 }
 
-function schemaLockSleep(ms) {
-  return new Promise((resolve, param) => {
-    setTimeout(() => resolve(), ms);
-  });
-}
-
-let _schemaLockCounter = {
-  contents: 0
-};
-
-async function withSchemaPushLock(tableName, apiId, leaseMsOpt, maxWaitMsOpt, fn) {
-  let leaseMs = leaseMsOpt !== undefined ? leaseMsOpt : 120000;
-  let maxWaitMs = maxWaitMsOpt !== undefined ? maxWaitMsOpt : 180000;
-  let lockId = `schema-push-lock:` + apiId;
-  _schemaLockCounter.contents = _schemaLockCounter.contents + 1 | 0;
-  let holder = apiId + `#` + Date.now().toString() + `#` + _schemaLockCounter.contents.toString();
-  let acquire = async () => {
-    let deadline = Date.now() + maxWaitMs;
-    let acquired = false;
-    while (!acquired) {
-      let now = Date.now();
-      let ok = await Stdlib_Promise.$$catch(DynamoDb_DocumentClient$AwsSdk.PutCommand.send(new LibDynamodb.PutCommand({
-        Item: Object.fromEntries([
-          [
-            "id",
-            lockId
-          ],
-          [
-            "holder",
-            holder
-          ],
-          [
-            "expiresAt",
-            now + leaseMs
-          ]
-        ]),
-        TableName: tableName,
-        ConditionExpression: "attribute_not_exists(id) OR expiresAt < :now",
-        ExpressionAttributeValues: Object.fromEntries([[
-            ":now",
-            now
-          ]])
-      })).then(param => true), param => Promise.resolve(false));
-      if (ok) {
-        acquired = true;
-      } else if (Date.now() > deadline) {
-        log.warn("AppSync_Adapter", undefined, `schema-push lock for ` + apiId + ` not acquired within ` + maxWaitMs.toString() + `ms — proceeding best-effort`);
-        acquired = true;
-      } else {
-        await schemaLockSleep(1000);
-      }
-    };
-  };
-  let release = async () => {
-    await Stdlib_Promise.$$catch(DynamoDb_DocumentClient$AwsSdk.DeleteCommand.send(new LibDynamodb.DeleteCommand({
-      TableName: tableName,
-      Key: Object.fromEntries([[
-          "id",
-          lockId
-        ]]),
-      ConditionExpression: "holder = :holder",
-      ExpressionAttributeValues: Object.fromEntries([[
-          ":holder",
-          holder
-        ]])
-    })).then(param => {}), param => Promise.resolve());
-  };
-  await acquire();
-  try {
-    let r = await fn();
-    await release();
-    return r;
-  } catch (exn) {
-    await release();
-    throw exn;
-  }
-}
-
 let _client = {
   contents: undefined
 };
@@ -408,9 +327,6 @@ export {
   waitForSchemaActive,
   getIntrospectionSdl,
   deploySchemaWithRetry,
-  schemaLockSleep,
-  _schemaLockCounter,
-  withSchemaPushLock,
   _client,
   getClient,
   _permissionToCognitoGroups,

package/src/plugin/runtime/PluginRuntime_Builder.res

@@ -3,38 +3,21 @@ let log = ReventlessCore.Logger.fromEnv()
 type adminConfig = {
   eventTopicArn: option<Pulumi.Output.t<string>>,
   pluginReadModelTableName: option<Pulumi.Output.t<string>>,
-  // Dedicated PluginSchemaPersistence table holding deploy-time SDL fragments
-  // (rows keyed "deploy-schema:<name>"). The runtime schema stitch reads this
-  // durable source instead of the lifecycle-volatile Plugin RM Connected rows.
-  pluginSchemaPersistenceTableName: option<Pulumi.Output.t<string>>,
   schedulerRoleArn: option<Pulumi.Output.t<string>>,
   schedulerQueueArn: option<Pulumi.Output.t<string>>,
   schedulerQueueName: option<Pulumi.Output.t<string>>,
   appSyncApiId: option<Pulumi.Output.t<string>>,
   clonerEnabled: bool,
-  // Reactive ApiFragmentRegistry single writer (2e), admin EventCollector only:
-  // the Platform AppSync id (split mode; unified → same as appSyncApiId), the
-  // ApiFragments StateViewSlice table it scans, the admin DCB command-topic FIFO
-  // URL it dispatches RecordApiFragmentPush to, and the split/unified mode flag.
-  platformApiId: option<Pulumi.Output.t<string>>,
-  apiFragmentRegistryTableName: option<Pulumi.Output.t<string>>,
-  adminDcbCmdTopicUrl: option<Pulumi.Output.t<string>>,
-  splitApi: bool,
 }
 
 let configRef: ref<adminConfig> = ref({
   eventTopicArn: None,
   pluginReadModelTableName: None,
-  pluginSchemaPersistenceTableName: None,
   schedulerRoleArn: None,
   schedulerQueueArn: None,
   schedulerQueueName: None,
   appSyncApiId: None,
   clonerEnabled: false,
-  platformApiId: None,
-  apiFragmentRegistryTableName: None,
-  adminDcbCmdTopicUrl: None,
-  splitApi: false,
 })
 
 type sliceModulePaths = {
@@ -111,31 +94,21 @@ let setStateChangesConfig = (~sync=?, ~async=?, ()) => {
 let registerConfig = (
   ~eventTopicArn=?,
   ~pluginReadModelTableName=?,
-  ~pluginSchemaPersistenceTableName=?,
   ~schedulerRoleArn=?,
   ~schedulerQueueArn=?,
   ~schedulerQueueName=?,
   ~appSyncApiId=?,
   ~clonerEnabled=false,
-  ~platformApiId=?,
-  ~apiFragmentRegistryTableName=?,
-  ~adminDcbCmdTopicUrl=?,
-  ~splitApi=false,
   (),
 ) =>
   configRef := {
     eventTopicArn,
     pluginReadModelTableName,
-    pluginSchemaPersistenceTableName,
     schedulerRoleArn,
     schedulerQueueArn,
     schedulerQueueName,
     appSyncApiId,
     clonerEnabled,
-    platformApiId,
-    apiFragmentRegistryTableName,
-    adminDcbCmdTopicUrl,
-    splitApi,
   }
 
 // PluginRuntime_Builder is a functor so that the caller can inject the EventCollectorChannel
@@ -318,10 +291,6 @@ module Make = (
         config.schedulerQueueName->outputOrPlaceholder->Obj.magic,
         config.appSyncApiId->outputOrPlaceholder->Obj.magic,
         epEventTopicArnsOutput->Pulumi.Output.asInput->Obj.magic,
-        config.pluginSchemaPersistenceTableName->outputOrPlaceholder->Obj.magic,
-        config.platformApiId->outputOrPlaceholder->Obj.magic,
-        config.apiFragmentRegistryTableName->outputOrPlaceholder->Obj.magic,
-        config.adminDcbCmdTopicUrl->outputOrPlaceholder->Obj.magic,
       ])
       ->Pulumi.Output.apply(values => {
         let queueUrl = values->Array.getUnsafe(0)
@@ -333,27 +302,13 @@ module Make = (
         let schedQueueName = values->Array.getUnsafe(6)
         let appSyncApiId = values->Array.getUnsafe(7)
         let epEventTopicArns: array<string> = Obj.magic(values->Array.getUnsafe(8))
-        let schemaPersistenceTable = values->Array.getUnsafe(9)
-        let platformApiId = values->Array.getUnsafe(10)
-        let apiFragmentRegistryTable = values->Array.getUnsafe(11)
-        let adminDcbCmdTopicUrl = values->Array.getUnsafe(12)
 
         let dict = Dict.make()
         dict->Dict.set("queueUrl", JSON.Encode.string(queueUrl))
         dict->Dict.set("pluginExtensionPointCmdTopicUrl", JSON.Encode.string(pluginEpCmdTopicUrl))
         dict->Dict.set("eventTopicArn", JSON.Encode.string(topLevelEventTopicArn))
         dict->Dict.set("pluginReadModelTableName", JSON.Encode.string(rmTable))
-        dict->Dict.set(
-          "pluginSchemaPersistenceTableName",
-          JSON.Encode.string(schemaPersistenceTable),
-        )
         dict->Dict.set("appSyncApiId", JSON.Encode.string(appSyncApiId))
-        // Reactive ApiFragmentRegistry single writer (2e) — placeholders for
-        // plugin ECs / all-at-once platforms disable it in the mjs.
-        dict->Dict.set("platformApiId", JSON.Encode.string(platformApiId))
-        dict->Dict.set("apiFragmentRegistryTableName", JSON.Encode.string(apiFragmentRegistryTable))
-        dict->Dict.set("adminDcbCmdTopicUrl", JSON.Encode.string(adminDcbCmdTopicUrl))
-        dict->Dict.set("splitApi", JSON.Encode.bool(config.splitApi))
         dict->Dict.set("clonerEnabled", JSON.Encode.bool(config.clonerEnabled))
         dict->Dict.set("schedulerRoleArn", JSON.Encode.string(schedRoleArn))
         dict->Dict.set("schedulerQueueArn", JSON.Encode.string(schedQueueArn))
@@ -643,100 +598,6 @@ module Make = (
       | None => ()
       }
 
-      // mkUpdateApiSchema reads each plugin's deploy-time SDL fragment from the
-      // dedicated PluginSchemaPersistence table (deploy-schema:<name> rows) to
-      // re-stitch the live schema. Grant Scan on that table too — it is owned by
-      // Platform.res, so the admin EC's default policy includes no perms on it.
-      switch config.pluginSchemaPersistenceTableName {
-      | Some(schemaTableOutput) =>
-        let policyJson =
-          schemaTableOutput->Pulumi.Output.apply(tableName =>
-            PulumiAws.PolicyDocument.make(
-              ~id=`${name}PluginSchemaScanPolicy`,
-              ~statements=[
-                {
-                  sid: "AllowAdminScanPluginSchemaPersistence",
-                  effect: Allow,
-                  actions: Actions(["dynamodb:Scan"]),
-                  resources: Resource("arn:aws:dynamodb:*:*:table/" ++ tableName),
-                },
-              ],
-            )->PulumiAws.PolicyDocument.toJsonString
-          )
-        let _ = PulumiAws.IAM.RolePolicy.make(
-          ~name=`${name}-pluginSchemaScan`,
-          ~args={
-            policy: policyJson->Pulumi.Output.asInput,
-            role: runtime.parts.lambdaRole.id->Pulumi.Output.asInput,
-          },
-        )
-      | None => ()
-      }
-
-      // 2e: the reactive ApiFragmentRegistry single writer scans the ApiFragments
-      // StateViewSlice table to re-fold the registry on each ApiFragment* event.
-      // The table is owned by the admin DcbBuilder, so grant Scan explicitly.
-      switch config.apiFragmentRegistryTableName {
-      | Some(tableOutput) =>
-        let policyJson =
-          tableOutput->Pulumi.Output.apply(tableName =>
-            PulumiAws.PolicyDocument.make(
-              ~id=`${name}ApiFragmentsScanPolicy`,
-              ~statements=[
-                {
-                  sid: "AllowAdminScanApiFragments",
-                  effect: Allow,
-                  actions: Actions(["dynamodb:Scan"]),
-                  resources: Resource("arn:aws:dynamodb:*:*:table/" ++ tableName),
-                },
-              ],
-            )->PulumiAws.PolicyDocument.toJsonString
-          )
-        let _ = PulumiAws.IAM.RolePolicy.make(
-          ~name=`${name}-apiFragmentsScan`,
-          ~args={
-            policy: policyJson->Pulumi.Output.asInput,
-            role: runtime.parts.lambdaRole.id->Pulumi.Output.asInput,
-          },
-        )
-      | None => ()
-      }
-
-      // 2e: the reactive push writes the outcome back with RecordApiFragmentPush,
-      // dispatched onto the admin DCB command-topic FIFO queue — grant
-      // sqs:SendMessage on it (queue URL → ARN, same derivation as
-      // publishToAggregates below).
-      switch config.adminDcbCmdTopicUrl {
-      | Some(urlOutput) =>
-        let policyJson =
-          urlOutput->Pulumi.Output.apply(url => {
-            let arn = switch url->String.split("/") {
-            | [_, _, host, acct, qn] =>
-              let region = host->String.split(".")->Array.get(1)->Option.getOr("eu-west-1")
-              `arn:aws:sqs:${region}:${acct}:${qn}`
-            | _ => url
-            }
-            PulumiAws.PolicyDocument.make(
-              ~id=`${name}AdminDcbSendPolicy`,
-              ~statements=[
-                {
-                  sid: "AllowAdminDispatchRecordApiFragmentPush",
-                  effect: Allow,
-                  actions: Actions(["sqs:SendMessage"]),
-                  resources: Resource(arn),
-                },
-              ],
-            )->PulumiAws.PolicyDocument.toJsonString
-          })
-        let _ = PulumiAws.IAM.RolePolicy.make(
-          ~name=`${name}-adminDcbSend`,
-          ~args={
-            policy: policyJson->Pulumi.Output.asInput,
-            role: runtime.parts.lambdaRole.id->Pulumi.Output.asInput,
-          },
-        )
-      | None => ()
-      }
     }
 
     // Plugin EC sqs:SendMessage grants on the aggregate / StateChangeSlice

package/src/plugin/runtime/PluginRuntime_Builder.res.mjs

@@ -25,16 +25,11 @@ let configRef = {
   contents: {
     eventTopicArn: undefined,
     pluginReadModelTableName: undefined,
-    pluginSchemaPersistenceTableName: undefined,
     schedulerRoleArn: undefined,
     schedulerQueueArn: undefined,
     schedulerQueueName: undefined,
     appSyncApiId: undefined,
-    clonerEnabled: false,
-    platformApiId: undefined,
-    apiFragmentRegistryTableName: undefined,
-    adminDcbCmdTopicUrl: undefined,
-    splitApi: false
+    clonerEnabled: false
   }
 };
 
@@ -108,22 +103,16 @@ function setStateChangesConfig(sync, async, param) {
   });
 }
 
-function registerConfig(eventTopicArn, pluginReadModelTableName, pluginSchemaPersistenceTableName, schedulerRoleArn, schedulerQueueArn, schedulerQueueName, appSyncApiId, clonerEnabledOpt, platformApiId, apiFragmentRegistryTableName, adminDcbCmdTopicUrl, splitApiOpt, param) {
+function registerConfig(eventTopicArn, pluginReadModelTableName, schedulerRoleArn, schedulerQueueArn, schedulerQueueName, appSyncApiId, clonerEnabledOpt, param) {
   let clonerEnabled = clonerEnabledOpt !== undefined ? clonerEnabledOpt : false;
-  let splitApi = splitApiOpt !== undefined ? splitApiOpt : false;
   configRef.contents = {
     eventTopicArn: eventTopicArn,
     pluginReadModelTableName: pluginReadModelTableName,
-    pluginSchemaPersistenceTableName: pluginSchemaPersistenceTableName,
     schedulerRoleArn: schedulerRoleArn,
     schedulerQueueArn: schedulerQueueArn,
     schedulerQueueName: schedulerQueueName,
     appSyncApiId: appSyncApiId,
-    clonerEnabled: clonerEnabled,
-    platformApiId: platformApiId,
-    apiFragmentRegistryTableName: apiFragmentRegistryTableName,
-    adminDcbCmdTopicUrl: adminDcbCmdTopicUrl,
-    splitApi: splitApi
+    clonerEnabled: clonerEnabled
   };
 }
 
@@ -209,11 +198,7 @@ function Make(EventCollectorChannel) {
       outputOrPlaceholder(config.schedulerQueueArn),
       outputOrPlaceholder(config.schedulerQueueName),
       outputOrPlaceholder(config.appSyncApiId),
-      epEventTopicArnsOutput,
-      outputOrPlaceholder(config.pluginSchemaPersistenceTableName),
-      outputOrPlaceholder(config.platformApiId),
-      outputOrPlaceholder(config.apiFragmentRegistryTableName),
-      outputOrPlaceholder(config.adminDcbCmdTopicUrl)
+      epEventTopicArnsOutput
     ]).apply(values => {
       let queueUrl = values[0];
       let pluginEpCmdTopicUrl = values[1];
@@ -224,21 +209,12 @@ function Make(EventCollectorChannel) {
       let schedQueueName = values[6];
       let appSyncApiId = values[7];
       let epEventTopicArns = values[8];
-      let schemaPersistenceTable = values[9];
-      let platformApiId = values[10];
-      let apiFragmentRegistryTable = values[11];
-      let adminDcbCmdTopicUrl = values[12];
       let dict = {};
       dict["queueUrl"] = queueUrl;
       dict["pluginExtensionPointCmdTopicUrl"] = pluginEpCmdTopicUrl;
       dict["eventTopicArn"] = topLevelEventTopicArn;
       dict["pluginReadModelTableName"] = rmTable;
-      dict["pluginSchemaPersistenceTableName"] = schemaPersistenceTable;
       dict["appSyncApiId"] = appSyncApiId;
-      dict["platformApiId"] = platformApiId;
-      dict["apiFragmentRegistryTableName"] = apiFragmentRegistryTable;
-      dict["adminDcbCmdTopicUrl"] = adminDcbCmdTopicUrl;
-      dict["splitApi"] = config.splitApi;
       dict["clonerEnabled"] = config.clonerEnabled;
       dict["schedulerRoleArn"] = schedRoleArn;
       dict["schedulerQueueArn"] = schedQueueArn;
@@ -383,58 +359,6 @@ function Make(EventCollectorChannel) {
           role: runtime.parts.lambdaRole.id
         });
       }
-      let schemaTableOutput = config.pluginSchemaPersistenceTableName;
-      if (schemaTableOutput !== undefined) {
-        let policyJson$1 = schemaTableOutput.apply(tableName => PolicyDocument$PulumiAws.toJsonString(PolicyDocument$PulumiAws.make(undefined, name + `PluginSchemaScanPolicy`, [{
-            Sid: "AllowAdminScanPluginSchemaPersistence",
-            Effect: "Allow",
-            Action: ["dynamodb:Scan"],
-            Resource: "arn:aws:dynamodb:*:*:table/" + tableName
-          }])));
-        new (Aws.iam.RolePolicy)(name + `-pluginSchemaScan`, {
-          policy: policyJson$1,
-          role: runtime.parts.lambdaRole.id
-        });
-      }
-      let tableOutput = config.apiFragmentRegistryTableName;
-      if (tableOutput !== undefined) {
-        let policyJson$2 = tableOutput.apply(tableName => PolicyDocument$PulumiAws.toJsonString(PolicyDocument$PulumiAws.make(undefined, name + `ApiFragmentsScanPolicy`, [{
-            Sid: "AllowAdminScanApiFragments",
-            Effect: "Allow",
-            Action: ["dynamodb:Scan"],
-            Resource: "arn:aws:dynamodb:*:*:table/" + tableName
-          }])));
-        new (Aws.iam.RolePolicy)(name + `-apiFragmentsScan`, {
-          policy: policyJson$2,
-          role: runtime.parts.lambdaRole.id
-        });
-      }
-      let urlOutput = config.adminDcbCmdTopicUrl;
-      if (urlOutput !== undefined) {
-        let policyJson$3 = urlOutput.apply(url => {
-          let match = url.split("/");
-          let arn;
-          if (match.length !== 5) {
-            arn = url;
-          } else {
-            let host = match[2];
-            let acct = match[3];
-            let qn = match[4];
-            let region = Stdlib_Option.getOr(host.split(".")[1], "eu-west-1");
-            arn = `arn:aws:sqs:` + region + `:` + acct + `:` + qn;
-          }
-          return PolicyDocument$PulumiAws.toJsonString(PolicyDocument$PulumiAws.make(undefined, name + `AdminDcbSendPolicy`, [{
-              Sid: "AllowAdminDispatchRecordApiFragmentPush",
-              Effect: "Allow",
-              Action: ["sqs:SendMessage"],
-              Resource: arn
-            }]));
-        });
-        new (Aws.iam.RolePolicy)(name + `-adminDcbSend`, {
-          policy: policyJson$3,
-          role: runtime.parts.lambdaRole.id
-        });
-      }
     }
     let aggregateNameSet = {};
     context.extensions.forEach(ext => {

package/tests/ApiSchemaPushTest.res

@@ -21,4 +21,12 @@ describe("ApiSchemaPush SideEffect Source (runtime materialisation)", () => {
     let tags = Reventless.DcbTag.extractAllVariantNames(ApiSchemaPush.Source.eventSchema)
     expect(tags)->toContain("ApiSchemaComputed")
   })
+
+  testSync("Source.Id is a live module — the reflective id round-trip does not crash", () => {
+    // SideEffectHandler_Callback reads `Source.Id.schema` on the id-bearing registry events.
+    // A bare `module Id` alias compiles to `Id: undefined` in the Source record, so any access
+    // (makeFromString/toString/schema) throws "reading 'schema'"/undefined on a regression.
+    let id = "registry"->ApiSchemaPush.Source.Id.makeFromString
+    expect(id->ApiSchemaPush.Source.Id.toString)->toBe("registry")
+  })
 })

package/tests/ApiSchemaPushTest.res.mjs

@@ -11,6 +11,10 @@ globalThis.describe("ApiSchemaPush SideEffect Source (runtime materialisation)",
     let tags = DcbTag$Reventless.extractAllVariantNames(ApiSchemaPush$ReventlessAws.Source.eventSchema);
     globalThis.expect(tags).toContain("ApiSchemaComputed");
   });
+  globalThis.test("Source.Id is a live module — the reflective id round-trip does not crash", () => {
+    let id = ApiSchemaPush$ReventlessAws.Source.Id.makeFromString("registry");
+    globalThis.expect(ApiSchemaPush$ReventlessAws.Source.Id.toString(id)).toBe("registry");
+  });
 });
 
 /*  Not a pure module */

package/tests/MCP_LambdaTest.res

@@ -7,8 +7,9 @@ describe("MCP_Lambda.generateAdminConfig", () => {
       ~serverVersion="1.0.0",
       ~cloner=false,
     )
-    // Admin has Plugin_Activate, Plugin_Deactivate, Plugin_Retire mutations
-    expect(config.tools)->toHaveLength(3)
+    // Admin has Plugin_Activate, Plugin_Deactivate, Plugin_Retire +
+    // ApiFragmentRegistry_Register/DeregisterApiFragment mutations
+    expect(config.tools)->toHaveLength(5)
   })
 
   testSync("produces additional clone tool when cloner=true", () => {
@@ -17,8 +18,9 @@ describe("MCP_Lambda.generateAdminConfig", () => {
       ~serverVersion="1.0.0",
       ~cloner=true,
     )
-    // Plugin_Activate, Plugin_Deactivate, Plugin_Retire, Clone
-    expect(config.tools)->toHaveLength(4)
+    // Plugin_Activate, Plugin_Deactivate, Plugin_Retire,
+    // ApiFragmentRegistry_Register/DeregisterApiFragment, Clone
+    expect(config.tools)->toHaveLength(6)
   })
 
   testSync("produces resources from admin query entries", () => {

package/tests/MCP_LambdaTest.res.mjs

@@ -6,11 +6,11 @@ import * as MCP_Lambda$ReventlessAws from "../src/adapter/Mcp/MCP_Lambda.res.mjs
 globalThis.describe("MCP_Lambda.generateAdminConfig", () => {
   globalThis.test("produces tools from admin mutation entries (no cloner)", () => {
     let config = MCP_Lambda$ReventlessAws.generateAdminConfig("test", "1.0.0", false, undefined, undefined);
-    globalThis.expect(config.tools).toHaveLength(3);
+    globalThis.expect(config.tools).toHaveLength(5);
   });
   globalThis.test("produces additional clone tool when cloner=true", () => {
     let config = MCP_Lambda$ReventlessAws.generateAdminConfig("test", "1.0.0", true, undefined, undefined);
-    globalThis.expect(config.tools).toHaveLength(4);
+    globalThis.expect(config.tools).toHaveLength(6);
   });
   globalThis.test("produces resources from admin query entries", () => {
     let config = MCP_Lambda$ReventlessAws.generateAdminConfig("test", "1.0.0", undefined, undefined, undefined);