@reventlessdev/reventless-local 3.0.0-alpha.113

package/tests/components/readmodel/MixedSourceReadModelFixtures.res.mjs

@@ -0,0 +1,277 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.res.mjs";
+import * as Stream from "@reventlessdev/rescript-effect/src/Stream.res.mjs";
+import * as Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
+import * as Effect from "effect/Effect";
+import * as Pulumi from "@pulumi/pulumi";
+import * as Message$Reventless from "@reventlessdev/reventless-spec/src/types/Message.res.mjs";
+import * as ReadModel$Reventless from "@reventlessdev/reventless-spec/src/components/ReadModel.res.mjs";
+import * as Projection$Reventless from "@reventlessdev/reventless-spec/src/types/Projection.res.mjs";
+import * as Adapter$ReventlessInfra from "@reventlessdev/reventless-infra/src/adapter/Adapter.res.mjs";
+import * as LocalBus$ReventlessLocal from "../../../src/adapter/LocalBus.res.mjs";
+import * as TestRunner$ReventlessLocal from "../../../src/test/TestRunner.res.mjs";
+import * as TestFixtures$ReventlessLocal from "../../TestFixtures.res.mjs";
+import * as ReadModel_Builder$ReventlessLocal from "../../../src/components/ReadModel_Builder.res.mjs";
+
+let name = "TestMixedReadModel";
+
+let moduleUrl = import.meta.url;
+
+let stateSchema = S.schema(s => ({
+  name: s.m(S.string),
+  source: s.m(S.string)
+}));
+
+let config = ReadModel$Reventless.config(undefined, undefined, undefined);
+
+let MixedReadModelSpec = {
+  Id: undefined,
+  name: name,
+  moduleUrl: moduleUrl,
+  stateSchema: stateSchema,
+  config: config,
+  subIdConfig: undefined,
+  authorization: "AllowAuthenticated",
+  visibility: "Public"
+};
+
+let name$1 = "TestAggregateEventTopic";
+
+let eventSchema = S.union([
+  S.schema(s => ({
+    TAG: "AggregateItemCreated",
+    name: s.m(S.string)
+  })),
+  S.schema(s => ({
+    TAG: "AggregateItemRenamed",
+    name: s.m(S.string)
+  }))
+]);
+
+let AggregateSource = {
+  Id: undefined,
+  name: name$1,
+  eventSchema: eventSchema
+};
+
+let name$2 = "TestDcbEventTopic";
+
+let eventSchema$1 = S.union([
+  S.schema(s => ({
+    TAG: "DcbItemAdded",
+    name: s.m(S.string)
+  })),
+  S.schema(s => ({
+    TAG: "DcbItemNameChanged",
+    name: s.m(S.string)
+  }))
+]);
+
+let DcbSource = {
+  Id: undefined,
+  name: name$2,
+  eventSchema: eventSchema$1
+};
+
+function project(msg) {
+  let match = msg.event;
+  if (match.TAG === "AggregateItemCreated") {
+    return {
+      TAG: "Create",
+      _0: msg.id,
+      _1: {
+        name: match.name,
+        source: "aggregate"
+      }
+    };
+  }
+  let name = match.name;
+  return {
+    TAG: "Update",
+    _0: msg.id,
+    _1: state => ({
+      name: name,
+      source: state.source
+    })
+  };
+}
+
+let AggregateMapping = Projection$Reventless.Mapping.Make({
+  Id: Id$Reventless.$$String,
+  name: name$1,
+  eventSchema: eventSchema
+})({
+  Id: Id$Reventless.$$String,
+  name: name,
+  stateSchema: stateSchema,
+  subIdConfig: undefined
+})({
+  project: project
+});
+
+function project$1(msg) {
+  let match = msg.event;
+  if (match.TAG === "DcbItemAdded") {
+    return {
+      TAG: "Create",
+      _0: msg.id,
+      _1: {
+        name: match.name,
+        source: "dcb"
+      }
+    };
+  }
+  let name = match.name;
+  return {
+    TAG: "Update",
+    _0: msg.id,
+    _1: state => ({
+      name: name,
+      source: state.source
+    })
+  };
+}
+
+let DcbMapping = Projection$Reventless.Mapping.Make({
+  Id: Id$Reventless.$$String,
+  name: name$2,
+  eventSchema: eventSchema$1
+})({
+  Id: Id$Reventless.$$String,
+  name: name,
+  stateSchema: stateSchema,
+  subIdConfig: undefined
+})({
+  project: project$1
+});
+
+Projection$Reventless.Mappings.Make({
+  Id: Id$Reventless.$$String,
+  name: name,
+  stateSchema: stateSchema,
+  subIdConfig: undefined
+});
+
+let moduleUrl$1 = import.meta.url;
+
+let mappings = [
+  AggregateMapping,
+  DcbMapping
+];
+
+let MixedMappings = {
+  moduleUrl: moduleUrl$1,
+  mappings: mappings
+};
+
+let aggregateTopicName = "TestAggregateEventTopic";
+
+let dcbTopicName = "TestDcbEventTopic";
+
+let aggregateResource = Adapter$ReventlessInfra.make(Pulumi.output(aggregateTopicName), Pulumi.output(aggregateTopicName), Pulumi.output(aggregateTopicName), Pulumi.output("memory:InMemory"), undefined, undefined, undefined, undefined, undefined, undefined);
+
+let dcbResource = Adapter$ReventlessInfra.make(Pulumi.output(dcbTopicName), Pulumi.output(dcbTopicName), Pulumi.output(dcbTopicName), Pulumi.output("memory:InMemory"), undefined, undefined, undefined, undefined, undefined, undefined);
+
+let allEventTopics = Object.fromEntries([
+  [
+    aggregateTopicName,
+    {
+      resources: [aggregateResource]
+    }
+  ],
+  [
+    dcbTopicName,
+    {
+      resources: [dcbResource]
+    }
+  ]
+]);
+
+let Bus = LocalBus$ReventlessLocal.Make({});
+
+TestRunner$ReventlessLocal.setup();
+
+let ReadModelMaker = ReadModel_Builder$ReventlessLocal.Make(Bus);
+
+let MixedRM = ReadModelMaker.Make({
+  Id: Id$Reventless.$$String,
+  name: name,
+  moduleUrl: moduleUrl,
+  stateSchema: stateSchema,
+  config: config,
+  subIdConfig: undefined,
+  authorization: "AllowAuthenticated",
+  visibility: "Public"
+})(MixedMappings);
+
+let rm = MixedRM.make(undefined, undefined, allEventTopics, undefined);
+
+async function publishAggregateEvent(id, event) {
+  let meta = TestFixtures$ReventlessLocal.makeTestMeta("TestAggregateEventTopic");
+  let eventJson = Object.fromEntries([
+    [
+      "id",
+      id
+    ],
+    [
+      "meta",
+      S.reverseConvertToJsonOrThrow(meta, Message$Reventless.metaSchema)
+    ],
+    [
+      "event",
+      S.reverseConvertToJsonOrThrow(event, eventSchema)
+    ]
+  ]);
+  return await Bus.publishEvent(aggregateTopicName, "test", meta, eventJson);
+}
+
+async function publishDcbEvent(id, event) {
+  let meta = TestFixtures$ReventlessLocal.makeTestMeta("TestDcbEventTopic");
+  let eventJson = Object.fromEntries([
+    [
+      "id",
+      id
+    ],
+    [
+      "meta",
+      S.reverseConvertToJsonOrThrow(meta, Message$Reventless.metaSchema)
+    ],
+    [
+      "event",
+      S.reverseConvertToJsonOrThrow(event, eventSchema$1)
+    ]
+  ]);
+  return await Bus.publishEvent(dcbTopicName, "test", meta, eventJson);
+}
+
+async function loadState(id) {
+  let ops = Bus.getQueryDb("TestMixedReadModel");
+  if (ops === undefined) {
+    return [];
+  }
+  let states = await Effect.runPromise(Effect.catchAll(Stream.runCollect(ops.loadStream(id)), param => Effect.succeed([])));
+  return states.map(json => S.parseJsonOrThrow(json, stateSchema));
+}
+
+export {
+  MixedReadModelSpec,
+  AggregateSource,
+  DcbSource,
+  AggregateMapping,
+  DcbMapping,
+  MixedMappings,
+  aggregateTopicName,
+  dcbTopicName,
+  aggregateResource,
+  dcbResource,
+  allEventTopics,
+  Bus,
+  ReadModelMaker,
+  MixedRM,
+  rm,
+  publishAggregateEvent,
+  publishDcbEvent,
+  loadState,
+}
+/* moduleUrl Not a pure module */

