@reventlessdev/reventless-aws 3.0.0-alpha.231 → 3.0.0-alpha.233

package/tests/EventCollectorEntryPoint_OpsTest.res.mjs

@@ -0,0 +1,339 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Stdlib_JsExn from "@rescript/runtime/lib/es6/Stdlib_JsExn.js";
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as Primitive_exceptions from "@rescript/runtime/lib/es6/Primitive_exceptions.js";
+import * as EventCollectorEntryPoint_Ops$ReventlessAws from "../src/adapter/Runtime/EventCollectorEntryPoint_Ops.res.mjs";
+
+function str(prim) {
+  return prim;
+}
+
+function obj(pairs) {
+  return Object.fromEntries(pairs);
+}
+
+globalThis.describe("EventCollectorEntryPoint_Ops.projectPluginRow", () => {
+  globalThis.test("rejects a non-object row", () => {
+    globalThis.expect(Stdlib_Option.isNone(EventCollectorEntryPoint_Ops$ReventlessAws.projectPluginRow("nope"))).toBe(true);
+  });
+  globalThis.test("rejects a row missing id or status", () => {
+    globalThis.expect(Stdlib_Option.isNone(EventCollectorEntryPoint_Ops$ReventlessAws.projectPluginRow(Object.fromEntries([[
+        "status",
+        "Connected"
+      ]])))).toBe(true);
+    globalThis.expect(Stdlib_Option.isNone(EventCollectorEntryPoint_Ops$ReventlessAws.projectPluginRow(Object.fromEntries([[
+        "id",
+        "Catalog@1"
+      ]])))).toBe(true);
+  });
+  globalThis.test("projects the id/status/eventCollector subset with defaults", () => {
+    let p = Stdlib_Option.getOrThrow(EventCollectorEntryPoint_Ops$ReventlessAws.projectPluginRow(Object.fromEntries([
+      [
+        "id",
+        "Catalog@1"
+      ],
+      [
+        "status",
+        "Connected"
+      ]
+    ])), undefined);
+    globalThis.expect(p.id).toBe("Catalog@1");
+    globalThis.expect(p.status).toBe("Connected");
+    globalThis.expect(p.eventCollector).toBe("");
+    globalThis.expect(p.extensions.length).toBe(0);
+    globalThis.expect(p.extensionPoints.length).toBe(0);
+    globalThis.expect(Stdlib_Option.isNone(p.dcbEventLog)).toBe(true);
+  });
+  globalThis.test("decodes extensions, dropping entries without extensionPointName", () => {
+    let row = Object.fromEntries([
+      [
+        "id",
+        "Ordering@2"
+      ],
+      [
+        "status",
+        "Connected"
+      ],
+      [
+        "eventCollector",
+        "ec-arn"
+      ],
+      [
+        "extensions",
+        [
+          Object.fromEntries([
+            [
+              "name",
+              "OrdersExt"
+            ],
+            [
+              "extensionPointName",
+              "Catalog.Products"
+            ],
+            [
+              "dcbSources",
+              [
+                "prod",
+                7
+              ]
+            ]
+          ]),
+          Object.fromEntries([[
+              "name",
+              "Malformed"
+            ]])
+        ]
+      ]
+    ]);
+    let p = Stdlib_Option.getOrThrow(EventCollectorEntryPoint_Ops$ReventlessAws.projectPluginRow(row), undefined);
+    globalThis.expect(p.eventCollector).toBe("ec-arn");
+    globalThis.expect(p.extensions.length).toBe(1);
+    let e = p.extensions[0];
+    globalThis.expect(e.name).toBe("OrdersExt");
+    globalThis.expect(e.extensionPointName).toBe("Catalog.Products");
+    globalThis.expect(e.dcbSources).toEqual(["prod"]);
+  });
+  globalThis.test("decodes extensionPoints and dcbEventLog; drops EPs without name/eventTopic", () => {
+    let row = Object.fromEntries([
+      [
+        "id",
+        "Catalog@1"
+      ],
+      [
+        "status",
+        "Connected"
+      ],
+      [
+        "extensionPoints",
+        [
+          Object.fromEntries([
+            [
+              "name",
+              "Catalog.Products"
+            ],
+            [
+              "eventTopic",
+              "t-arn"
+            ]
+          ]),
+          Object.fromEntries([[
+              "name",
+              "NoTopic"
+            ]])
+        ]
+      ],
+      [
+        "dcbEventLog",
+        Object.fromEntries([
+          [
+            "name",
+            "catalog-dcb"
+          ],
+          [
+            "eventTopicArn",
+            "dcb-arn"
+          ]
+        ])
+      ]
+    ]);
+    let p = Stdlib_Option.getOrThrow(EventCollectorEntryPoint_Ops$ReventlessAws.projectPluginRow(row), undefined);
+    globalThis.expect(p.extensionPoints.length).toBe(1);
+    let ep = p.extensionPoints[0];
+    globalThis.expect(ep.name).toBe("Catalog.Products");
+    globalThis.expect(ep.commandTopic).toBe("");
+    globalThis.expect(ep.eventTopic).toBe("t-arn");
+    let dcb = Stdlib_Option.getOrThrow(p.dcbEventLog, undefined);
+    globalThis.expect(dcb.name).toBe("catalog-dcb");
+    globalThis.expect(dcb.eventTopicArn).toBe("dcb-arn");
+  });
+  globalThis.test("drops a dcbEventLog missing eventTopicArn", () => {
+    let row = Object.fromEntries([
+      [
+        "id",
+        "Catalog@1"
+      ],
+      [
+        "status",
+        "Connected"
+      ],
+      [
+        "dcbEventLog",
+        Object.fromEntries([[
+            "name",
+            "catalog-dcb"
+          ]])
+      ]
+    ]);
+    globalThis.expect(Stdlib_Option.isNone(Stdlib_Option.getOrThrow(EventCollectorEntryPoint_Ops$ReventlessAws.projectPluginRow(row), undefined).dcbEventLog)).toBe(true);
+  });
+});
+
+function minimalConfig(extras) {
+  return JSON.stringify(Object.fromEntries([
+    [
+      "queueUrl",
+      "q-url"
+    ],
+    [
+      "pluginExtensionPointCmdTopicUrl",
+      "ep-url"
+    ],
+    [
+      "eventTopicArn",
+      "topic-arn"
+    ],
+    [
+      "pluginReadModelTableName",
+      "plugin-rm"
+    ],
+    [
+      "appSyncApiId",
+      "NOT_AVAILABLE"
+    ],
+    [
+      "schedulerRoleArn",
+      "role-arn"
+    ],
+    [
+      "schedulerQueueArn",
+      ""
+    ],
+    [
+      "schedulerQueueName",
+      ""
+    ],
+    [
+      "extensionPoints",
+      []
+    ],
+    [
+      "extensions",
+      []
+    ],
+    [
+      "publishToAggregates",
+      Object.fromEntries([])
+    ]
+  ].concat(extras)));
+}
+
+function throws(f) {
+  try {
+    f();
+    return;
+  } catch (raw_exn) {
+    let exn = Primitive_exceptions.internalToException(raw_exn);
+    return Stdlib_Option.flatMap(Stdlib_JsExn.fromException(exn), Stdlib_JsExn.message);
+  }
+}
+
+globalThis.describe("EventCollectorEntryPoint_Ops.parseHandlerConfig", () => {
+  globalThis.test("throws the named errors for empty / malformed / incomplete config", () => {
+    globalThis.expect(throws(() => EventCollectorEntryPoint_Ops$ReventlessAws.parseHandlerConfig(""))).toEqual("HANDLER_CONFIG env var is empty");
+    globalThis.expect(Stdlib_Option.mapOr(throws(() => EventCollectorEntryPoint_Ops$ReventlessAws.parseHandlerConfig("{nope")), false, m => m.startsWith("HANDLER_CONFIG JSON parse error:"))).toBe(true);
+    globalThis.expect(throws(() => EventCollectorEntryPoint_Ops$ReventlessAws.parseHandlerConfig(`{"queueUrl":"q"}`))).toEqual("HANDLER_CONFIG missing required field: pluginExtensionPointCmdTopicUrl");
+  });
+  globalThis.test("decodes a minimal config with empty-collection defaults", () => {
+    let c = EventCollectorEntryPoint_Ops$ReventlessAws.parseHandlerConfig(minimalConfig([]));
+    globalThis.expect(c.queueUrl).toBe("q-url");
+    globalThis.expect(Stdlib_Option.isNone(c.connectExtension)).toBe(true);
+    globalThis.expect(Object.keys(c.readModelQueueUrls).length).toBe(0);
+    globalThis.expect(Object.keys(c.readModelNamesForSourceName).length).toBe(0);
+  });
+  globalThis.test("connectExtension: JSON null (admin) maps to None; a record decodes", () => {
+    let asNull = EventCollectorEntryPoint_Ops$ReventlessAws.parseHandlerConfig(minimalConfig([[
+        "connectExtension",
+        null
+      ]]));
+    globalThis.expect(Stdlib_Option.isNone(asNull.connectExtension)).toBe(true);
+    let asRecord = EventCollectorEntryPoint_Ops$ReventlessAws.parseHandlerConfig(minimalConfig([[
+        "connectExtension",
+        Object.fromEntries([
+          [
+            "specModule",
+            "spec.mjs"
+          ],
+          [
+            "mappingsModule",
+            "map.mjs"
+          ],
+          [
+            "extensionPointName",
+            "Platform.Plugin"
+          ]
+        ])
+      ]]));
+    let ce = Stdlib_Option.getOrThrow(asRecord.connectExtension, undefined);
+    globalThis.expect(ce.extensionPointName).toBe("Platform.Plugin");
+  });
+  globalThis.test("extension entries get the former JS normalizer's defaults", () => {
+    let c = EventCollectorEntryPoint_Ops$ReventlessAws.parseHandlerConfig(minimalConfig([[
+        "extensions",
+        [Object.fromEntries([[
+              "extensionPointName",
+              "Ordering.Orders"
+            ]])]
+      ]]));
+    let ext = c.extensions[0];
+    globalThis.expect(ext.name).toBe("Ordering.Orders");
+    globalThis.expect(ext.specModule).toBe("");
+    globalThis.expect(ext.aggregateNames).toEqual([]);
+    globalThis.expect(ext.readModelNames).toEqual([]);
+  });
+  globalThis.test("decodes extensionPoints entries and the env-var maps", () => {
+    let c = EventCollectorEntryPoint_Ops$ReventlessAws.parseHandlerConfig(minimalConfig([
+      [
+        "extensionPoints",
+        [Object.fromEntries([
+            [
+              "specModule",
+              "s.mjs"
+            ],
+            [
+              "mappingsModule",
+              "m.mjs"
+            ],
+            [
+              "eventTopicArn",
+              "arn:ep"
+            ],
+            [
+              "aggregateNames",
+              ["Plugin"]
+            ]
+          ])]
+      ],
+      [
+        "publishToAggregates",
+        Object.fromEntries([[
+            "Plugin",
+            "PTA_Plugin_QUEUE_URL"
+          ]])
+      ],
+      [
+        "readModelNamesForSourceName",
+        Object.fromEntries([[
+            "Ordering.Orders",
+            ["ProductDemands"]
+          ]])
+      ]
+    ]));
+    let ep = c.extensionPoints[0];
+    globalThis.expect(ep.eventTopicArn).toBe("arn:ep");
+    globalThis.expect(ep.aggregateNames).toEqual(["Plugin"]);
+    globalThis.expect(c.publishToAggregates["Plugin"]).toEqual("PTA_Plugin_QUEUE_URL");
+    globalThis.expect(c.readModelNamesForSourceName["Ordering.Orders"]).toEqual(["ProductDemands"]);
+  });
+});
+
+let project = EventCollectorEntryPoint_Ops$ReventlessAws.projectPluginRow;
+
+export {
+  str,
+  obj,
+  project,
+  minimalConfig,
+  throws,
+}
+/*  Not a pure module */

