@reventlessdev/reventless-local 3.0.0-alpha.113

package/tests/components/commandgenerator/CommandGeneratorFixtures.res

@@ -0,0 +1,73 @@
+// Fixtures for CommandGenerator integration tests.
+// Verifies that makeHandler builds a resolver that publishes the correct commandJson.
+
+S.enableJson()
+
+// Activate Pulumi mock mode (must be called before any Component.make)
+let _ = TestRunner.setup()
+
+// ─────────────────────────────────────────────────────────────
+// Aggregate spec (matches the Behavior used in CommandGenerator_Builder.Make)
+// ─────────────────────────────────────────────────────────────
+
+module CGSpec = {
+  module Id = Reventless.Id.StringPure
+  let name = "TestCGAggregate"
+
+  @schema
+  type command = | CreateCGItem({name: string})
+
+  @schema
+  type event = | CGItemCreated({name: string})
+
+  @schema
+  type error = | CGAlreadyExists
+
+  let moduleUrl: string = %raw(`import.meta.url`)
+}
+
+// ─────────────────────────────────────────────────────────────
+// Behavior
+// ─────────────────────────────────────────────────────────────
+
+module CGBehavior = {
+  module Spec = CGSpec
+  type state = {name: string}
+
+  let moduleUrl: string = %raw(`import.meta.url`)
+
+  let initialState = {name: ""}
+
+  let evolve = (_state: state, event: CGSpec.event): state =>
+    switch event {
+    | CGItemCreated({name}) => {name: name}
+    }
+
+  let decide = (_state: state, command: CGSpec.command): result<array<CGSpec.event>, CGSpec.error> =>
+    switch command {
+    | CreateCGItem({name}) => Ok([CGSpec.CGItemCreated({name: name})])
+    }
+}
+
+// ─────────────────────────────────────────────────────────────
+// CommandGenerator builder (in-memory resolvers = no AppSync)
+// ─────────────────────────────────────────────────────────────
+
+module CGMaker = ReventlessCore.CommandGenerator_Builder.Make(
+  CGSpec,
+  LocalCommandGeneratorResolvers,
+)
+
+// ─────────────────────────────────────────────────────────────
+// Captured commands
+// ─────────────────────────────────────────────────────────────
+
+let capturedCmds: ref<array<Reventless.Message.commandJson>> = ref([])
+
+let mockPublish: ReventlessInfra.CommandTopic.publishJsons = async cmds => {
+  capturedCmds := capturedCmds.contents->Array.concat(cmds)
+}
+
+let resetMocks = () => {
+  capturedCmds := []
+}

package/tests/components/commandgenerator/CommandGeneratorFixtures.res.mjs