package/tests/components/readmodel/MixedSourceReadModelTest.res

@@ -0,0 +1,61 @@
+// Integration test: ReadModel with mixed event sources.
+// Verifies that a single ReadModel can project events from two independent
+// EventTopics (simulating aggregate + DCB sources merged by Plugin_Builder).
+
+open JestGlobals
+open MixedSourceReadModelFixtures
+
+describe("MixedSource ReadModel", () => {
+  let _ = beforeAllAsync(async () => {
+    let _ = await rm->MixedRM.operations->TestRunner.resolve
+    let _ = await aggregateResource.name->TestRunner.resolve
+    let _ = await dcbResource.name->TestRunner.resolve
+  })
+
+  testPromise("aggregate event projects with source 'aggregate'", async () => {
+    let _ = await publishAggregateEvent("agg-1", AggregateItemCreated({name: "Widget"}))
+    let states = await loadState("agg-1")
+    expect(states->Array.length)->toBe(1)
+    let state = states->Array.getUnsafe(0)
+    expect(state.name)->toBe("Widget")
+    expect(state.source)->toBe("aggregate")
+  })
+
+  testPromise("DCB event projects with source 'dcb'", async () => {
+    let _ = await publishDcbEvent("dcb-1", DcbItemAdded({name: "Gadget"}))
+    let states = await loadState("dcb-1")
+    expect(states->Array.length)->toBe(1)
+    let state = states->Array.getUnsafe(0)
+    expect(state.name)->toBe("Gadget")
+    expect(state.source)->toBe("dcb")
+  })
+
+  testPromise("both sources coexist independently", async () => {
+    let aggStates = await loadState("agg-1")
+    let dcbStates = await loadState("dcb-1")
+    expect(aggStates->Array.length)->toBe(1)
+    expect(dcbStates->Array.length)->toBe(1)
+    let agg = aggStates->Array.getUnsafe(0)
+    let dcb = dcbStates->Array.getUnsafe(0)
+    expect(agg.source)->toBe("aggregate")
+    expect(dcb.source)->toBe("dcb")
+  })
+
+  testPromise("aggregate update modifies existing entry", async () => {
+    let _ = await publishAggregateEvent("agg-1", AggregateItemRenamed({name: "Super Widget"}))
+    let states = await loadState("agg-1")
+    expect(states->Array.length)->toBe(1)
+    let state = states->Array.getUnsafe(0)
+    expect(state.name)->toBe("Super Widget")
+    expect(state.source)->toBe("aggregate")
+  })
+
+  testPromise("DCB update modifies existing entry", async () => {
+    let _ = await publishDcbEvent("dcb-1", DcbItemNameChanged({name: "Super Gadget"}))
+    let states = await loadState("dcb-1")
+    expect(states->Array.length)->toBe(1)
+    let state = states->Array.getUnsafe(0)
+    expect(state.name)->toBe("Super Gadget")
+    expect(state.source)->toBe("dcb")
+  })
+})

