@reventlessdev/reventless-core 3.0.0-alpha.134

package/tests/extensionpoint/ExtensionPointFixtures.res

@@ -0,0 +1,173 @@
+// Fixtures for ExtensionPoint callback unit tests.
+S.enableJson()
+
+// ─────────────────────────────────────────────────────────────
+// ExtensionPoint spec (command + directive types)
+// ─────────────────────────────────────────────────────────────
+
+// No explicit module type annotation — sealing hides constructors
+module TestEPSpec = {
+  let name = "TestExtensionPoint"
+
+  @schema
+  type command =
+    | RouteToAgg({aggId: string})
+    | TriggerDirective({value: string})
+
+  @schema
+  type event = | Done({result: string})
+
+  @schema
+  type directive = | DirectiveA
+
+  let moduleUrl: string = %raw(`import.meta.url`)
+}
+
+// ─────────────────────────────────────────────────────────────
+// Shared captures
+// ─────────────────────────────────────────────────────────────
+
+let capturedPublishedCmds: ref<array<Message.commandJson>> = ref([])
+let capturedCallCount = ref(0)
+
+// ─────────────────────────────────────────────────────────────
+// Mapping: routes commands to aggregate or direct handler
+// ─────────────────────────────────────────────────────────────
+
+module TestMapping = {
+  module ExtensionPoint = TestEPSpec
+  let delegateName = "TestTargetAgg"
+
+  let mapIncomingCommands = (
+    topicItems: array<
+      CommandTopic.topicItem<Message.command'<Reventless.Id.String.t, TestEPSpec.command>>,
+    >,
+    _createSchedule: Reventless.Schedule.create,
+    _deleteSchedule: Reventless.Schedule.delete,
+    _queryEngine: Reventless.QueryEngine.operations,
+  ): array<ReventlessInfra.ExtensionPointMapping.abstractCommandAction> =>
+    topicItems->Array.flatMap(topicItem =>
+      switch topicItem.command.command {
+      | TestEPSpec.RouteToAgg({aggId}) => [
+          ReventlessInfra.ExtensionPointMapping.AbstractPublishCommand(
+            "TestTargetAgg",
+            topicItem.reference,
+            {
+              id: aggId,
+              meta: topicItem.command.meta,
+              commandJson: JSON.Encode.string("Create"),
+            },
+          ),
+        ]
+      | TestEPSpec.TriggerDirective(_) => [
+          ReventlessInfra.ExtensionPointMapping.AbstractHandleDirective(
+            topicItem.reference,
+            async () => {
+              capturedCallCount := capturedCallCount.contents + 1
+            },
+          ),
+        ]
+      }
+    )
+
+  let mapOutgoingEvent: option<
+    (
+      JSON.t,
+      Reventless.Schedule.create,
+      Reventless.Schedule.delete,
+      Reventless.QueryEngine.operations,
+    ) => array<
+      ReventlessInfra.ExtensionPointMapping.abstractEventAction<TestEPSpec.event>,
+    >,
+  > = None
+}
+
+// ─────────────────────────────────────────────────────────────
+// Mappings module for ExtensionPoint_Callback
+// ─────────────────────────────────────────────────────────────
+
+module TestMappings = {
+  module Spec = TestEPSpec
+  module type Mapping = ReventlessInfra.ExtensionPointMapping.T with module ExtensionPoint := TestEPSpec
+  let name = "TestMappings"
+  let moduleUrl: string = %raw(`import.meta.url`)
+  let mappings: array<module(Mapping)> = [module(TestMapping)]
+}
+
+// ─────────────────────────────────────────────────────────────
+// Callback Spec (infrastructure mocks)
+// ─────────────────────────────────────────────────────────────
+
+module TestCallbackSpec: ExtensionPoint_Callback.Spec = {
+  let publishToAggregates: dict<CommandTopic.publishJsons> =
+    Dict.fromArray([
+      (
+        "TestTargetAgg",
+        async cmds => {
+          capturedPublishedCmds :=
+            capturedPublishedCmds.contents->Array.concat(cmds)
+        },
+      ),
+    ])
+
+  let commandTopicResources: array<Adapter.resolvedResource> = []
+
+  let scheduler: ReventlessInfra.Scheduler.operations = {
+    createSchedule: async (_resources, _schedule) => (),
+    deleteSchedule: async (_resources, _name) => (),
+  }
+
+  let queryEngine: Reventless.QueryEngine.operations = {
+    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 resourceNaming: ReventlessInfra.ResourceNaming.operations = {
+    validateName: name => name,
+    urnName: name => name,
+  }
+}
+
+// ─────────────────────────────────────────────────────────────
+// Handler under test
+// ─────────────────────────────────────────────────────────────
+
+module TestHandler = ExtensionPoint_Callback.Make(TestCallbackSpec, TestEPSpec, TestMappings)
+
+// ─────────────────────────────────────────────────────────────
+// Test helpers
+// ─────────────────────────────────────────────────────────────
+
+let testMeta: Message.meta = {
+  service: "TestExtensionPoint",
+  time: "2024-01-01T00:00:00Z",
+  ip: "127.0.0.1",
+  user: "test-user",
+  msgId: "ep-msg-1",
+  correlationId: "ep-corr-1",
+}
+
+let makeTopicItem = (
+  reference,
+  command,
+): CommandTopic.topicItem<Message.command'<Reventless.Id.String.t, TestEPSpec.command>> => {
+  command: {
+    id: reference->Reventless.Id.String.makeFromString,
+    meta: testMeta,
+    command,
+  },
+  reference,
+}
+
+let reset = () => {
+  capturedPublishedCmds := []
+  capturedCallCount := 0
+}

