@reventlessdev/reventless-core 3.0.0-alpha.180 → 3.0.0-alpha.181

package/tests/commandgenerator/CommandGeneratorCallbackTest.res.mjs

@@ -0,0 +1,160 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Stdlib_JSON from "@rescript/runtime/lib/es6/Stdlib_JSON.js";
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as Effect from "effect/Effect";
+import * as CommandGeneratorFixtures$ReventlessCore from "./CommandGeneratorFixtures.res.mjs";
+
+globalThis.beforeEach(() => CommandGeneratorFixtures$ReventlessCore.reset());
+
+globalThis.describe("CommandGenerator_Callback.generateCommand:", () => {
+  globalThis.describe("zero-param command", () => {
+    globalThis.test("publishJsons called with plain string commandJson", async () => {
+      let payload = CommandGeneratorFixtures$ReventlessCore.makeZeroParamPayload("agg-1", "Create");
+      await Effect.runPromise(CommandGeneratorFixtures$ReventlessCore.TestGenerator.generateCommand(payload));
+      let publishedCmd = CommandGeneratorFixtures$ReventlessCore.capturedCmds.contents[0];
+      globalThis.expect(publishedCmd.commandJson).toEqual("Create");
+    });
+    globalThis.test("returns a Pending outcome with non-empty msgId", async () => {
+      let payload = CommandGeneratorFixtures$ReventlessCore.makeZeroParamPayload("agg-1", "Create");
+      let outcome = await Effect.runPromise(CommandGeneratorFixtures$ReventlessCore.TestGenerator.generateCommand(payload));
+      let msgId;
+      switch (outcome.TAG) {
+        case "Accepted" :
+        case "Rejected" :
+          msgId = "";
+          break;
+        case "Pending" :
+          msgId = outcome.msgId;
+          break;
+      }
+      globalThis.expect(msgId.length > 0).toBe(true);
+    });
+    globalThis.test("meta.service equals AggregateSpec.name", async () => {
+      let payload = CommandGeneratorFixtures$ReventlessCore.makeZeroParamPayload("agg-1", "Create");
+      await Effect.runPromise(CommandGeneratorFixtures$ReventlessCore.TestGenerator.generateCommand(payload));
+      let publishedCmd = CommandGeneratorFixtures$ReventlessCore.capturedCmds.contents[0];
+      globalThis.expect(publishedCmd.meta.service).toBe(CommandGeneratorFixtures$ReventlessCore.CmdGenAggSpec.name);
+    });
+    globalThis.test("meta.msgId equals meta.correlationId", async () => {
+      let payload = CommandGeneratorFixtures$ReventlessCore.makeZeroParamPayload("agg-1", "Create");
+      let outcome = await Effect.runPromise(CommandGeneratorFixtures$ReventlessCore.TestGenerator.generateCommand(payload));
+      let publishedCmd = CommandGeneratorFixtures$ReventlessCore.capturedCmds.contents[0];
+      let msgId;
+      switch (outcome.TAG) {
+        case "Accepted" :
+        case "Rejected" :
+          msgId = "";
+          break;
+        case "Pending" :
+          msgId = outcome.msgId;
+          break;
+      }
+      globalThis.expect([
+        publishedCmd.meta.msgId,
+        publishedCmd.meta.correlationId
+      ]).toEqual([
+        msgId,
+        msgId
+      ]);
+    });
+  });
+  globalThis.describe("multi-param command", () => {
+    globalThis.test("publishJsons called with object commandJson {TAG, param}", async () => {
+      let payload = CommandGeneratorFixtures$ReventlessCore.makeOneParamPayload("agg-1", "CreateWithName", "name", "Widget");
+      await Effect.runPromise(CommandGeneratorFixtures$ReventlessCore.TestGenerator.generateCommand(payload));
+      let publishedCmd = CommandGeneratorFixtures$ReventlessCore.capturedCmds.contents[0];
+      let cmdObj = Stdlib_Option.getOrThrow(Stdlib_JSON.Decode.object(publishedCmd.commandJson), undefined);
+      globalThis.expect(cmdObj["TAG"]).toEqual("CreateWithName");
+      globalThis.expect(cmdObj["name"]).toEqual("Widget");
+    });
+  });
+  globalThis.describe("schema validation failure", () => {
+    globalThis.test("invalid command name throws an error", async () => {
+      let payload = CommandGeneratorFixtures$ReventlessCore.makeZeroParamPayload("agg-1", "NonExistentCommand");
+      let threw = false;
+      try {
+        await Effect.runPromise(CommandGeneratorFixtures$ReventlessCore.TestGenerator.generateCommand(payload));
+      } catch (exn) {
+        threw = true;
+      }
+      globalThis.expect(threw).toBe(true);
+    });
+  });
+  globalThis.describe("StateChangeSlice envelope id derivation", () => {
+    globalThis.test("single @partitionTag: id derived from tagged field when args have no id", async () => {
+      let payload = CommandGeneratorFixtures$ReventlessCore.makeSlicePayload("CreateItem", Object.fromEntries([
+        [
+          "itemId",
+          "item-42"
+        ],
+        [
+          "name",
+          "Widget"
+        ]
+      ]));
+      let outcome = await Effect.runPromise(CommandGeneratorFixtures$ReventlessCore.singleTagSliceGen(payload));
+      let publishedCmd = CommandGeneratorFixtures$ReventlessCore.capturedCmds.contents[0];
+      globalThis.expect(publishedCmd.id).toBe("item-42");
+      let msgId;
+      switch (outcome.TAG) {
+        case "Accepted" :
+        case "Rejected" :
+          msgId = "";
+          break;
+        case "Pending" :
+          msgId = outcome.msgId;
+          break;
+      }
+      globalThis.expect(msgId.length > 0).toBe(true);
+    });
+    globalThis.test("composite @compositePartitionTag: id is joined partition-key value", async () => {
+      let payload = CommandGeneratorFixtures$ReventlessCore.makeSlicePayload("DeployVersion", Object.fromEntries([
+        [
+          "environment",
+          "prod"
+        ],
+        [
+          "service",
+          "checkout"
+        ],
+        [
+          "version",
+          "1.2.3"
+        ]
+      ]));
+      await Effect.runPromise(CommandGeneratorFixtures$ReventlessCore.compositeTagSliceGen(payload));
+      let publishedCmd = CommandGeneratorFixtures$ReventlessCore.capturedCmds.contents[0];
+      globalThis.expect(publishedCmd.id).toBe("prod-checkout");
+    });
+    globalThis.test("explicit id in args wins over derivation (regression check)", async () => {
+      let payload = CommandGeneratorFixtures$ReventlessCore.makeSlicePayload("CreateItem", Object.fromEntries([
+        [
+          "id",
+          "explicit-id"
+        ],
+        [
+          "itemId",
+          "item-99"
+        ],
+        [
+          "name",
+          "Gadget"
+        ]
+      ]));
+      await Effect.runPromise(CommandGeneratorFixtures$ReventlessCore.singleTagSliceGen(payload));
+      let publishedCmd = CommandGeneratorFixtures$ReventlessCore.capturedCmds.contents[0];
+      globalThis.expect(publishedCmd.id).toBe("explicit-id");
+    });
+  });
+  globalThis.describe("Aggregate envelope id (regression)", () => {
+    globalThis.test("explicit id in args is preserved unchanged", async () => {
+      let payload = CommandGeneratorFixtures$ReventlessCore.makeZeroParamPayload("agg-7", "Create");
+      await Effect.runPromise(CommandGeneratorFixtures$ReventlessCore.TestGenerator.generateCommand(payload));
+      let publishedCmd = CommandGeneratorFixtures$ReventlessCore.capturedCmds.contents[0];
+      globalThis.expect(publishedCmd.id).toBe("agg-7");
+    });
+  });
+});
+
+/*  Not a pure module */