@@ -0,0 +1,109 @@
+// 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 TestRunner$ReventlessLocal from "../../../src/test/TestRunner.res.mjs";
+import * as CommandGenerator_Builder$ReventlessCore from "@reventlessdev/reventless-core/src/components/CommandGenerator/CommandGenerator_Builder.res.mjs";
+import * as LocalCommandGeneratorResolvers$ReventlessLocal from "../../../src/adapter/CommandGenerator/LocalCommandGeneratorResolvers.res.mjs";
+
+S.enableJson();
+
+TestRunner$ReventlessLocal.setup();
+
+let name = "TestCGAggregate";
+
+let commandSchema = S.schema(s => ({
+  TAG: "CreateCGItem",
+  name: s.m(S.string)
+}));
+
+let eventSchema = S.schema(s => ({
+  TAG: "CGItemCreated",
+  name: s.m(S.string)
+}));
+
+let errorSchema = S.literal("CGAlreadyExists");
+
+let moduleUrl = import.meta.url;
+
+function commandAuthorization(param) {
+  return "AllowAuthenticated";
+}
+
+let CGSpec = {
+  Id: undefined,
+  name: name,
+  commandSchema: commandSchema,
+  eventSchema: eventSchema,
+  errorSchema: errorSchema,
+  moduleUrl: moduleUrl,
+  commandAuthorization: commandAuthorization
+};
+
+let moduleUrl$1 = import.meta.url;
+
+function evolve(_state, event) {
+  return {
+    name: event.name
+  };
+}
+
+function decide(_state, command) {
+  return {
+    TAG: "Ok",
+    _0: [{
+        TAG: "CGItemCreated",
+        name: command.name
+      }]
+  };
+}
+
+let CGBehavior_initialState = {
+  name: ""
+};
+
+let CGBehavior = {
+  Spec: undefined,
+  moduleUrl: moduleUrl$1,
+  initialState: CGBehavior_initialState,
+  evolve: evolve,
+  decide: decide
+};
+
+let CGMaker = CommandGenerator_Builder$ReventlessCore.Make({
+  Id: {
+    schema: Id$Reventless.StringPure.schema,
+    make: prim => prim,
+    makeFromString: prim => prim,
+    toString: prim => prim,
+    cmp: Id$Reventless.StringPure.cmp
+  },
+  name: name,
+  eventSchema: eventSchema,
+  errorSchema: errorSchema,
+  commandSchema: commandSchema,
+  moduleUrl: moduleUrl,
+  commandAuthorization: commandAuthorization
+})(LocalCommandGeneratorResolvers$ReventlessLocal);
+
+let capturedCmds = {
+  contents: []
+};
+
+async function mockPublish(cmds) {
+  capturedCmds.contents = capturedCmds.contents.concat(cmds);
+}
+
+function resetMocks() {
+  capturedCmds.contents = [];
+}
+
+export {
+  CGSpec,
+  CGBehavior,
+  CGMaker,
+  capturedCmds,
+  mockPublish,
+  resetMocks,
+}
+/*  Not a pure module */

package/tests/components/commandgenerator/CommandGeneratorTest.res

@@ -0,0 +1,43 @@
+// Integration tests for CommandGenerator_Builder (in-memory).
+// Verifies that makeHandler returns a resolver that generates and publishes commands.
+
+open JestGlobals
+open CommandGeneratorFixtures
+
+describe("CommandGenerator_Builder.Make:", () => {
+  let _ = beforeEach(() => resetMocks())
+
+  describe("makeHandler:", () => {
+    testPromise("CreateCGItem payload publishes correct commandJson", async () => {
+      // Resolve the handler from the Output wrapper
+      let handler = await CGMaker.makeHandler(~publishJsons=mockPublish, ~publishJsonsAndWait=None)->TestRunner.resolve
+
+      // Build payload: arguments must include id AND the command fields (name).
+      // generateCommand stringifies arguments, slices off id (index 0), uses the rest as params.
+      let payload: ReventlessCore.CommandGenerator.payload = {
+        command: "CreateCGItem",
+        arguments: {"id": "item-1", "name": "widget"}->Obj.magic,
+        meta: {ip: ["127.0.0.1"], user: "testuser", info: ""},
+        identity: Reventless.Identity.anonymous,
+      }
+
+      // Call handler — generateCommand is async (awaits publishJsons internally)
+      let _ = await handler(payload, ())->Effect.runPromise
+
+      expect(capturedCmds.contents->Array.length)->toBe(1)
+
+      let cmd = capturedCmds.contents->Array.getUnsafe(0)
+      expect(cmd.id)->toBe("item-1")
+
+      // commandJson should decode to CreateCGItem({name: "widget"})
+      let decoded = cmd.commandJson->S.parseJsonOrThrow(CGSpec.commandSchema)
+      expect(decoded)->toEqual(CGSpec.CreateCGItem({name: "widget"}))
+    })
+
+    testPromise("make creates a CommandGenerator component without throwing", async () => {
+      let cg = CGMaker.make(~name="test-cg")
+      let _ = cg
+      expect(true)->toBe(true)
+    })
+  })
+})

package/tests/components/commandgenerator/CommandGeneratorTest.res.mjs

