@reventlessdev/reventless-core 3.0.0-alpha.170 → 3.0.0-alpha.172

package/tests/commandgenerator/CommandGeneratorCallbackTest.res.mjs

@@ -1,160 +0,0 @@
-// 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

@@ -1,197 +0,0 @@
-// 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

@@ -1,152 +0,0 @@
-// 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

@@ -1,106 +0,0 @@
-// 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 */