package/tests/commandgenerator/CommandGeneratorFixtures.res.mjs

@@ -0,0 +1,197 @@
+// 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 DcbTag$Reventless from "@reventlessdev/reventless-spec/src/components/DcbTag.res.mjs";
+import * as CommandGenerator_Callback$ReventlessCore from "../../src/components/CommandGenerator/CommandGenerator_Callback.res.mjs";
+
+S.enableJson();
+
+let name = "TestCmdGenAgg";
+
+let commandSchema = S.union([
+  S.literal("Create"),
+  S.schema(s => ({
+    TAG: "CreateWithName",
+    name: s.m(S.string)
+  })),
+  S.literal("Invalid")
+]);
+
+let eventSchema = S.union([
+  S.literal("Created"),
+  S.schema(s => ({
+    TAG: "CreatedWithName",
+    name: s.m(S.string)
+  }))
+]);
+
+let errorSchema = S.literal("InvalidCommand");
+
+let moduleUrl = import.meta.url;
+
+function commandAuthorization(param) {
+  return "AllowAuthenticated";
+}
+
+let CmdGenAggSpec = {
+  Id: undefined,
+  name: name,
+  commandSchema: commandSchema,
+  eventSchema: eventSchema,
+  errorSchema: errorSchema,
+  moduleUrl: moduleUrl,
+  commandAuthorization: commandAuthorization
+};
+
+let moduleUrl$1 = import.meta.url;
+
+function evolve(_state, _event) {
+  
+}
+
+function decide(_state, command) {
+  if (typeof command !== "object") {
+    if (command === "Create") {
+      return {
+        TAG: "Ok",
+        _0: ["Created"]
+      };
+    } else {
+      return {
+        TAG: "Ok",
+        _0: []
+      };
+    }
+  } else {
+    return {
+      TAG: "Ok",
+      _0: [{
+          TAG: "CreatedWithName",
+          name: command.name
+        }]
+    };
+  }
+}
+
+let CmdGenBehavior = {
+  Spec: undefined,
+  moduleUrl: moduleUrl$1,
+  initialState: undefined,
+  evolve: evolve,
+  decide: decide
+};
+
+let capturedCmds = {
+  contents: []
+};
+
+async function publishJsons(cmds) {
+  capturedCmds.contents = capturedCmds.contents.concat(cmds);
+}
+
+let MockPublishSpec = {
+  publishJsons: publishJsons,
+  publishJsonsAndWait: undefined
+};
+
+let TestGenerator = CommandGenerator_Callback$ReventlessCore.Make(MockPublishSpec)({
+  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
+});
+
+let singleTagCommandSchema = S.schema(s => ({
+  TAG: "CreateItem",
+  itemId: s.m(DcbTag$Reventless.string),
+  name: s.m(S.string)
+}));
+
+let compositeTagCommandSchema = S.schema(s => ({
+  TAG: "DeployVersion",
+  environment: s.m(DcbTag$Reventless.compositePartitionMember(0, "-")),
+  service: s.m(DcbTag$Reventless.compositePartitionMember(1, undefined)),
+  version: s.m(S.string)
+}));
+
+let singleTagSliceGen = CommandGenerator_Callback$ReventlessCore.makeGenerateCommand(publishJsons, undefined, "SingleTagSlice", singleTagCommandSchema, "StateChangeSlice", false);
+
+let compositeTagSliceGen = CommandGenerator_Callback$ReventlessCore.makeGenerateCommand(publishJsons, undefined, "CompositeTagSlice", compositeTagCommandSchema, "StateChangeSlice", false);
+
+function makeSlicePayload(command, args) {
+  return {
+    command: command,
+    arguments: args,
+    meta: {
+      ip: ["127.0.0.1"],
+      user: "test-user",
+      info: ""
+    }
+  };
+}
+
+function makeZeroParamPayload(id, command) {
+  return {
+    command: command,
+    arguments: {
+      id: id
+    },
+    meta: {
+      ip: ["127.0.0.1"],
+      user: "test-user",
+      info: ""
+    }
+  };
+}
+
+function makeOneParamPayload(id, command, paramName, paramValue) {
+  return {
+    command: command,
+    arguments: Object.fromEntries([
+      [
+        "id",
+        id
+      ],
+      [
+        paramName,
+        paramValue
+      ]
+    ]),
+    meta: {
+      ip: ["127.0.0.1"],
+      user: "test-user",
+      info: ""
+    }
+  };
+}
+
+function reset() {
+  capturedCmds.contents = [];
+}
+
+export {
+  CmdGenAggSpec,
+  CmdGenBehavior,
+  capturedCmds,
+  MockPublishSpec,
+  TestGenerator,
+  singleTagCommandSchema,
+  compositeTagCommandSchema,
+  singleTagSliceGen,
+  compositeTagSliceGen,
+  makeSlicePayload,
+  makeZeroParamPayload,
+  makeOneParamPayload,
+  reset,
+}
+/*  Not a pure module */