@@ -0,0 +1,46 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.res.mjs";
+import * as Effect from "effect/Effect";
+import * as Identity$Reventless from "@reventlessdev/reventless-spec/src/types/Identity.res.mjs";
+import * as TestRunner$ReventlessLocal from "../../../src/test/TestRunner.res.mjs";
+import * as CommandGeneratorFixtures$ReventlessLocal from "./CommandGeneratorFixtures.res.mjs";
+
+globalThis.describe("CommandGenerator_Builder.Make:", () => {
+  globalThis.beforeEach(() => CommandGeneratorFixtures$ReventlessLocal.resetMocks());
+  globalThis.describe("makeHandler:", () => {
+    globalThis.test("CreateCGItem payload publishes correct commandJson", async () => {
+      let handler = await TestRunner$ReventlessLocal.resolve(CommandGeneratorFixtures$ReventlessLocal.CGMaker.makeHandler(CommandGeneratorFixtures$ReventlessLocal.mockPublish, undefined));
+      let payload_arguments = {
+        id: "item-1",
+        name: "widget"
+      };
+      let payload_meta = {
+        ip: ["127.0.0.1"],
+        user: "testuser",
+        info: ""
+      };
+      let payload = {
+        command: "CreateCGItem",
+        arguments: payload_arguments,
+        meta: payload_meta,
+        identity: Identity$Reventless.anonymous
+      };
+      await Effect.runPromise(handler(payload, undefined));
+      globalThis.expect(CommandGeneratorFixtures$ReventlessLocal.capturedCmds.contents.length).toBe(1);
+      let cmd = CommandGeneratorFixtures$ReventlessLocal.capturedCmds.contents[0];
+      globalThis.expect(cmd.id).toBe("item-1");
+      let decoded = S.parseJsonOrThrow(cmd.commandJson, CommandGeneratorFixtures$ReventlessLocal.CGSpec.commandSchema);
+      globalThis.expect(decoded).toEqual({
+        TAG: "CreateCGItem",
+        name: "widget"
+      });
+    });
+    globalThis.test("make creates a CommandGenerator component without throwing", async () => {
+      CommandGeneratorFixtures$ReventlessLocal.CGMaker.make("test-cg", undefined);
+      globalThis.expect(true).toBe(true);
+    });
+  });
+});
+
+/*  Not a pure module */

package/tests/components/commandtopic/CommandTopicFixtures.res

@@ -0,0 +1,37 @@
+// Integration test fixtures for CommandTopic builder (in-memory).
+
+module ItemSpec = {
+  module Id = Reventless.Id.String
+  let name = "TestCommandTopicItem"
+
+  @schema
+  type command = | CreateItem({name: string}) | DeleteItem({id: string})
+
+  @schema
+  type event = | ItemCreated({name: string})
+
+  @schema
+  type error = | AlreadyExists
+
+  let moduleUrl: string = %raw(`import.meta.url`)
+}
+
+// ─────────────────────────────────────────────────────────────
+// Bus and Pulumi setup
+// ─────────────────────────────────────────────────────────────
+
+module Bus = LocalBus.Make()
+
+let _ = TestRunner.setup()
+
+// ─────────────────────────────────────────────────────────────
+// Build CommandTopic using in-memory channel
+// ─────────────────────────────────────────────────────────────
+
+module CommandTopicMaker = ReventlessCore.CommandTopic_Builder.Make(
+  ItemSpec,
+  LocalCommandTopicChannel.Make(Bus),
+)
+
+let cmdTopic = CommandTopicMaker.make(~name="TestCommandTopic")
+

package/tests/components/commandtopic/CommandTopicFixtures.res.mjs

