@reventlessdev/reventless-core 3.0.0-alpha.169 → 3.0.0-alpha.171

package/tests/aggregate/AggregateConflictTest.res.mjs

@@ -1,386 +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 Effect from "effect/Effect";
-import * as Stream from "effect/Stream";
-import * as Aggregate_Callback$ReventlessCore from "../../src/components/Aggregate/Aggregate_Callback.res.mjs";
-
-S.enableJson();
-
-let name = "ConflictTestAggregate";
-
-let commandSchema = S.schema(s => ({
-  TAG: "Create",
-  name: s.m(S.string)
-}));
-
-let eventSchema = S.schema(s => ({
-  TAG: "Created",
-  name: s.m(S.string)
-}));
-
-let errorSchema = S.literal("AlreadyExists");
-
-let moduleUrl = import.meta.url;
-
-function commandAuthorization(param) {
-  return "AllowAuthenticated";
-}
-
-let AggSpec = {
-  Id: undefined,
-  name: name,
-  commandSchema: commandSchema,
-  eventSchema: eventSchema,
-  errorSchema: errorSchema,
-  moduleUrl: moduleUrl,
-  commandAuthorization: commandAuthorization
-};
-
-let initialState = {
-  name: ""
-};
-
-let moduleUrl$1 = import.meta.url;
-
-function evolve(_state, event) {
-  return {
-    name: event.name
-  };
-}
-
-function decide(_state, command) {
-  return {
-    TAG: "Ok",
-    _0: [{
-        TAG: "Created",
-        name: command.name
-      }]
-  };
-}
-
-let TestBehavior = {
-  Spec: undefined,
-  initialState: initialState,
-  snapshot: undefined,
-  moduleUrl: moduleUrl$1,
-  evolve: evolve,
-  decide: decide
-};
-
-function makeMockEL() {
-  let storedRef = {
-    contents: []
-  };
-  let failConflictRef = {
-    contents: 0
-  };
-  let appendCount = {
-    contents: 0
-  };
-  let replayCount = {
-    contents: 0
-  };
-  let appendFn = async (_seqNr, _id, newEvents) => {
-    appendCount.contents = appendCount.contents + 1 | 0;
-    if (failConflictRef.contents > 0) {
-      failConflictRef.contents = failConflictRef.contents - 1 | 0;
-      return {
-        TAG: "Error",
-        _0: "Conflict"
-      };
-    } else {
-      storedRef.contents = storedRef.contents.concat(newEvents);
-      return {
-        TAG: "Ok",
-        _0: undefined
-      };
-    }
-  };
-  let replayFn = async id => {
-    replayCount.contents = replayCount.contents + 1 | 0;
-    return storedRef.contents.filter(e => e.id === id).map(e => e.event);
-  };
-  let replayStreamFn = id => {
-    replayCount.contents = replayCount.contents + 1 | 0;
-    return Stream.fromIterable(storedRef.contents.filter(e => e.id === id).map(e => e.event));
-  };
-  return {
-    appendFn: appendFn,
-    replayFn: replayFn,
-    replayStreamFn: replayStreamFn,
-    getAll: () => storedRef.contents,
-    failNextAppendsWithConflict: failConflictRef,
-    appendCallCount: appendCount,
-    replayCallCount: replayCount,
-    reset: () => {
-      storedRef.contents = [];
-      failConflictRef.contents = 0;
-      appendCount.contents = 0;
-      replayCount.contents = 0;
-    }
-  };
-}
-
-let mock = makeMockEL();
-
-let name$1 = "ConflictMockEventLog";
-
-let Spec = {
-  Id: undefined,
-  name: name$1,
-  eventSchema: eventSchema
-};
-
-function make(param, param$1) {
-  return 0;
-}
-
-let EventLog = {
-  Spec: Spec,
-  make: make
-};
-
-let eventLog_append = mock.appendFn;
-
-let eventLog_replay = mock.replayFn;
-
-function eventLog_replayStream(id, param) {
-  return mock.replayStreamFn(id);
-}
-
-function eventLog_appendStream(_startingSeqNr, _id, stream) {
-  return Stream.runDrain(stream);
-}
-
-async function eventLog_latestSnapshot(param) {
-  return {
-    TAG: "Ok",
-    _0: undefined
-  };
-}
-
-async function eventLog_writeSnapshot(param, param$1) {
-  return {
-    TAG: "Ok",
-    _0: undefined
-  };
-}
-
-let eventLog = {
-  append: eventLog_append,
-  replay: eventLog_replay,
-  replayStream: eventLog_replayStream,
-  appendStream: eventLog_appendStream,
-  latestSnapshot: eventLog_latestSnapshot,
-  writeSnapshot: eventLog_writeSnapshot
-};
-
-let TestOps = {
-  Spec: undefined,
-  EventLog: EventLog,
-  eventLog: eventLog
-};
-
-let TestHandler = Aggregate_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,
-  eventSchema: eventSchema,
-  errorSchema: errorSchema,
-  commandSchema: commandSchema,
-  moduleUrl: moduleUrl,
-  commandAuthorization: commandAuthorization
-})({
-  initialState: initialState,
-  evolve: evolve,
-  decide: decide,
-  snapshot: undefined,
-  moduleUrl: moduleUrl$1
-})({
-  Spec: {
-    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
-  },
-  EventLog: {
-    Spec: {
-      Id: {
-        schema: Id$Reventless.StringPure.schema,
-        make: prim => prim,
-        makeFromString: prim => prim,
-        toString: prim => prim,
-        cmp: Id$Reventless.StringPure.cmp
-      },
-      name: name$1,
-      eventSchema: eventSchema
-    },
-    make: make
-  },
-  eventLog: eventLog
-});
-
-let testMeta = {
-  service: "ConflictTestAggregate",
-  time: "2024-01-01T00:00:00Z",
-  ip: "127.0.0.1",
-  user: "test-user",
-  msgId: "msg-1",
-  correlationId: "corr-1"
-};
-
-function makeTopicItem(reference, command) {
-  return {
-    command: {
-      id: "agg-1",
-      meta: testMeta,
-      command: command
-    },
-    reference: reference
-  };
-}
-
-globalThis.beforeEach(() => {
-  mock.reset();
-  TestHandler.resetCache();
-});
-
-globalThis.describe("Aggregate_Callback — conflict retry:", () => {
-  globalThis.test("1 conflict retries and succeeds", async () => {
-    mock.failNextAppendsWithConflict.contents = 1;
-    let results = await Effect.runPromise(TestHandler.handleCommands(Stream.fromIterable([{
-        command: {
-          id: "agg-1",
-          meta: testMeta,
-          command: {
-            TAG: "Create",
-            name: "Widget"
-          }
-        },
-        reference: "ref-1"
-      }])));
-    globalThis.expect(results).toEqual([{
-        TAG: "Ok",
-        _0: "ref-1"
-      }]);
-    globalThis.expect(mock.appendCallCount.contents).toBe(2);
-  });
-  globalThis.test("conflict triggers re-replay", async () => {
-    mock.failNextAppendsWithConflict.contents = 1;
-    await Effect.runPromise(TestHandler.handleCommands(Stream.fromIterable([{
-        command: {
-          id: "agg-1",
-          meta: testMeta,
-          command: {
-            TAG: "Create",
-            name: "Widget"
-          }
-        },
-        reference: "ref-1"
-      }])));
-    globalThis.expect(mock.replayCallCount.contents).toBe(2);
-  });
-  globalThis.test("2 conflicts retry twice and succeed", async () => {
-    mock.failNextAppendsWithConflict.contents = 2;
-    let results = await Effect.runPromise(TestHandler.handleCommands(Stream.fromIterable([{
-        command: {
-          id: "agg-1",
-          meta: testMeta,
-          command: {
-            TAG: "Create",
-            name: "Widget"
-          }
-        },
-        reference: "ref-1"
-      }])));
-    globalThis.expect(results).toEqual([{
-        TAG: "Ok",
-        _0: "ref-1"
-      }]);
-    globalThis.expect(mock.appendCallCount.contents).toBe(3);
-  });
-  globalThis.test("max retries exhausted returns Error with detail message", async () => {
-    mock.failNextAppendsWithConflict.contents = 4;
-    let results = await Effect.runPromise(TestHandler.handleCommands(Stream.fromIterable([{
-        command: {
-          id: "agg-1",
-          meta: testMeta,
-          command: {
-            TAG: "Create",
-            name: "Widget"
-          }
-        },
-        reference: "ref-1"
-      }])));
-    globalThis.expect(results).toEqual([{
-        TAG: "Error",
-        _0: "concurrent modification (3 retries exhausted): conflict"
-      }]);
-    globalThis.expect(mock.appendCallCount.contents).toBe(4);
-  });
-  globalThis.test("successful append after conflict stores event", async () => {
-    mock.failNextAppendsWithConflict.contents = 1;
-    await Effect.runPromise(TestHandler.handleCommands(Stream.fromIterable([{
-        command: {
-          id: "agg-1",
-          meta: testMeta,
-          command: {
-            TAG: "Create",
-            name: "Widget"
-          }
-        },
-        reference: "ref-1"
-      }])));
-    globalThis.expect(mock.getAll().length).toBe(1);
-  });
-  globalThis.test("no conflict does not retry", async () => {
-    let results = await Effect.runPromise(TestHandler.handleCommands(Stream.fromIterable([{
-        command: {
-          id: "agg-1",
-          meta: testMeta,
-          command: {
-            TAG: "Create",
-            name: "Widget"
-          }
-        },
-        reference: "ref-1"
-      }])));
-    globalThis.expect(results).toEqual([{
-        TAG: "Ok",
-        _0: "ref-1"
-      }]);
-    globalThis.expect(mock.appendCallCount.contents).toBe(1);
-    globalThis.expect(mock.replayCallCount.contents).toBe(1);
-  });
-});
-
-let OuterEventLog;
-
-export {
-  AggSpec,
-  TestBehavior,
-  makeMockEL,
-  mock,
-  OuterEventLog,
-  TestOps,
-  TestHandler,
-  testMeta,
-  makeTopicItem,
-}
-/*  Not a pure module */