package/tests/extensionpoint/ExtensionPointFixtures.res.mjs

@@ -0,0 +1,205 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.res.mjs";
+import * as Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
+import * as ExtensionPoint_Callback$ReventlessCore from "../../src/components/ExtensionPoint/ExtensionPoint_Callback.res.mjs";
+
+S.enableJson();
+
+let name = "TestExtensionPoint";
+
+let commandSchema = S.union([
+  S.schema(s => ({
+    TAG: "RouteToAgg",
+    aggId: s.m(S.string)
+  })),
+  S.schema(s => ({
+    TAG: "TriggerDirective",
+    value: s.m(S.string)
+  }))
+]);
+
+let eventSchema = S.schema(s => ({
+  TAG: "Done",
+  result: s.m(S.string)
+}));
+
+let directiveSchema = S.literal("DirectiveA");
+
+let moduleUrl = import.meta.url;
+
+function commandAuthorization(param) {
+  return "AllowAuthenticated";
+}
+
+let TestEPSpec = {
+  name: name,
+  commandSchema: commandSchema,
+  eventSchema: eventSchema,
+  directiveSchema: directiveSchema,
+  moduleUrl: moduleUrl,
+  commandAuthorization: commandAuthorization
+};
+
+let capturedPublishedCmds = {
+  contents: []
+};
+
+let capturedCallCount = {
+  contents: 0
+};
+
+let delegateName = "TestTargetAgg";
+
+function mapIncomingCommands(topicItems, _createSchedule, _deleteSchedule, _queryEngine) {
+  return topicItems.flatMap(topicItem => {
+    let match = topicItem.command.command;
+    if (match.TAG === "RouteToAgg") {
+      return [{
+          TAG: "AbstractPublishCommand",
+          _0: "TestTargetAgg",
+          _1: topicItem.reference,
+          _2: {
+            id: match.aggId,
+            meta: topicItem.command.meta,
+            commandJson: "Create"
+          }
+        }];
+    } else {
+      return [{
+          TAG: "AbstractHandleDirective",
+          _0: topicItem.reference,
+          _1: async () => {
+            capturedCallCount.contents = capturedCallCount.contents + 1 | 0;
+          }
+        }];
+    }
+  });
+}
+
+let TestMapping = {
+  ExtensionPoint: undefined,
+  delegateName: delegateName,
+  mapIncomingCommands: mapIncomingCommands,
+  mapOutgoingEvent: undefined
+};
+
+let moduleUrl$1 = import.meta.url;
+
+let mappings = [{
+    delegateName: delegateName,
+    mapIncomingCommands: mapIncomingCommands,
+    mapOutgoingEvent: undefined
+  }];
+
+let TestMappings = {
+  Spec: undefined,
+  name: "TestMappings",
+  moduleUrl: moduleUrl$1,
+  mappings: mappings
+};
+
+let publishToAggregates = Object.fromEntries([[
+    "TestTargetAgg",
+    async cmds => {
+      capturedPublishedCmds.contents = capturedPublishedCmds.contents.concat(cmds);
+    }
+  ]]);
+
+let commandTopicResources = [];
+
+async function scheduler_createSchedule(_resources, _schedule) {
+  
+}
+
+async function scheduler_deleteSchedule(_resources, _name) {
+  
+}
+
+let scheduler = {
+  createSchedule: scheduler_createSchedule,
+  deleteSchedule: scheduler_deleteSchedule
+};
+
+async function queryEngine_scan(param, param$1, param$2) {
+  return [];
+}
+
+async function queryEngine_query(param, param$1, param$2, param$3, param$4, param$5, param$6) {
+  return [];
+}
+
+let queryEngine = {
+  scan: queryEngine_scan,
+  query: queryEngine_query
+};
+
+function resourceNaming_validateName(name) {
+  return name;
+}
+
+function resourceNaming_urnName(name) {
+  return name;
+}
+
+let resourceNaming = {
+  validateName: resourceNaming_validateName,
+  urnName: resourceNaming_urnName
+};
+
+let TestCallbackSpec = {
+  publishToAggregates: publishToAggregates,
+  commandTopicResources: commandTopicResources,
+  scheduler: scheduler,
+  queryEngine: queryEngine,
+  resourceNaming: resourceNaming
+};
+
+let TestHandler = ExtensionPoint_Callback$ReventlessCore.Make(TestCallbackSpec)({
+  name: name,
+  moduleUrl: moduleUrl,
+  commandSchema: commandSchema,
+  eventSchema: eventSchema,
+  directiveSchema: directiveSchema
+})({
+  mappings: mappings
+});
+
+let testMeta = {
+  service: "TestExtensionPoint",
+  time: "2024-01-01T00:00:00Z",
+  ip: "127.0.0.1",
+  user: "test-user",
+  msgId: "ep-msg-1",
+  correlationId: "ep-corr-1"
+};
+
+function makeTopicItem(reference, command) {
+  return {
+    command: {
+      id: Id$Reventless.$$String.makeFromString(reference),
+      meta: testMeta,
+      command: command
+    },
+    reference: reference
+  };
+}
+
+function reset() {
+  capturedPublishedCmds.contents = [];
+  capturedCallCount.contents = 0;
+}
+
+export {
+  TestEPSpec,
+  capturedPublishedCmds,
+  capturedCallCount,
+  TestMapping,
+  TestMappings,
+  TestCallbackSpec,
+  TestHandler,
+  testMeta,
+  makeTopicItem,
+  reset,
+}
+/*  Not a pure module */