@@ -0,0 +1,68 @@
+// 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 LocalBus$ReventlessLocal from "../../../src/adapter/LocalBus.res.mjs";
+import * as TestRunner$ReventlessLocal from "../../../src/test/TestRunner.res.mjs";
+import * as CommandTopic_Builder$ReventlessCore from "@reventlessdev/reventless-core/src/components/CommandTopic/CommandTopic_Builder.res.mjs";
+import * as LocalCommandTopicChannel$ReventlessLocal from "../../../src/adapter/CommandTopic/LocalCommandTopicChannel.res.mjs";
+
+let name = "TestCommandTopicItem";
+
+let commandSchema = S.union([
+  S.schema(s => ({
+    TAG: "CreateItem",
+    name: s.m(S.string)
+  })),
+  S.schema(s => ({
+    TAG: "DeleteItem",
+    id: s.m(S.string)
+  }))
+]);
+
+let eventSchema = S.schema(s => ({
+  TAG: "ItemCreated",
+  name: s.m(S.string)
+}));
+
+let errorSchema = S.literal("AlreadyExists");
+
+let moduleUrl = import.meta.url;
+
+function commandAuthorization(param) {
+  return "AllowAuthenticated";
+}
+
+let ItemSpec = {
+  Id: undefined,
+  name: name,
+  commandSchema: commandSchema,
+  eventSchema: eventSchema,
+  errorSchema: errorSchema,
+  moduleUrl: moduleUrl,
+  commandAuthorization: commandAuthorization
+};
+
+let Bus = LocalBus$ReventlessLocal.Make({});
+
+TestRunner$ReventlessLocal.setup();
+
+let $$let = LocalCommandTopicChannel$ReventlessLocal.Make(Bus);
+
+let CommandTopicMaker = CommandTopic_Builder$ReventlessCore.Make({
+  Id: Id$Reventless.$$String,
+  name: name,
+  commandSchema: commandSchema
+})({
+  make: $$let.make
+});
+
+let cmdTopic = CommandTopicMaker.make("TestCommandTopic", undefined);
+
+export {
+  ItemSpec,
+  Bus,
+  CommandTopicMaker,
+  cmdTopic,
+}
+/* commandSchema Not a pure module */

package/tests/components/commandtopic/CommandTopicStreamFixtures.res

@@ -0,0 +1,43 @@
+// Fixtures for CommandTopic.publishJsonsStream tests (Phase I).
+
+open TestFixtures
+
+module ItemSpec = {
+  module Id = Reventless.Id.String
+  let name = "StreamCmdItem"
+
+  @schema
+  type command = | CreateItem({name: string}) | DeleteItem({id: string})
+
+  @schema
+  type event = | ItemCreated({name: string})
+
+  @schema
+  type error = | AlreadyExists
+
+  let moduleUrl: string = %raw(`import.meta.url`)
+}
+
+module StreamBus = LocalBus.Make()
+
+let _ = TestRunner.setup()
+
+module StreamCmdTopicMaker = ReventlessCore.CommandTopic_Builder.Make(
+  ItemSpec,
+  LocalCommandTopicChannel.Make(StreamBus),
+)
+
+let cmdTopic = StreamCmdTopicMaker.make(~name="StreamCmdTopic")
+
+// Track dispatched commands per test — reset in beforeEach
+let captured: ref<array<JSON.t>> = ref([])
+
+let _ = StreamBus.registerCommandHandler("StreamCmdTopicCmdTopic", async (body, _ctx) => {
+  captured := captured.contents->Array.concat([body])
+})
+
+let makeJson = (id): Reventless.Message.commandJson => {
+  Reventless.Message.id: id,
+  meta: testMeta,
+  commandJson: ItemSpec.CreateItem({name: id})->ReventlessCore.Message.encode(ItemSpec.commandSchema),
+}

package/tests/components/commandtopic/CommandTopicStreamFixtures.res.mjs