package/tests/components/readmodel/MixedSourceReadModelTest.res.mjs

@@ -0,0 +1,68 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as TestRunner$ReventlessLocal from "../../../src/test/TestRunner.res.mjs";
+import * as MixedSourceReadModelFixtures$ReventlessLocal from "./MixedSourceReadModelFixtures.res.mjs";
+
+globalThis.describe("MixedSource ReadModel", () => {
+  globalThis.beforeAll(async () => {
+    await TestRunner$ReventlessLocal.resolve(MixedSourceReadModelFixtures$ReventlessLocal.MixedRM.operations(MixedSourceReadModelFixtures$ReventlessLocal.rm));
+    await TestRunner$ReventlessLocal.resolve(MixedSourceReadModelFixtures$ReventlessLocal.aggregateResource.name);
+    await TestRunner$ReventlessLocal.resolve(MixedSourceReadModelFixtures$ReventlessLocal.dcbResource.name);
+  });
+  globalThis.test("aggregate event projects with source 'aggregate'", async () => {
+    await MixedSourceReadModelFixtures$ReventlessLocal.publishAggregateEvent("agg-1", {
+      TAG: "AggregateItemCreated",
+      name: "Widget"
+    });
+    let states = await MixedSourceReadModelFixtures$ReventlessLocal.loadState("agg-1");
+    globalThis.expect(states.length).toBe(1);
+    let state = states[0];
+    globalThis.expect(state.name).toBe("Widget");
+    globalThis.expect(state.source).toBe("aggregate");
+  });
+  globalThis.test("DCB event projects with source 'dcb'", async () => {
+    await MixedSourceReadModelFixtures$ReventlessLocal.publishDcbEvent("dcb-1", {
+      TAG: "DcbItemAdded",
+      name: "Gadget"
+    });
+    let states = await MixedSourceReadModelFixtures$ReventlessLocal.loadState("dcb-1");
+    globalThis.expect(states.length).toBe(1);
+    let state = states[0];
+    globalThis.expect(state.name).toBe("Gadget");
+    globalThis.expect(state.source).toBe("dcb");
+  });
+  globalThis.test("both sources coexist independently", async () => {
+    let aggStates = await MixedSourceReadModelFixtures$ReventlessLocal.loadState("agg-1");
+    let dcbStates = await MixedSourceReadModelFixtures$ReventlessLocal.loadState("dcb-1");
+    globalThis.expect(aggStates.length).toBe(1);
+    globalThis.expect(dcbStates.length).toBe(1);
+    let agg = aggStates[0];
+    let dcb = dcbStates[0];
+    globalThis.expect(agg.source).toBe("aggregate");
+    globalThis.expect(dcb.source).toBe("dcb");
+  });
+  globalThis.test("aggregate update modifies existing entry", async () => {
+    await MixedSourceReadModelFixtures$ReventlessLocal.publishAggregateEvent("agg-1", {
+      TAG: "AggregateItemRenamed",
+      name: "Super Widget"
+    });
+    let states = await MixedSourceReadModelFixtures$ReventlessLocal.loadState("agg-1");
+    globalThis.expect(states.length).toBe(1);
+    let state = states[0];
+    globalThis.expect(state.name).toBe("Super Widget");
+    globalThis.expect(state.source).toBe("aggregate");
+  });
+  globalThis.test("DCB update modifies existing entry", async () => {
+    await MixedSourceReadModelFixtures$ReventlessLocal.publishDcbEvent("dcb-1", {
+      TAG: "DcbItemNameChanged",
+      name: "Super Gadget"
+    });
+    let states = await MixedSourceReadModelFixtures$ReventlessLocal.loadState("dcb-1");
+    globalThis.expect(states.length).toBe(1);
+    let state = states[0];
+    globalThis.expect(state.name).toBe("Super Gadget");
+    globalThis.expect(state.source).toBe("dcb");
+  });
+});
+
+/*  Not a pure module */