package/tests/extensionpoint/ExtensionPointOperationsTest.res

@@ -0,0 +1,261 @@
+// Unit tests for ExtensionPoint_Operations.Make.
+// Tests outgoingJsonEventsHandler which maps aggregate events to EP actions.
+
+open JestGlobals
+
+S.enableJson()
+
+// ─────────────────────────────────────────────────────────────
+// EP Spec — minimal types for operations tests
+// ─────────────────────────────────────────────────────────────
+
+module OpsEPSpec = {
+  let name = "OpsTestEP"
+
+  @schema
+  type command = | OpsEPCmd({id: string})
+
+  @schema
+  type event = | OpsEPEvent({result: string})
+
+  @schema
+  type directive = | OpsEPNoDirective
+
+  let moduleUrl: string = %raw(`import.meta.url`)
+}
+
+// ─────────────────────────────────────────────────────────────
+// Captured state (reset in beforeEach)
+// ─────────────────────────────────────────────────────────────
+
+let capturedPublished: ref<array<(string, Message.meta, JSON.t)>> = ref([])
+let capturedCallCount: ref<int> = ref(0)
+
+// ─────────────────────────────────────────────────────────────
+// Mapping 1: returns AbstractPublishEvent (source agg = "PublishAgg")
+// ─────────────────────────────────────────────────────────────
+
+let outgoingMeta: Message.meta = {
+  service: "PublishAgg",
+  time: "2024-01-01T00:00:00Z",
+  ip: "127.0.0.1",
+  user: "tester",
+  msgId: "ops-msg-1",
+  correlationId: "ops-corr-1",
+}
+
+module TestPublishMapping = {
+  module ExtensionPoint = OpsEPSpec
+  let delegateName = "PublishAgg"
+
+  let mapIncomingCommands = (
+    _topicItems,
+    _createSchedule: Reventless.Schedule.create,
+    _deleteSchedule: Reventless.Schedule.delete,
+    _queryEngine: Reventless.QueryEngine.operations,
+  ) => []
+
+  let mapOutgoingEvent = Some(
+    (eventJson, _createSchedule, _deleteSchedule, _queryEngine) => {
+      [
+        ReventlessInfra.ExtensionPointMapping.AbstractPublishEvent("ep-dest", outgoingMeta, eventJson),
+      ]
+    },
+  )
+}
+
+// ─────────────────────────────────────────────────────────────
+// Mapping 2: returns AbstractHandleDirective (source agg = "CallAgg")
+// ─────────────────────────────────────────────────────────────
+
+module TestCallMapping = {
+  module ExtensionPoint = OpsEPSpec
+  let delegateName = "CallAgg"
+
+  let mapIncomingCommands = (
+    _topicItems,
+    _createSchedule: Reventless.Schedule.create,
+    _deleteSchedule: Reventless.Schedule.delete,
+    _queryEngine: Reventless.QueryEngine.operations,
+  ) => []
+
+  let mapOutgoingEvent = Some(
+    (_eventJson, _createSchedule, _deleteSchedule, _queryEngine) => {
+      [
+        ReventlessInfra.ExtensionPointMapping.AbstractHandleDirective(async () => {
+          capturedCallCount := capturedCallCount.contents + 1
+        }),
+      ]
+    },
+  )
+}
+
+// ─────────────────────────────────────────────────────────────
+// Mapping 3: returns AbstractPublishEventAsync (source agg = "AsyncAgg")
+// ─────────────────────────────────────────────────────────────
+
+module TestAsyncMapping = {
+  module ExtensionPoint = OpsEPSpec
+  let delegateName = "AsyncAgg"
+
+  let mapIncomingCommands = (
+    _topicItems,
+    _createSchedule: Reventless.Schedule.create,
+    _deleteSchedule: Reventless.Schedule.delete,
+    _queryEngine: Reventless.QueryEngine.operations,
+  ) => []
+
+  let mapOutgoingEvent = Some(
+    (eventJson, _createSchedule, _deleteSchedule, _queryEngine) => {
+      let asyncResult: promise<(string, Message.meta, JSON.t)> = Promise.resolve((
+        "ep-async-dest",
+        outgoingMeta,
+        eventJson,
+      ))
+      [ReventlessInfra.ExtensionPointMapping.AbstractPublishEventAsync(asyncResult)]
+    },
+  )
+}
+
+// ─────────────────────────────────────────────────────────────
+// Mappings module — all three mappings combined
+// ─────────────────────────────────────────────────────────────
+
+module TestOpsMappings = {
+  module Spec = OpsEPSpec
+  module type Mapping = ReventlessInfra.ExtensionPointMapping.T with module ExtensionPoint := OpsEPSpec
+  let name = "TestOpsMappings"
+  let moduleUrl: string = %raw(`import.meta.url`)
+  let mappings: array<module(Mapping)> = [
+    module(TestPublishMapping),
+    module(TestCallMapping),
+    module(TestAsyncMapping),
+  ]
+}
+
+// ─────────────────────────────────────────────────────────────
+// Ops module — mocked infrastructure
+// ─────────────────────────────────────────────────────────────
+
+module TestOps = {
+  let publishToEventTopic: EventTopic.publishJson = async (id, meta, eventJson) => {
+    capturedPublished := capturedPublished.contents->Array.concat([(id, meta, eventJson)])
+  }
+
+  let commandTopicResources: array<Adapter.resolvedResource> = []
+
+  let scheduler: Scheduler.operations = {
+    createSchedule: async (_, _) => (),
+    deleteSchedule: async (_, _) => (),
+  }
+
+  let queryEngine: Reventless.QueryEngine.operations = {
+    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 resourceNaming: ReventlessInfra.ResourceNaming.operations = {
+    validateName: n => n,
+    urnName: n => n,
+  }
+}
+
+// ─────────────────────────────────────────────────────────────
+// Unit under test
+// ─────────────────────────────────────────────────────────────
+
+module EpOps = ExtensionPoint_Operations.Make(OpsEPSpec, TestOpsMappings, TestOps)
+
+// ─────────────────────────────────────────────────────────────
+// Test helpers
+// ─────────────────────────────────────────────────────────────
+
+let makeEventJsonForAgg = (aggregateName: string): JSON.t => {
+  let meta: Message.meta = {
+    service: aggregateName,
+    time: "2024-01-01T00:00:00Z",
+    ip: "127.0.0.1",
+    user: "tester",
+    msgId: "msg-test",
+    correlationId: "corr-test",
+  }
+  JSON.Encode.object(
+    Dict.fromArray([
+      ("meta", meta->S.reverseConvertToJsonOrThrow(Reventless.Message.metaSchema)),
+      ("event", JSON.Encode.string("SomeEvent")),
+    ]),
+  )
+}
+
+let reset = () => {
+  capturedPublished := []
+  capturedCallCount := 0
+}
+
+// ─────────────────────────────────────────────────────────────
+// Tests
+// ─────────────────────────────────────────────────────────────
+
+describe("ExtensionPoint_Operations.Make:", () => {
+  let _ = beforeEach(() => reset())
+
+  describe("outgoingJsonEventsHandler — AbstractPublishEvent:", () => {
+    testPromise("known aggregate calls publishToEventTopic with correct destination id", async () => {
+      let eventJson = makeEventJsonForAgg("PublishAgg")
+      await EpOps.outgoingJsonEventsHandler(eventJson, ())
+      expect(capturedPublished.contents->Array.length)->toBe(1)
+      let item = capturedPublished.contents->Array.getUnsafe(0)
+      let (id, _, _) = item
+      expect(id)->toBe("ep-dest")
+    })
+
+    testPromise("publishToEventTopic receives the original event JSON", async () => {
+      let eventJson = makeEventJsonForAgg("PublishAgg")
+      await EpOps.outgoingJsonEventsHandler(eventJson, ())
+      let item = capturedPublished.contents->Array.getUnsafe(0)
+      let (_, _, capturedEventJson) = item
+      expect(capturedEventJson)->toEqual(eventJson)
+    })
+  })
+
+  describe("outgoingJsonEventsHandler — AbstractHandleDirective:", () => {
+    testPromise("known aggregate with AbstractHandleDirective invokes the handler", async () => {
+      let eventJson = makeEventJsonForAgg("CallAgg")
+      await EpOps.outgoingJsonEventsHandler(eventJson, ())
+      expect(capturedCallCount.contents)->toBe(1)
+      expect(capturedPublished.contents->Array.length)->toBe(0)
+    })
+  })
+
+  describe("outgoingJsonEventsHandler — AbstractPublishEventAsync:", () => {
+    testPromise("async mapping resolves and calls publishToEventTopic", async () => {
+      let eventJson = makeEventJsonForAgg("AsyncAgg")
+      await EpOps.outgoingJsonEventsHandler(eventJson, ())
+      expect(capturedPublished.contents->Array.length)->toBe(1)
+      let item = capturedPublished.contents->Array.getUnsafe(0)
+      let (id, _, _) = item
+      expect(id)->toBe("ep-async-dest")
+    })
+  })
+
+  describe("outgoingJsonEventsHandler — no matching mapping:", () => {
+    testPromise("event from unknown aggregate throws", async () => {
+      let eventJson = makeEventJsonForAgg("UnknownAgg")
+      let didThrow = ref(false)
+      try {
+        await EpOps.outgoingJsonEventsHandler(eventJson, ())
+      } catch {
+      | _ => didThrow := true
+      }
+      expect(didThrow.contents)->toBe(true)
+    })
+  })
+})