@@ -0,0 +1,91 @@
+// 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 Message$ReventlessCore from "@reventlessdev/reventless-core/src/Message.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 CommandTopic_Builder$ReventlessCore from "@reventlessdev/reventless-core/src/components/CommandTopic/CommandTopic_Builder.res.mjs";
+import * as LocalCommandTopicChannel$ReventlessLocal from "../../../src/adapter/CommandTopic/LocalCommandTopicChannel.res.mjs";
+
+let name = "StreamCmdItem";
+
+let commandSchema = S.union([
+  S.schema(s => ({
+    TAG: "CreateItem",
+    name: s.m(S.string)
+  })),
+  S.schema(s => ({
+    TAG: "DeleteItem",
+    id: s.m(S.string)
+  }))
+]);
+
+let eventSchema = S.schema(s => ({
+  TAG: "ItemCreated",
+  name: s.m(S.string)
+}));
+
+let errorSchema = S.literal("AlreadyExists");
+
+let moduleUrl = import.meta.url;
+
+function commandAuthorization(param) {
+  return "AllowAuthenticated";
+}
+
+let ItemSpec = {
+  Id: undefined,
+  name: name,
+  commandSchema: commandSchema,
+  eventSchema: eventSchema,
+  errorSchema: errorSchema,
+  moduleUrl: moduleUrl,
+  commandAuthorization: commandAuthorization
+};
+
+let StreamBus = LocalBus$ReventlessLocal.Make({});
+
+TestRunner$ReventlessLocal.setup();
+
+let $$let = LocalCommandTopicChannel$ReventlessLocal.Make(StreamBus);
+
+let StreamCmdTopicMaker = CommandTopic_Builder$ReventlessCore.Make({
+  Id: Id$Reventless.$$String,
+  name: name,
+  commandSchema: commandSchema
+})({
+  make: $$let.make
+});
+
+let cmdTopic = StreamCmdTopicMaker.make("StreamCmdTopic", undefined);
+
+let captured = {
+  contents: []
+};
+
+StreamBus.registerCommandHandler("StreamCmdTopicCmdTopic", async (body, _ctx) => {
+  captured.contents = captured.contents.concat([body]);
+});
+
+function makeJson(id) {
+  return {
+    id: id,
+    meta: TestFixtures$ReventlessLocal.testMeta,
+    commandJson: Message$ReventlessCore.encode({
+      TAG: "CreateItem",
+      name: id
+    }, commandSchema)
+  };
+}
+
+export {
+  ItemSpec,
+  StreamBus,
+  StreamCmdTopicMaker,
+  cmdTopic,
+  captured,
+  makeJson,
+}
+/* commandSchema Not a pure module */

package/tests/components/commandtopic/CommandTopicStreamTest.res

@@ -0,0 +1,30 @@
+// Tests for CommandTopic.publishJsonsStream (Phase I of effect-stream-integration plan).
+// Verifies that a Stream<commandJson> drives publishing without collecting into an array.
+
+open JestGlobals
+open CommandTopicStreamFixtures
+
+describe("CommandTopic.publishJsonsStream", () => {
+  let _ = beforeAllAsync(async () => {
+    let _ = await cmdTopic->ReventlessCore.Component.operations->TestRunner.resolve
+  })
+
+  let _ = beforeEach(() => {
+    captured := []
+  })
+
+  testPromise("streams 3 commands to the bus in order", async () => {
+    let ops = await cmdTopic->ReventlessCore.Component.operations->TestRunner.resolve
+    let stream = [makeJson("cmd-1"), makeJson("cmd-2"), makeJson("cmd-3")]->Stream.fromIterable
+    let _ = await ops.publishJsonsStream(stream)->Effect.runPromise
+    let _ = await Promise.resolve()
+    expect(captured.contents->Array.length)->toBe(3)
+  })
+
+  testPromise("empty stream dispatches nothing", async () => {
+    let ops = await cmdTopic->ReventlessCore.Component.operations->TestRunner.resolve
+    let _ = await ops.publishJsonsStream(Stream.empty)->Effect.runPromise
+    let _ = await Promise.resolve()
+    expect(captured.contents->Array.length)->toBe(0)
+  })
+})

package/tests/components/commandtopic/CommandTopicStreamTest.res.mjs