package/tests/commandtopic/CommandTopicCallbackFixtures.res.mjs

@@ -0,0 +1,152 @@
+// 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 Stdlib_JsError from "@rescript/runtime/lib/es6/Stdlib_JsError.js";
+import * as Message$ReventlessCore from "../../src/Message.res.mjs";
+import * as CommandTopic_Callback$ReventlessCore from "../../src/components/CommandTopic/CommandTopic_Callback.res.mjs";
+
+S.enableJson();
+
+let name = "TestCommandTopic";
+
+let commandSchema = S.union([
+  S.schema(s => ({
+    TAG: "CreateItem",
+    itemId: s.m(S.string)
+  })),
+  S.schema(s => ({
+    TAG: "DeleteItem",
+    itemId: s.m(S.string)
+  }))
+]);
+
+function commandAuthorization(param) {
+  return "AllowAuthenticated";
+}
+
+let TestSpec = {
+  Id: undefined,
+  name: name,
+  commandSchema: commandSchema,
+  commandAuthorization: commandAuthorization
+};
+
+let capturedItems = {
+  contents: []
+};
+
+let commandHandlerResults = {
+  contents: [{
+      TAG: "Ok",
+      _0: "ref-1"
+    }]
+};
+
+let commandHandlerShouldThrow = {
+  contents: false
+};
+
+function commandsHandler(stream) {
+  return Effect.map(Stream.runCollect(stream), items => {
+    if (commandHandlerShouldThrow.contents) {
+      Stdlib_JsError.throwWithMessage("commandsHandler failed");
+    }
+    capturedItems.contents = capturedItems.contents.concat(items.map(item => ({
+      reference: item.reference,
+      command: item.command.command
+    })));
+    return commandHandlerResults.contents;
+  });
+}
+
+let TestOps_Spec = {
+  Id: Id$Reventless.StringPure,
+  name: name,
+  commandSchema: commandSchema,
+  commandAuthorization: commandAuthorization
+};
+
+let TestOps = {
+  Spec: TestOps_Spec,
+  commandsHandler: commandsHandler
+};
+
+let $$let = TestOps_Spec;
+
+let $$let$1 = $$let.Id;
+
+let TestHandler = CommandTopic_Callback$ReventlessCore.Make({
+  Id: {
+    schema: Id$Reventless.StringPure.schema,
+    make: prim => prim,
+    makeFromString: prim => prim,
+    toString: prim => prim,
+    cmp: Id$Reventless.StringPure.cmp
+  },
+  name: name,
+  commandSchema: commandSchema
+})({
+  Spec: {
+    Id: {
+      schema: $$let$1.schema,
+      make: prim => prim,
+      makeFromString: prim => prim,
+      toString: prim => prim,
+      cmp: $$let$1.cmp
+    },
+    name: $$let.name,
+    commandSchema: $$let.commandSchema
+  },
+  commandsHandler: commandsHandler
+});
+
+let testMeta = {
+  service: "TestService",
+  time: "2024-01-01T00:00:00Z",
+  ip: "127.0.0.1",
+  user: "test-user",
+  msgId: "cmd-msg-1",
+  correlationId: "cmd-corr-1"
+};
+
+function makeCommandJson(id, command) {
+  let cmd$p = {
+    id: id,
+    meta: testMeta,
+    command: command
+  };
+  return Message$ReventlessCore.encodeCommand$p(cmd$p, Id$Reventless.StringPure.schema, commandSchema);
+}
+
+function makeTopicItem(id, command) {
+  return {
+    command: makeCommandJson(id, command),
+    reference: id
+  };
+}
+
+function reset() {
+  capturedItems.contents = [];
+  commandHandlerResults.contents = [{
+      TAG: "Ok",
+      _0: "ref-1"
+    }];
+  commandHandlerShouldThrow.contents = false;
+}
+
+export {
+  TestSpec,
+  capturedItems,
+  commandHandlerResults,
+  commandHandlerShouldThrow,
+  TestOps,
+  TestHandler,
+  testMeta,
+  makeCommandJson,
+  makeTopicItem,
+  reset,
+}
+/*  Not a pure module */

