@reventlessdev/reventless-aws 3.0.0-alpha.232 → 3.0.0-alpha.234

package/tests/EventMapperEntryPoint_OpsTest.res.mjs

@@ -0,0 +1,120 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Effect from "effect/Effect";
+import * as Message$ReventlessCore from "@reventlessdev/reventless-core/src/Message.res.mjs";
+import * as EventMapperEntryPoint_Ops$ReventlessAws from "../src/adapter/Runtime/EventMapperEntryPoint_Ops.res.mjs";
+
+function sqsRecord(body) {
+  return {
+    messageId: "m1",
+    receiptHandle: "r1",
+    body: body,
+    md5OfBody: "",
+    eventSource: "aws:sqs",
+    eventSourceARN: "arn:aws:sqs:eu-west-1:000000000000:q",
+    awsRegion: "eu-west-1"
+  };
+}
+
+let context = {
+  callbackWaitsForEmptyEventLoop: false,
+  functionName: "test",
+  functionVersion: "1",
+  invokedFunctionArn: "arn:test",
+  memoryLimitInMB: 128,
+  awsRequestId: "req-1",
+  logGroupName: "lg",
+  logStreamName: "ls"
+};
+
+globalThis.describe("EventMapperEntryPoint_Ops.parseHandlerConfig", () => {
+  globalThis.test("reads the builder's field names", () => {
+    let config = EventMapperEntryPoint_Ops$ReventlessAws.parseHandlerConfig(`{"targetSpecModule":"@x/p/src/Aggregate/Product.res.mjs","mappingsModule":"@x/p/src/Aggregate/Product_Mappings.res.mjs","queueUrl":"https://sqs/q"}`);
+    globalThis.expect(config.targetSpecModule).toEqual("@x/p/src/Aggregate/Product.res.mjs");
+    globalThis.expect(config.mappingsModule).toEqual("@x/p/src/Aggregate/Product_Mappings.res.mjs");
+    globalThis.expect(config.queueUrl).toEqual("https://sqs/q");
+  });
+});
+
+globalThis.describe("EventMapperEntryPoint_Ops.makeCounterOps", () => {
+  globalThis.test("queryEngine stubs return empty results instead of crashing", async () => {
+    let ops = EventMapperEntryPoint_Ops$ReventlessAws.makeCounterOps({
+      queueUrl: "https://sqs/q"
+    });
+    let scanned = await ops.queryEngine.scan("X", [], 10);
+    globalThis.expect(scanned.length).toBe(0);
+    let queried = await ops.queryEngine.query("X", undefined, {
+      TAG: "String",
+      _0: "a"
+    }, undefined, undefined, undefined, undefined);
+    globalThis.expect(queried.length).toBe(0);
+  });
+});
+
+globalThis.describe("EventMapperEntryPoint_Ops.makeStreamHandler", () => {
+  globalThis.test("parses SQS bodies, runs commonEventsHandler, publishes produced commands", async () => {
+    let received = {
+      contents: []
+    };
+    let published = {
+      contents: []
+    };
+    let ops_publishJsons = async jsons => {
+      published.contents = published.contents.concat(jsons);
+    };
+    let ops_queryEngine = {
+      scan: async (param, param$1, param$2) => [],
+      query: async (param, param$1, param$2, param$3, param$4, param$5, param$6) => []
+    };
+    let ops = {
+      publishJsons: ops_publishJsons,
+      queryEngine: ops_queryEngine
+    };
+    let command_meta = Message$ReventlessCore.generateMeta("Product", "", "test", undefined, undefined, undefined, undefined, undefined);
+    let command = {
+      id: "prd-1",
+      meta: command_meta,
+      commandJson: "Add"
+    };
+    let commonEventsHandler = async jsons => {
+      received.contents = received.contents.concat(jsons);
+      return [
+        Promise.resolve([command]),
+        []
+      ];
+    };
+    let streamHandler = EventMapperEntryPoint_Ops$ReventlessAws.makeStreamHandler(ops, commonEventsHandler);
+    let event = {
+      Records: [
+        {
+          messageId: "m1",
+          receiptHandle: "r1",
+          body: `{"id":"e1","event":"Added"}`,
+          md5OfBody: "",
+          eventSource: "aws:sqs",
+          eventSourceARN: "arn:aws:sqs:eu-west-1:000000000000:q",
+          awsRegion: "eu-west-1"
+        },
+        {
+          messageId: "m1",
+          receiptHandle: "r1",
+          body: "not json",
+          md5OfBody: "",
+          eventSource: "aws:sqs",
+          eventSourceARN: "arn:aws:sqs:eu-west-1:000000000000:q",
+          awsRegion: "eu-west-1"
+        }
+      ]
+    };
+    await Effect.runPromise(streamHandler(event, context));
+    globalThis.expect(received.contents.length).toBe(1);
+    globalThis.expect(published.contents.length).toBe(1);
+    globalThis.expect(published.contents[0].id).toBe("prd-1");
+  });
+});
+
+export {
+  sqsRecord,
+  context,
+}
+/*  Not a pure module */