package/tests/aggregate/AggregateFixtures.res.mjs

@@ -1,308 +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 Stream from "effect/Stream";
-import * as Aggregate_Callback$ReventlessCore from "../../src/components/Aggregate/Aggregate_Callback.res.mjs";
-
-S.enableJson();
-
-let name = "TestAggregate";
-
-let commandSchema = S.union([
-  S.schema(s => ({
-    TAG: "Create",
-    name: s.m(S.string)
-  })),
-  S.schema(s => ({
-    TAG: "Rename",
-    newName: s.m(S.string)
-  }))
-]);
-
-let eventSchema = S.union([
-  S.schema(s => ({
-    TAG: "Created",
-    name: s.m(S.string)
-  })),
-  S.schema(s => ({
-    TAG: "Renamed",
-    newName: s.m(S.string)
-  }))
-]);
-
-let errorSchema = S.union([
-  S.literal("AlreadyExists"),
-  S.literal("NotFound")
-]);
-
-let moduleUrl = import.meta.url;
-
-function commandAuthorization(param) {
-  return "AllowAuthenticated";
-}
-
-let AggSpec = {
-  Id: undefined,
-  name: name,
-  commandSchema: commandSchema,
-  eventSchema: eventSchema,
-  errorSchema: errorSchema,
-  moduleUrl: moduleUrl,
-  commandAuthorization: commandAuthorization
-};
-
-let stateSchema = S.union([
-  S.literal("NotCreated"),
-  S.schema(s => ({
-    TAG: "Created",
-    name: s.m(S.string)
-  }))
-]);
-
-let moduleUrl$1 = import.meta.url;
-
-function evolve(_state, event) {
-  if (event.TAG === "Created") {
-    return {
-      TAG: "Created",
-      name: event.name
-    };
-  } else {
-    return {
-      TAG: "Created",
-      name: event.newName
-    };
-  }
-}
-
-function decide(state, command) {
-  if (typeof state !== "object") {
-    if (command.TAG === "Create") {
-      return {
-        TAG: "Ok",
-        _0: [{
-            TAG: "Created",
-            name: command.name
-          }]
-      };
-    } else {
-      return {
-        TAG: "Error",
-        _0: "NotFound"
-      };
-    }
-  } else if (command.TAG === "Create") {
-    return {
-      TAG: "Error",
-      _0: "AlreadyExists"
-    };
-  } else {
-    return {
-      TAG: "Ok",
-      _0: [{
-          TAG: "Renamed",
-          newName: command.newName
-        }]
-    };
-  }
-}
-
-let TestBehavior = {
-  Spec: undefined,
-  stateSchema: stateSchema,
-  initialState: "NotCreated",
-  snapshot: undefined,
-  moduleUrl: moduleUrl$1,
-  evolve: evolve,
-  decide: decide
-};
-
-function makeMockEL() {
-  let storedRef = {
-    contents: []
-  };
-  let failRef = {
-    contents: false
-  };
-  let appendFn = async (_seqNr, _id, newEvents) => {
-    if (failRef.contents) {
-      failRef.contents = false;
-      return {
-        TAG: "Error",
-        _0: {
-          TAG: "StorageFailure",
-          _0: "append failed"
-        }
-      };
-    } else {
-      storedRef.contents = storedRef.contents.concat(newEvents);
-      return {
-        TAG: "Ok",
-        _0: undefined
-      };
-    }
-  };
-  let replayFn = async id => storedRef.contents.filter(e => e.id === id).map(e => e.event);
-  let replayStreamFn = id => Stream.fromIterable(storedRef.contents.filter(e => e.id === id).map(e => e.event));
-  return {
-    appendFn: appendFn,
-    replayFn: replayFn,
-    replayStreamFn: replayStreamFn,
-    getAll: () => storedRef.contents,
-    failNextAppend: failRef,
-    reset: () => {
-      storedRef.contents = [];
-      failRef.contents = false;
-    }
-  };
-}
-
-let mock = makeMockEL();
-
-let name$1 = "MockEventLog";
-
-let Spec = {
-  Id: undefined,
-  name: name$1,
-  eventSchema: eventSchema
-};
-
-function make(param, param$1) {
-  return 0;
-}
-
-let EventLog = {
-  Spec: Spec,
-  make: make
-};
-
-let eventLog_append = mock.appendFn;
-
-let eventLog_replay = mock.replayFn;
-
-function eventLog_replayStream(id, param) {
-  return mock.replayStreamFn(id);
-}
-
-function eventLog_appendStream(_startingSeqNr, _id, stream) {
-  return Stream.runDrain(stream);
-}
-
-async function eventLog_latestSnapshot(param) {
-  return {
-    TAG: "Ok",
-    _0: undefined
-  };
-}
-
-async function eventLog_writeSnapshot(param, param$1) {
-  return {
-    TAG: "Ok",
-    _0: undefined
-  };
-}
-
-let eventLog = {
-  append: eventLog_append,
-  replay: eventLog_replay,
-  replayStream: eventLog_replayStream,
-  appendStream: eventLog_appendStream,
-  latestSnapshot: eventLog_latestSnapshot,
-  writeSnapshot: eventLog_writeSnapshot
-};
-
-let TestOps = {
-  Spec: undefined,
-  EventLog: EventLog,
-  eventLog: eventLog
-};
-
-let TestHandler = Aggregate_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,
-  eventSchema: eventSchema,
-  errorSchema: errorSchema,
-  commandSchema: commandSchema,
-  moduleUrl: moduleUrl,
-  commandAuthorization: commandAuthorization
-})({
-  initialState: "NotCreated",
-  evolve: evolve,
-  decide: decide,
-  snapshot: undefined,
-  moduleUrl: moduleUrl$1
-})({
-  Spec: {
-    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
-  },
-  EventLog: {
-    Spec: {
-      Id: {
-        schema: Id$Reventless.StringPure.schema,
-        make: prim => prim,
-        makeFromString: prim => prim,
-        toString: prim => prim,
-        cmp: Id$Reventless.StringPure.cmp
-      },
-      name: name$1,
-      eventSchema: eventSchema
-    },
-    make: make
-  },
-  eventLog: eventLog
-});
-
-let testMeta = {
-  service: "TestAggregate",
-  time: "2024-01-01T00:00:00Z",
-  ip: "127.0.0.1",
-  user: "test-user",
-  msgId: "msg-1",
-  correlationId: "corr-1"
-};
-
-function makeTopicItem(aggIdOpt, reference, command) {
-  let aggId = aggIdOpt !== undefined ? aggIdOpt : "agg-1";
-  return {
-    command: {
-      id: aggId,
-      meta: testMeta,
-      command: command
-    },
-    reference: reference
-  };
-}
-
-let OuterEventLog;
-
-export {
-  AggSpec,
-  TestBehavior,
-  makeMockEL,
-  mock,
-  OuterEventLog,
-  TestOps,
-  TestHandler,
-  testMeta,
-  makeTopicItem,
-}
-/*  Not a pure module */