package/tests/commandtopic/CommandTopicCallbackTest.res.mjs

@@ -0,0 +1,106 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Effect from "effect/Effect";
+import * as Stream from "effect/Stream";
+import * as CommandTopicCallbackFixtures$ReventlessCore from "./CommandTopicCallbackFixtures.res.mjs";
+
+globalThis.beforeEach(() => CommandTopicCallbackFixtures$ReventlessCore.reset());
+
+globalThis.describe("CommandTopic_Callback.handleJsonCommands:", () => {
+  globalThis.describe("valid command JSON", () => {
+    globalThis.test("decoded command passed to commandsHandler", async () => {
+      let item = CommandTopicCallbackFixtures$ReventlessCore.makeTopicItem("agg-1", {
+        TAG: "CreateItem",
+        itemId: "item-1"
+      });
+      await Effect.runPromise(CommandTopicCallbackFixtures$ReventlessCore.TestHandler.handleJsonCommands(Stream.fromIterable([item])));
+      globalThis.expect(CommandTopicCallbackFixtures$ReventlessCore.capturedItems.contents.length).toBe(1);
+      let captured = CommandTopicCallbackFixtures$ReventlessCore.capturedItems.contents[0];
+      globalThis.expect(captured.reference).toBe("agg-1");
+      globalThis.expect(captured.command).toEqual({
+        TAG: "CreateItem",
+        itemId: "item-1"
+      });
+    });
+  });
+  globalThis.describe("results returned from commandsHandler", () => {
+    globalThis.test("handler results propagated as return value", async () => {
+      CommandTopicCallbackFixtures$ReventlessCore.commandHandlerResults.contents = [
+        {
+          TAG: "Ok",
+          _0: "agg-1"
+        },
+        {
+          TAG: "Error",
+          _0: "agg-2"
+        }
+      ];
+      let item = CommandTopicCallbackFixtures$ReventlessCore.makeTopicItem("agg-1", {
+        TAG: "CreateItem",
+        itemId: "item-1"
+      });
+      let results = await Effect.runPromise(CommandTopicCallbackFixtures$ReventlessCore.TestHandler.handleJsonCommands(Stream.fromIterable([item])));
+      globalThis.expect(results).toEqual([
+        {
+          TAG: "Ok",
+          _0: "agg-1"
+        },
+        {
+          TAG: "Error",
+          _0: "agg-2"
+        }
+      ]);
+    });
+  });
+  globalThis.describe("malformed command JSON", () => {
+    globalThis.test("skipped gracefully — commandsHandler called with empty array", async () => {
+      let invalidItem = {
+        command: "not-a-command-object",
+        reference: "ref-1"
+      };
+      await Effect.runPromise(CommandTopicCallbackFixtures$ReventlessCore.TestHandler.handleJsonCommands(Stream.fromIterable([invalidItem])));
+      globalThis.expect(CommandTopicCallbackFixtures$ReventlessCore.capturedItems.contents.length).toBe(0);
+    });
+  });
+  globalThis.describe("multiple commands in batch", () => {
+    globalThis.test("all decodable commands reach commandsHandler", async () => {
+      let items = [
+        CommandTopicCallbackFixtures$ReventlessCore.makeTopicItem("agg-1", {
+          TAG: "CreateItem",
+          itemId: "item-1"
+        }),
+        CommandTopicCallbackFixtures$ReventlessCore.makeTopicItem("agg-2", {
+          TAG: "DeleteItem",
+          itemId: "item-2"
+        }),
+        CommandTopicCallbackFixtures$ReventlessCore.makeTopicItem("agg-3", {
+          TAG: "CreateItem",
+          itemId: "item-3"
+        })
+      ];
+      await Effect.runPromise(CommandTopicCallbackFixtures$ReventlessCore.TestHandler.handleJsonCommands(Stream.fromIterable(items)));
+      globalThis.expect(CommandTopicCallbackFixtures$ReventlessCore.capturedItems.contents.length).toBe(3);
+    });
+  });
+  globalThis.describe("mixed valid and invalid commands", () => {
+    globalThis.test("only valid commands reach commandsHandler", async () => {
+      let validItem = CommandTopicCallbackFixtures$ReventlessCore.makeTopicItem("agg-1", {
+        TAG: "CreateItem",
+        itemId: "item-1"
+      });
+      let invalidItem_command = null;
+      let invalidItem = {
+        command: invalidItem_command,
+        reference: "ref-bad"
+      };
+      await Effect.runPromise(CommandTopicCallbackFixtures$ReventlessCore.TestHandler.handleJsonCommands(Stream.fromIterable([
+        validItem,
+        invalidItem
+      ])));
+      globalThis.expect(CommandTopicCallbackFixtures$ReventlessCore.capturedItems.contents.length).toBe(1);
+      globalThis.expect(CommandTopicCallbackFixtures$ReventlessCore.capturedItems.contents[0].reference).toBe("agg-1");
+    });
+  });
+});
+
+/*  Not a pure module */