package/tests/ExtensionPointEntryPoint_OpsTest.res

@@ -0,0 +1,57 @@
+// Guards the typed cold-start core hoisted out of ExtensionPointEntryPoint.mjs:
+//   - parseHandlerConfig — the {specModule, mappingsModule, queueUrl,
+//     publishToAggregates} shape written by
+//     ExtensionPointRuntime_Builder_PerExtensionPoint.
+//   - makeCallbackSpec — env-var resolution of the per-aggregate publish dict
+//     and the stub shapes (the former shell's scheduler/resourceNaming stubs
+//     carried wrong field names, crashing with "not a function" instead of the
+//     intended error).
+
+open JestGlobals
+
+@val @scope("process") external processEnv: dict<string> = "env"
+
+describe("ExtensionPointEntryPoint_Ops.parseHandlerConfig", () => {
+  testSync("reads the builder's field names", () => {
+    let config = ExtensionPointEntryPoint_Ops.parseHandlerConfig(
+      `{"specModule":"@x/spec/src/Products_ExtensionPoint.res.mjs","mappingsModule":"@x/p/src/ExtensionPoint/Products_ExtensionPointMapping.res.mjs","queueUrl":"https://sqs/ep","publishToAggregates":{"Product":"EP_TEST_PRODUCT_QUEUE"}}`,
+    )
+    expect(config.specModule)->toEqual(Some("@x/spec/src/Products_ExtensionPoint.res.mjs"))
+    expect(config.queueUrl)->toEqual(Some("https://sqs/ep"))
+    expect(config.publishToAggregates->Option.flatMap(d => d->Dict.get("Product")))->toEqual(
+      Some("EP_TEST_PRODUCT_QUEUE"),
+    )
+  })
+})
+
+describe("ExtensionPointEntryPoint_Ops.makeCallbackSpec", () => {
+  testSync("resolves publishToAggregates queue URLs via env vars", () => {
+    processEnv->Dict.set("EP_TEST_PRODUCT_QUEUE", "https://sqs/product")
+    let spec = ExtensionPointEntryPoint_Ops.makeCallbackSpec({
+      queueUrl: "https://sqs/ep",
+      publishToAggregates: Dict.fromArray([("Product", "EP_TEST_PRODUCT_QUEUE")]),
+    })
+    expect(spec.publishToAggregates->Dict.keysToArray)->toEqual(["Product"])
+    expect(spec.commandTopicResources->Array.length)->toBe(0)
+  })
+
+  testSync("scheduler and queryEngine stubs throw the intended errors", () => {
+    let spec = ExtensionPointEntryPoint_Ops.makeCallbackSpec({})
+    let scanThrew = switch spec.queryEngine.scan(~readModelName="X", ~filterConfigs=[], ~limit=1) {
+    | _ => false
+    | exception _ => true
+    }
+    expect(scanThrew)->toBe(true)
+    let deleteThrew = switch spec.scheduler.deleteSchedule([], "s") {
+    | _ => false
+    | exception _ => true
+    }
+    expect(deleteThrew)->toBe(true)
+  })
+
+  testSync("resourceNaming passes names through", () => {
+    let spec = ExtensionPointEntryPoint_Ops.makeCallbackSpec({})
+    expect(spec.resourceNaming.validateName("My-Name"))->toBe("My-Name")
+    expect(spec.resourceNaming.urnName("arn:x"))->toBe("arn:x")
+  })
+})