package/tests/EventMapperEntryPoint_OpsTest.res

@@ -0,0 +1,103 @@
+// Guards the typed cold-start core hoisted out of EventMapperEntryPoint.mjs:
+//   - parseHandlerConfig — the {targetSpecModule, mappingsModule, queueUrl}
+//     shape written by AggregateRuntime_Builder_Micro / _Micro_Async.
+//   - makeCounterOps — the queryEngine stub shape (the former shell's stub had
+//     `query`/`get` fields where QueryEngine.operations needs `scan`/`query`).
+//   - makeStreamHandler — the full pipeline: SQS-record body parse →
+//     commonEventsHandler → publish of the produced commands.
+
+open JestGlobals
+
+external toCbRecord: PulumiAws.SQS.Queue.record => PulumiAws.Lambda.CallbackFunction.record =
+  "%identity"
+
+let sqsRecord = (body: string): PulumiAws.Lambda.CallbackFunction.record =>
+  (
+    {
+      messageId: "m1",
+      receiptHandle: "r1",
+      body,
+      md5OfBody: "",
+      eventSource: "aws:sqs",
+      eventSourceARN: "arn:aws:sqs:eu-west-1:000000000000:q",
+      awsRegion: "eu-west-1",
+    }: PulumiAws.SQS.Queue.record
+  )->toCbRecord
+
+let context: PulumiAws.Lambda.context = {
+  callbackWaitsForEmptyEventLoop: false,
+  functionName: "test",
+  functionVersion: "1",
+  invokedFunctionArn: "arn:test",
+  memoryLimitInMB: 128,
+  awsRequestId: "req-1",
+  logGroupName: "lg",
+  logStreamName: "ls",
+}
+
+describe("EventMapperEntryPoint_Ops.parseHandlerConfig", () => {
+  testSync("reads the builder's field names", () => {
+    let config = EventMapperEntryPoint_Ops.parseHandlerConfig(
+      `{"targetSpecModule":"@x/p/src/Aggregate/Product.res.mjs","mappingsModule":"@x/p/src/Aggregate/Product_Mappings.res.mjs","queueUrl":"https://sqs/q"}`,
+    )
+    expect(config.targetSpecModule)->toEqual(Some("@x/p/src/Aggregate/Product.res.mjs"))
+    expect(config.mappingsModule)->toEqual(Some("@x/p/src/Aggregate/Product_Mappings.res.mjs"))
+    expect(config.queueUrl)->toEqual(Some("https://sqs/q"))
+  })
+})
+
+describe("EventMapperEntryPoint_Ops.makeCounterOps", () => {
+  test("queryEngine stubs return empty results instead of crashing", async () => {
+    let ops = EventMapperEntryPoint_Ops.makeCounterOps({queueUrl: "https://sqs/q"})
+    let scanned = await ops.queryEngine.scan(~readModelName="X", ~filterConfigs=[], ~limit=10)
+    expect(scanned->Array.length)->toBe(0)
+    let queried = await ops.queryEngine.query(
+      ~readModelName="X",
+      ~id=Reventless.QueryEngine.String("a"),
+    )
+    expect(queried->Array.length)->toBe(0)
+  })
+})
+
+describe("EventMapperEntryPoint_Ops.makeStreamHandler", () => {
+  test("parses SQS bodies, runs commonEventsHandler, publishes produced commands", async () => {
+    let received: ref<array<JSON.t>> = ref([])
+    let published: ref<array<ReventlessCore.Message.commandJson>> = ref([])
+    let ops: EventMapperEntryPoint_Ops.counterOps = {
+      publishJsons: async jsons => published := published.contents->Array.concat(jsons),
+      queryEngine: {
+        scan: async (~readModelName as _, ~filterConfigs as _, ~limit as _) => [],
+        query: async (
+          ~readModelName as _,
+          ~key as _=?,
+          ~id as _,
+          ~subIdConfig as _=?,
+          ~filterConfigs as _=?,
+          ~ascending as _=?,
+          ~limit as _=?,
+        ) => [],
+      },
+    }
+    let command: ReventlessCore.Message.commandJson = {
+      id: "prd-1",
+      meta: ReventlessCore.Message.generateMeta(~service="Product", ~ip="", ~user="test"),
+      commandJson: JSON.Encode.string("Add"),
+    }
+    let commonEventsHandler: EventMapperEntryPoint_Ops.commonEventsHandler = async jsons => {
+      received := received.contents->Array.concat(jsons)
+      (Promise.resolve([command]), [])
+    }
+
+    let streamHandler = EventMapperEntryPoint_Ops.makeStreamHandler(ops, commonEventsHandler)
+    let event: PulumiAws.Lambda.CallbackFunction.event = {
+      records: [sqsRecord(`{"id":"e1","event":"Added"}`), sqsRecord("not json")],
+    }
+    await streamHandler(event, context)->Effect.runPromise
+
+    // The unparsable body is dropped by the channel decode; the parsed one
+    // reaches the mapper and its produced command is published.
+    expect(received.contents->Array.length)->toBe(1)
+    expect(published.contents->Array.length)->toBe(1)
+    expect((published.contents->Array.getUnsafe(0)).id)->toBe("prd-1")
+  })
+})

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 */