package/tests/components/readmodel/ReadModelFixtures.res

@@ -0,0 +1,138 @@
+// E2E test fixtures for ReadModel builder.
+// Builds a ReadModel from a manually constructed allEventTopics and publishes
+// events directly via the bus to verify projection into the QueryDb.
+
+open TestFixtures
+open Reventless
+open Reventless.Projection
+
+// ─────────────────────────────────────────────────────────────
+// Minimal ReadModel spec
+// ─────────────────────────────────────────────────────────────
+
+module ItemReadModelSpec = {
+  module Id = Reventless.Id.String
+  let name = "TestItemReadModel"
+  let moduleUrl: string = %raw(`import.meta.url`)
+
+  @schema
+  type state = {name: string}
+
+  let config = ReadModel.config()
+  let subIdConfig = None
+}
+
+// ─────────────────────────────────────────────────────────────
+// Minimal source event
+// Used as the projection source — topic name doubles as mapping.sourceName
+// ─────────────────────────────────────────────────────────────
+
+module ItemEventSource = {
+  module Id = Reventless.Id.String
+  let name = "TestItemEventTopic" // must match allEventTopics key AND meta.service in published events
+
+  @schema
+  type event = | ItemCreated({name: string})
+}
+
+// ─────────────────────────────────────────────────────────────
+// Mapping: ItemCreated → Create ReadModel state
+// ─────────────────────────────────────────────────────────────
+
+module ItemMapping = Mapping.Make(
+  ItemEventSource,
+  ItemReadModelSpec,
+  {
+    let project = (msg: Message.event'<string, ItemEventSource.event>) =>
+      switch msg.event {
+      | ItemCreated({name}) => Create(msg.id, ({name: name}: ItemReadModelSpec.state))
+      }
+  },
+)
+
+// ─────────────────────────────────────────────────────────────
+// Mappings module required by ReadModel_Builder.Make
+// ─────────────────────────────────────────────────────────────
+
+module ItemMappings: Mappings with module Target := ItemReadModelSpec = {
+  module Mappings = Mappings.Make(ItemReadModelSpec)
+  module type Mapping = Mappings.Mapping
+  let moduleUrl: string = %raw(`import.meta.url`)
+  let mappings: array<module(Mapping)> = [module(ItemMapping)]
+}
+
+// ─────────────────────────────────────────────────────────────
+// allEventTopics — constructed manually (no aggregate needed)
+// resource.name is the bus topic key that EventCollectorChannel subscribes to.
+// ─────────────────────────────────────────────────────────────
+
+let topicName = "TestItemEventTopic"
+let topicResource: ReventlessInfra.Adapter.resource = ReventlessInfra.Adapter.make(
+  ~name=topicName->Pulumi.Output.make,
+  ~id=topicName->Pulumi.Output.make,
+  ~urn=topicName->Pulumi.Output.make,
+  ~service="memory:InMemory"->Pulumi.Output.make,
+)
+let allEventTopics: ReventlessInfra.EventTopic.allOutputs = Dict.fromArray([
+  (topicName, {ReventlessInfra.EventTopic.resources: [topicResource]}),
+])
+
+// ─────────────────────────────────────────────────────────────
+// Isolated bus for this test suite
+// ─────────────────────────────────────────────────────────────
+
+module Bus = LocalBus.Make()
+
+// ─────────────────────────────────────────────────────────────
+// Activate Pulumi mock mode (must be before any Component.make)
+// ─────────────────────────────────────────────────────────────
+
+let _ = TestRunner.setup()
+
+// ─────────────────────────────────────────────────────────────
+// Build ReadModel
+// ─────────────────────────────────────────────────────────────
+
+module ReadModelMaker = ReadModel_Builder.Make(Bus)
+module ItemReadModel = ReadModelMaker.Make(ItemReadModelSpec, ItemMappings)
+let rm = ItemReadModel.make(~api=(), ~apiRole=(), ~allEventTopics)
+
+// ─────────────────────────────────────────────────────────────
+// Test helpers
+// ─────────────────────────────────────────────────────────────
+
+// meta.service MUST match Mapping.sourceName ("TestItemEventTopic") for
+// ReadModel_Callback to route the event to the correct mapping.
+let testMeta = makeTestMeta(~service="TestItemEventTopic")
+
+// Publish a typed event to the bus topic.
+// The event JSON must be {id, meta, event} format for Message.decodeEvent' to parse.
+let publishItemCreated = async (id, name) => {
+  let eventJson = JSON.Encode.object(
+    Dict.fromArray([
+      ("id", id->JSON.Encode.string),
+      ("meta", testMeta->S.reverseConvertToJsonOrThrow(Message.metaSchema)),
+      (
+        "event",
+        ItemEventSource.ItemCreated({name: name})
+        ->S.reverseConvertToJsonOrThrow(ItemEventSource.eventSchema),
+      ),
+    ]),
+  )
+  await Bus.publishEvent(topicName, "test", testMeta, eventJson)
+}
+
+// Query projected state from the in-memory QueryDb.
+// QueryDb is registered with the ReadModel Spec.name = "TestItemReadModel".
+let loadState = async id => {
+  switch Bus.getQueryDb("TestItemReadModel") {
+  | None => []
+  | Some(ops) =>
+    let states =
+      await ops.loadStream(id)
+      ->Stream.runCollect
+      ->Effect.catchAll(_ => Effect.succeed([]))
+      ->Effect.runPromise
+    states->Array.map(json => json->S.parseJsonOrThrow(ItemReadModelSpec.stateSchema))
+  }
+}