@@ -0,0 +1,35 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Effect from "effect/Effect";
+import * as Stream from "effect/Stream";
+import * as Component$ReventlessCore from "@reventlessdev/reventless-core/src/components/Component.res.mjs";
+import * as TestRunner$ReventlessLocal from "../../../src/test/TestRunner.res.mjs";
+import * as CommandTopicStreamFixtures$ReventlessLocal from "./CommandTopicStreamFixtures.res.mjs";
+
+globalThis.describe("CommandTopic.publishJsonsStream", () => {
+  globalThis.beforeAll(async () => {
+    await TestRunner$ReventlessLocal.resolve(Component$ReventlessCore.operations(CommandTopicStreamFixtures$ReventlessLocal.cmdTopic));
+  });
+  globalThis.beforeEach(() => {
+    CommandTopicStreamFixtures$ReventlessLocal.captured.contents = [];
+  });
+  globalThis.test("streams 3 commands to the bus in order", async () => {
+    let ops = await TestRunner$ReventlessLocal.resolve(Component$ReventlessCore.operations(CommandTopicStreamFixtures$ReventlessLocal.cmdTopic));
+    let stream = Stream.fromIterable([
+      CommandTopicStreamFixtures$ReventlessLocal.makeJson("cmd-1"),
+      CommandTopicStreamFixtures$ReventlessLocal.makeJson("cmd-2"),
+      CommandTopicStreamFixtures$ReventlessLocal.makeJson("cmd-3")
+    ]);
+    await Effect.runPromise(ops.publishJsonsStream(stream));
+    await Promise.resolve();
+    globalThis.expect(CommandTopicStreamFixtures$ReventlessLocal.captured.contents.length).toBe(3);
+  });
+  globalThis.test("empty stream dispatches nothing", async () => {
+    let ops = await TestRunner$ReventlessLocal.resolve(Component$ReventlessCore.operations(CommandTopicStreamFixtures$ReventlessLocal.cmdTopic));
+    await Effect.runPromise(ops.publishJsonsStream(Stream.empty));
+    await Promise.resolve();
+    globalThis.expect(CommandTopicStreamFixtures$ReventlessLocal.captured.contents.length).toBe(0);
+  });
+});
+
+/*  Not a pure module */

package/tests/components/commandtopic/CommandTopicTest.res

@@ -0,0 +1,55 @@
+// Integration tests for CommandTopic_Builder with in-memory channel.
+
+open TestFixtures
+open JestGlobals
+open CommandTopicFixtures
+
+describe("CommandTopic (in-memory)", () => {
+  let _ = beforeAllAsync(async () => {
+    let _ = await cmdTopic->ReventlessCore.Component.operations->TestRunner.resolve
+  })
+
+  testPromise("publishJsons succeeds without throwing", async () => {
+    let ops = await cmdTopic->ReventlessCore.Component.operations->TestRunner.resolve
+    let commandJson = ItemSpec.CreateItem({name: "Widget"})->ReventlessCore.Message.encode(ItemSpec.commandSchema)
+    let didThrow = ref(false)
+    try {
+      await ops.publishJsons([{
+        Reventless.Message.id: "item-1",
+        meta: testMeta,
+        commandJson,
+      }])
+    } catch {
+    | _ => didThrow := true
+    }
+    expect(didThrow.contents)->toBe(false)
+  })
+
+  testPromise("publishJsons with empty array succeeds", async () => {
+    let ops = await cmdTopic->ReventlessCore.Component.operations->TestRunner.resolve
+    let didThrow = ref(false)
+    try {
+      await ops.publishJsons([])
+    } catch {
+    | _ => didThrow := true
+    }
+    expect(didThrow.contents)->toBe(false)
+  })
+
+  testPromise("publishJsons dispatches to bus channel (TestCommandTopicCmdTopic)", async () => {
+    let ops = await cmdTopic->ReventlessCore.Component.operations->TestRunner.resolve
+    // Verify the bus receives the command on the expected channel.
+    // Channel name = make name ++ ComponentType.toName(CommandTopic) = "TestCommandTopic" ++ "CmdTopic"
+    let received: ref<bool> = ref(false)
+    Bus.registerCommandHandler("TestCommandTopicCmdTopic", async (_json, _ctx) => {
+      received := true
+    })
+    let commandJson = ItemSpec.DeleteItem({id: "item-99"})->ReventlessCore.Message.encode(ItemSpec.commandSchema)
+    await ops.publishJsons([{
+      Reventless.Message.id: "item-99",
+      meta: testMeta,
+      commandJson,
+    }])
+    expect(received.contents)->toBe(true)
+  })
+})