package/tests/ExtensionPointEntryPoint_OpsTest.res.mjs

@@ -0,0 +1,54 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as ExtensionPointEntryPoint_Ops$ReventlessAws from "../src/adapter/Runtime/ExtensionPointEntryPoint_Ops.res.mjs";
+
+globalThis.describe("ExtensionPointEntryPoint_Ops.parseHandlerConfig", () => {
+  globalThis.test("reads the builder's field names", () => {
+    let config = ExtensionPointEntryPoint_Ops$ReventlessAws.parseHandlerConfig(`{"specModule":"@x/spec/src/Products_ExtensionPoint.res.mjs","mappingsModule":"@x/p/src/ExtensionPoint/Products_ExtensionPointMapping.res.mjs","queueUrl":"https://sqs/ep","publishToAggregates":{"Product":"EP_TEST_PRODUCT_QUEUE"}}`);
+    globalThis.expect(config.specModule).toEqual("@x/spec/src/Products_ExtensionPoint.res.mjs");
+    globalThis.expect(config.queueUrl).toEqual("https://sqs/ep");
+    globalThis.expect(Stdlib_Option.flatMap(config.publishToAggregates, d => d["Product"])).toEqual("EP_TEST_PRODUCT_QUEUE");
+  });
+});
+
+globalThis.describe("ExtensionPointEntryPoint_Ops.makeCallbackSpec", () => {
+  globalThis.test("resolves publishToAggregates queue URLs via env vars", () => {
+    process.env["EP_TEST_PRODUCT_QUEUE"] = "https://sqs/product";
+    let spec = ExtensionPointEntryPoint_Ops$ReventlessAws.makeCallbackSpec({
+      queueUrl: "https://sqs/ep",
+      publishToAggregates: Object.fromEntries([[
+          "Product",
+          "EP_TEST_PRODUCT_QUEUE"
+        ]])
+    });
+    globalThis.expect(Object.keys(spec.publishToAggregates)).toEqual(["Product"]);
+    globalThis.expect(spec.commandTopicResources.length).toBe(0);
+  });
+  globalThis.test("scheduler and queryEngine stubs throw the intended errors", () => {
+    let spec = ExtensionPointEntryPoint_Ops$ReventlessAws.makeCallbackSpec({});
+    let scanThrew;
+    try {
+      spec.queryEngine.scan("X", [], 1);
+      scanThrew = false;
+    } catch (exn) {
+      scanThrew = true;
+    }
+    globalThis.expect(scanThrew).toBe(true);
+    let deleteThrew;
+    try {
+      spec.scheduler.deleteSchedule([], "s");
+      deleteThrew = false;
+    } catch (exn$1) {
+      deleteThrew = true;
+    }
+    globalThis.expect(deleteThrew).toBe(true);
+  });
+  globalThis.test("resourceNaming passes names through", () => {
+    let spec = ExtensionPointEntryPoint_Ops$ReventlessAws.makeCallbackSpec({});
+    globalThis.expect(spec.resourceNaming.validateName("My-Name")).toBe("My-Name");
+    globalThis.expect(spec.resourceNaming.urnName("arn:x")).toBe("arn:x");
+  });
+});
+
+/*  Not a pure module */

package/tests/PgMigrationEntryPoint_IntegrationTest.res

@@ -16,42 +16,33 @@ open JestGlobals
 
 @val external processEnv: dict<string> = "process.env"
 
-// Import the .mjs entry point and call runMigration with the pool injected.
-// Returns "ok" on success. A minimal pgConnection satisfies the guard; the real
-// fields are ignored because `makePool` is injected.
-let runMigrationWithPool: (
-  ReventlessPostgres.PgDriver.pool,
-) => promise<string> = %raw(`
-  async (pool) => {
-    const { runMigration } = await import(
-      "@reventlessdev/reventless-aws/src/adapter/Runtime/PgMigrationEntryPoint.mjs"
-    );
-    const config = {
+// Drive the real ReScript `runMigration` with the pool injected — the guard
+// rejects a HANDLER_CONFIG with no pgConnection; the real fields below are
+// ignored because `~makePool` is injected. Returns "ok" on success.
+let runMigrationWithPool = (pool: ReventlessPostgres.PgDriver.pool): promise<string> =>
+  PgMigrationEntryPoint.runMigration(
+    {
       pgConnection: {
-        host: "ignored", port: 5432, database: "ignored",
-        username: "ignored", secretArn: "ignored",
+        host: "ignored",
+        port: 5432,
+        database: "ignored",
+        username: "ignored",
+        secretArn: "ignored",
       },
-    };
-    return await runMigration(config, { makePool: () => pool });
-  }
-`)
-
-// runMigration with an empty config — the guard must reject a HANDLER_CONFIG
-// that carries no pgConnection (a misconfigured deploy), rather than silently
-// building a bad pool.
-let runMigrationMissingConfigThrows: unit => promise<bool> = %raw(`
-  async () => {
-    const { runMigration } = await import(
-      "@reventlessdev/reventless-aws/src/adapter/Runtime/PgMigrationEntryPoint.mjs"
-    );
-    try { await runMigration({}, {}); return false; }
-    catch { return true; }
-  }
-`)
+    },
+    ~makePool=_ => pool,
+  )
 
 describe("PgMigrationEntryPoint.runMigration", () => {
   testPromise("rejects a HANDLER_CONFIG with no pgConnection", async () => {
-    let threw = await runMigrationMissingConfigThrows()
+    // An empty config carries no pgConnection (a misconfigured deploy); the
+    // guard must reject it rather than silently building a bad pool.
+    let threw = try {
+      let _ = await PgMigrationEntryPoint.runMigration({pgConnection: ?None})
+      false
+    } catch {
+    | _ => true
+    }
     expect(threw)->toBe(true)
   })
 

package/tests/PgMigrationEntryPoint_IntegrationTest.res.mjs

@@ -1,33 +1,31 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
 import * as PgDriver$ReventlessPostgres from "@reventlessdev/reventless-postgres/src/PgDriver.res.mjs";
+import * as PgMigrationEntryPoint$ReventlessAws from "../src/adapter/Runtime/PgMigrationEntryPoint.res.mjs";
 import * as EventLogStorage_Postgres$ReventlessPostgres from "@reventlessdev/reventless-postgres/src/EventLogStorage_Postgres.res.mjs";
 import * as DcbEventLogStorage_Postgres$ReventlessPostgres from "@reventlessdev/reventless-postgres/src/DcbEventLogStorage_Postgres.res.mjs";
 
-let runMigrationWithPool = (async (pool) => {
-    const { runMigration } = await import(
-      "@reventlessdev/reventless-aws/src/adapter/Runtime/PgMigrationEntryPoint.mjs"
-    );
-    const config = {
-      pgConnection: {
-        host: "ignored", port: 5432, database: "ignored",
-        username: "ignored", secretArn: "ignored",
-      },
-    };
-    return await runMigration(config, { makePool: () => pool });
-  });
-
-let runMigrationMissingConfigThrows = (async () => {
-    const { runMigration } = await import(
-      "@reventlessdev/reventless-aws/src/adapter/Runtime/PgMigrationEntryPoint.mjs"
-    );
-    try { await runMigration({}, {}); return false; }
-    catch { return true; }
-  });
+function runMigrationWithPool(pool) {
+  return PgMigrationEntryPoint$ReventlessAws.runMigration({
+    pgConnection: {
+      host: "ignored",
+      port: 5432,
+      database: "ignored",
+      username: "ignored",
+      secretArn: "ignored"
+    }
+  }, param => pool);
+}
 
 globalThis.describe("PgMigrationEntryPoint.runMigration", () => {
   globalThis.test("rejects a HANDLER_CONFIG with no pgConnection", async () => {
-    let threw = await runMigrationMissingConfigThrows();
+    let threw;
+    try {
+      await PgMigrationEntryPoint$ReventlessAws.runMigration({}, undefined);
+      threw = false;
+    } catch (exn) {
+      threw = true;
+    }
     globalThis.expect(threw).toBe(true);
   });
   let url = process.env["PG_URL"];
@@ -58,6 +56,5 @@ globalThis.describe("PgMigrationEntryPoint.runMigration", () => {
 
 export {
   runMigrationWithPool,
-  runMigrationMissingConfigThrows,
 }
-/* runMigrationWithPool Not a pure module */
+/*  Not a pure module */

package/tests/PgQueryResolverEntryPoint_OpsTest.res

@@ -0,0 +1,38 @@
+// Guards the typed cold-start core hoisted out of PgQueryResolverEntryPoint.mjs:
+//   - parseResolverConfig — the {pgConnection, handlers, nodeTypes} shape
+//     written by PgQueryResolver_Builder; a drift here silently drops a
+//     Postgres read model's GraphQL bindings (or its Relay node types) at
+//     cold start.
+
+open JestGlobals
+
+describe("PgQueryResolverEntryPoint_Ops.parseResolverConfig", () => {
+  testSync("empty raw config yields no connection and no handlers", () => {
+    let config = PgQueryResolverEntryPoint_Ops.parseResolverConfig("")
+    expect(config.pgConnection->Option.isNone)->toBe(true)
+    expect(config.handlers->Array.length)->toBe(0)
+    expect(config.nodeTypes->Dict.keysToArray->Array.length)->toBe(0)
+  })
+
+  testSync("null pgConnection decodes to None", () => {
+    let config = PgQueryResolverEntryPoint_Ops.parseResolverConfig(
+      `{"pgConnection":null,"handlers":[]}`,
+    )
+    expect(config.pgConnection->Option.isNone)->toBe(true)
+  })
+
+  testSync("decodes connection, handlers, and node types", () => {
+    let config = PgQueryResolverEntryPoint_Ops.parseResolverConfig(
+      `{"pgConnection":{"host":"db.local","port":5432,"database":"app","username":"master","secretArn":"arn:secret"},"handlers":[{"readModelName":"Products","specModule":"@x/p/src/ReadModel/Products.res.mjs","labelField":"name","includeIdParam":true},{"readModelName":"Orders","specModule":"@x/p/src/ReadModel/Orders.res.mjs","labelField":"id","includeIdParam":false}],"nodeTypes":{"Product":"Products"}}`,
+    )
+    expect(config.pgConnection->Option.map(cc => cc.host))->toEqual(Some("db.local"))
+    expect(config.handlers->Array.length)->toBe(2)
+    let first = config.handlers->Array.getUnsafe(0)
+    expect(first.readModelName)->toBe("Products")
+    expect(first.specModule)->toBe("@x/p/src/ReadModel/Products.res.mjs")
+    expect(first.labelField)->toBe("name")
+    expect(first.includeIdParam)->toBe(true)
+    expect((config.handlers->Array.getUnsafe(1)).includeIdParam)->toBe(false)
+    expect(config.nodeTypes->Dict.get("Product"))->toEqual(Some("Products"))
+  })
+})

package/tests/PgQueryResolverEntryPoint_OpsTest.res.mjs

@@ -0,0 +1,31 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as PgQueryResolverEntryPoint_Ops$ReventlessAws from "../src/adapter/Runtime/PgQueryResolverEntryPoint_Ops.res.mjs";
+
+globalThis.describe("PgQueryResolverEntryPoint_Ops.parseResolverConfig", () => {
+  globalThis.test("empty raw config yields no connection and no handlers", () => {
+    let config = PgQueryResolverEntryPoint_Ops$ReventlessAws.parseResolverConfig("");
+    globalThis.expect(Stdlib_Option.isNone(config.pgConnection)).toBe(true);
+    globalThis.expect(config.handlers.length).toBe(0);
+    globalThis.expect(Object.keys(config.nodeTypes).length).toBe(0);
+  });
+  globalThis.test("null pgConnection decodes to None", () => {
+    let config = PgQueryResolverEntryPoint_Ops$ReventlessAws.parseResolverConfig(`{"pgConnection":null,"handlers":[]}`);
+    globalThis.expect(Stdlib_Option.isNone(config.pgConnection)).toBe(true);
+  });
+  globalThis.test("decodes connection, handlers, and node types", () => {
+    let config = PgQueryResolverEntryPoint_Ops$ReventlessAws.parseResolverConfig(`{"pgConnection":{"host":"db.local","port":5432,"database":"app","username":"master","secretArn":"arn:secret"},"handlers":[{"readModelName":"Products","specModule":"@x/p/src/ReadModel/Products.res.mjs","labelField":"name","includeIdParam":true},{"readModelName":"Orders","specModule":"@x/p/src/ReadModel/Orders.res.mjs","labelField":"id","includeIdParam":false}],"nodeTypes":{"Product":"Products"}}`);
+    globalThis.expect(Stdlib_Option.map(config.pgConnection, cc => cc.host)).toEqual("db.local");
+    globalThis.expect(config.handlers.length).toBe(2);
+    let first = config.handlers[0];
+    globalThis.expect(first.readModelName).toBe("Products");
+    globalThis.expect(first.specModule).toBe("@x/p/src/ReadModel/Products.res.mjs");
+    globalThis.expect(first.labelField).toBe("name");
+    globalThis.expect(first.includeIdParam).toBe(true);
+    globalThis.expect(config.handlers[1].includeIdParam).toBe(false);
+    globalThis.expect(config.nodeTypes["Product"]).toEqual("Products");
+  });
+});
+
+/*  Not a pure module */

package/tests/Platform_AdminScan_OpsTest.res

@@ -0,0 +1,80 @@
+// Guards the pure logic hoisted out of the two admin-query resolver Lambdas'
+// former inline JS strings (Platform_UIFragments, Platform_ComponentDefinitions)
+// into the shared, type-checked Platform_AdminScan_Ops:
+//   - `compareVersions` — a byte-for-byte port of the JS `cmpVer` comparator.
+//   - `latestByName`    — the highest-version-per-plugin-name collapse.
+// The DynamoDB scan itself is an SDK call, not unit-tested here.
+
+open JestGlobals
+
+let cmp = Platform_AdminScan_Ops.compareVersions
+
+describe("Platform_AdminScan_Ops.compareVersions", () => {
+  testSync("orders numeric segments as numbers, not lexically", () => {
+    // Lexical order would put "10" < "9"; numeric order is the opposite.
+    expect(cmp("1.10.0", "1.9.0"))->toBe(1)
+    expect(cmp("1.9.0", "1.10.0"))->toBe(-1)
+  })
+
+  testSync("equal versions compare to 0", () => {
+    expect(cmp("2.3.4", "2.3.4"))->toBe(0)
+  })
+
+  testSync("a longer version outranks its prefix", () => {
+    // "1.2" normalises to ["1","2"]; "1.2.1" adds a segment (1 > missing "").
+    expect(cmp("1.2.1", "1.2"))->toBe(1)
+    expect(cmp("1.2", "1.2.1"))->toBe(-1)
+  })
+
+  testSync("normalises pre-release `-`/`+` separators to `.`", () => {
+    // "1.2.0-1" -> ["1","2","0","1"] outranks "1.2.0" -> ["1","2","0"].
+    expect(cmp("1.2.0-1", "1.2.0"))->toBe(1)
+  })
+
+  testSync("falls back to lexical order for non-numeric segments", () => {
+    expect(cmp("1.2.beta", "1.2.alpha"))->toBe(1)
+    expect(cmp("1.2.alpha", "1.2.beta"))->toBe(-1)
+  })
+})
+
+// A minimal DDB-row (attribute -> JSON value) for the collapse tests.
+let row = pairs => Dict.fromArray(pairs)
+let s = JSON.Encode.string
+
+describe("Platform_AdminScan_Ops.latestByName", () => {
+  // A trivial entry builder that echoes the resolved bare name; drops rows with
+  // no `keep` attribute (exercises the toEntry=None skip path).
+  let nameVersionOf = item => item->Dict.get("name")->Option.flatMap(JSON.Decode.string)
+  let toEntry = (item, ~name) =>
+    switch item->Dict.get("keep") {
+    | Some(_) => Some(JSON.Encode.object(Dict.fromArray([("pluginId", s(name))])))
+    | None => None
+    }
+
+  let pluginIdOf = json =>
+    json->JSON.Decode.object->Option.flatMap(o => o->Dict.get("pluginId"))->Option.flatMap(JSON.Decode.string)
+
+  testSync("keeps only the highest version per bare plugin name", () => {
+    let items = [
+      row([("name", s("Catalog@1.9.0")), ("keep", s("y"))]),
+      row([("name", s("Catalog@1.10.0")), ("keep", s("y"))]),
+      row([("name", s("Catalog@1.2.0")), ("keep", s("y"))]),
+      row([("name", s("Ordering@2.0.0")), ("keep", s("y"))]),
+    ]
+    let out = Platform_AdminScan_Ops.latestByName(items, ~nameVersionOf, ~toEntry)
+    let names = out->Array.filterMap(pluginIdOf)
+    // One entry per bare name.
+    expect(out->Array.length)->toBe(2)
+    expect(names->Array.includes("Catalog"))->toBe(true)
+    expect(names->Array.includes("Ordering"))->toBe(true)
+  })
+
+  testSync("drops rows the entry builder rejects", () => {
+    let items = [
+      row([("name", s("Catalog@1.0.0"))]), // no `keep` -> dropped
+      row([("name", s("Ordering@1.0.0")), ("keep", s("y"))]),
+    ]
+    let out = Platform_AdminScan_Ops.latestByName(items, ~nameVersionOf, ~toEntry)
+    expect(out->Array.filterMap(pluginIdOf))->toEqual(["Ordering"])
+  })
+})

package/tests/Platform_AdminScan_OpsTest.res.mjs

@@ -0,0 +1,127 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Stdlib_JSON from "@rescript/runtime/lib/es6/Stdlib_JSON.js";
+import * as Stdlib_Array from "@rescript/runtime/lib/es6/Stdlib_Array.js";
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as Platform_AdminScan_Ops$ReventlessAws from "../src/adapter/Api/Platform_AdminScan_Ops.res.mjs";
+
+globalThis.describe("Platform_AdminScan_Ops.compareVersions", () => {
+  globalThis.test("orders numeric segments as numbers, not lexically", () => {
+    globalThis.expect(Platform_AdminScan_Ops$ReventlessAws.compareVersions("1.10.0", "1.9.0")).toBe(1);
+    globalThis.expect(Platform_AdminScan_Ops$ReventlessAws.compareVersions("1.9.0", "1.10.0")).toBe(-1);
+  });
+  globalThis.test("equal versions compare to 0", () => {
+    globalThis.expect(Platform_AdminScan_Ops$ReventlessAws.compareVersions("2.3.4", "2.3.4")).toBe(0);
+  });
+  globalThis.test("a longer version outranks its prefix", () => {
+    globalThis.expect(Platform_AdminScan_Ops$ReventlessAws.compareVersions("1.2.1", "1.2")).toBe(1);
+    globalThis.expect(Platform_AdminScan_Ops$ReventlessAws.compareVersions("1.2", "1.2.1")).toBe(-1);
+  });
+  globalThis.test("normalises pre-release `-`/`+` separators to `.`", () => {
+    globalThis.expect(Platform_AdminScan_Ops$ReventlessAws.compareVersions("1.2.0-1", "1.2.0")).toBe(1);
+  });
+  globalThis.test("falls back to lexical order for non-numeric segments", () => {
+    globalThis.expect(Platform_AdminScan_Ops$ReventlessAws.compareVersions("1.2.beta", "1.2.alpha")).toBe(1);
+    globalThis.expect(Platform_AdminScan_Ops$ReventlessAws.compareVersions("1.2.alpha", "1.2.beta")).toBe(-1);
+  });
+});
+
+function row(pairs) {
+  return Object.fromEntries(pairs);
+}
+
+function s(prim) {
+  return prim;
+}
+
+globalThis.describe("Platform_AdminScan_Ops.latestByName", () => {
+  let nameVersionOf = item => Stdlib_Option.flatMap(item["name"], Stdlib_JSON.Decode.string);
+  let toEntry = (item, name) => {
+    let match = item["keep"];
+    if (match !== undefined) {
+      return Object.fromEntries([[
+          "pluginId",
+          name
+        ]]);
+    }
+  };
+  let pluginIdOf = json => Stdlib_Option.flatMap(Stdlib_Option.flatMap(Stdlib_JSON.Decode.object(json), o => o["pluginId"]), Stdlib_JSON.Decode.string);
+  globalThis.test("keeps only the highest version per bare plugin name", () => {
+    let items = [
+      Object.fromEntries([
+        [
+          "name",
+          "Catalog@1.9.0"
+        ],
+        [
+          "keep",
+          "y"
+        ]
+      ]),
+      Object.fromEntries([
+        [
+          "name",
+          "Catalog@1.10.0"
+        ],
+        [
+          "keep",
+          "y"
+        ]
+      ]),
+      Object.fromEntries([
+        [
+          "name",
+          "Catalog@1.2.0"
+        ],
+        [
+          "keep",
+          "y"
+        ]
+      ]),
+      Object.fromEntries([
+        [
+          "name",
+          "Ordering@2.0.0"
+        ],
+        [
+          "keep",
+          "y"
+        ]
+      ])
+    ];
+    let out = Platform_AdminScan_Ops$ReventlessAws.latestByName(items, nameVersionOf, toEntry);
+    let names = Stdlib_Array.filterMap(out, pluginIdOf);
+    globalThis.expect(out.length).toBe(2);
+    globalThis.expect(names.includes("Catalog")).toBe(true);
+    globalThis.expect(names.includes("Ordering")).toBe(true);
+  });
+  globalThis.test("drops rows the entry builder rejects", () => {
+    let items = [
+      Object.fromEntries([[
+          "name",
+          "Catalog@1.0.0"
+        ]]),
+      Object.fromEntries([
+        [
+          "name",
+          "Ordering@1.0.0"
+        ],
+        [
+          "keep",
+          "y"
+        ]
+      ])
+    ];
+    let out = Platform_AdminScan_Ops$ReventlessAws.latestByName(items, nameVersionOf, toEntry);
+    globalThis.expect(Stdlib_Array.filterMap(out, pluginIdOf)).toEqual(["Ordering"]);
+  });
+});
+
+let cmp = Platform_AdminScan_Ops$ReventlessAws.compareVersions;
+
+export {
+  cmp,
+  row,
+  s,
+}
+/*  Not a pure module */