@reventlessdev/reventless-core 3.0.0-alpha.134

package/tests/aggregate/AggregateConflictTest.res.mjs

@@ -0,0 +1,363 @@
+// 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,
+  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;
+
+let eventLog_replayStream = mock.replayStreamFn;
+
+function eventLog_appendStream(_startingSeqNr, _id, stream) {
+  return Stream.runDrain(stream);
+}
+
+let eventLog = {
+  append: eventLog_append,
+  replay: eventLog_replay,
+  replayStream: eventLog_replayStream,
+  appendStream: eventLog_appendStream
+};
+
+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,
+  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());
+
+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

@@ -0,0 +1,177 @@
+S.enableJson()
+
+// ─────────────────────────────────────────────────────────────
+// Aggregate spec
+// ─────────────────────────────────────────────────────────────
+
+module AggSpec = {
+  module Id = Reventless.Id.StringPure
+  let name = "TestAggregate"
+
+  @schema
+  type command =
+    | Create({name: string})
+    | Rename({newName: string})
+
+  @schema
+  type event =
+    | Created({name: string})
+    | Renamed({newName: string})
+
+  @schema
+  type error =
+    | AlreadyExists
+    | NotFound
+
+  let moduleUrl: string = %raw(`import.meta.url`)
+}
+
+// ─────────────────────────────────────────────────────────────
+// Behavior
+// ─────────────────────────────────────────────────────────────
+
+module TestBehavior = {
+  module Spec = AggSpec
+
+  @schema
+  type state = NotCreated | Created({name: string})
+
+  let initialState = NotCreated
+
+  let moduleUrl: string = %raw(`import.meta.url`)
+
+  let evolve = (_state: state, event: AggSpec.event): state =>
+    switch event {
+    | AggSpec.Created({name}) => Created({name: name})
+    | AggSpec.Renamed({newName}) => Created({name: newName})
+    }
+
+  let decide = (state: state, command: AggSpec.command): result<array<AggSpec.event>, AggSpec.error> =>
+    switch (state, command) {
+    | (NotCreated, Create({name})) => Ok([AggSpec.Created({name: name})])
+    | (NotCreated, Rename(_)) => Error(NotFound)
+    | (Created(_), Create(_)) => Error(AlreadyExists)
+    | (Created(_), Rename({newName})) => Ok([AggSpec.Renamed({newName: newName})])
+    }
+}
+
+// ─────────────────────────────────────────────────────────────
+// Mock EventLog storage
+// ─────────────────────────────────────────────────────────────
+
+type mockEL = {
+  appendFn: (int, string, array<Message.event'<string, AggSpec.event>>) => promise<result<unit, string>>,
+  replayFn: string => promise<array<AggSpec.event>>,
+  replayStreamFn: string => Stream.t<AggSpec.event, string, unit>,
+  getAll: unit => array<Message.event'<string, AggSpec.event>>,
+  failNextAppend: ref<bool>,
+  reset: unit => unit,
+}
+
+let makeMockEL = (): mockEL => {
+  let storedRef: ref<array<Message.event'<string, AggSpec.event>>> = ref([])
+  let failRef = ref(false)
+
+  let appendFn = async (_seqNr, _id, newEvents) =>
+    if failRef.contents {
+      failRef := false
+      Error("append failed")
+    } else {
+      storedRef := storedRef.contents->Array.concat(newEvents)
+      Ok(())
+    }
+
+  let replayFn = async id =>
+    storedRef.contents
+    ->Array.filter(e => e.id == id)
+    ->Array.map(e => e.event)
+
+  let replayStreamFn = id =>
+    storedRef.contents
+    ->Array.filter(e => e.id == id)
+    ->Array.map(e => e.event)
+    ->Stream.fromIterable
+
+  {
+    appendFn,
+    replayFn,
+    replayStreamFn,
+    getAll: () => storedRef.contents,
+    failNextAppend: failRef,
+    reset: () => {
+      storedRef := []
+      failRef := false
+    },
+  }
+}
+
+// Module-level shared mock — reset in beforeEach
+let mock = makeMockEL()
+
+// ─────────────────────────────────────────────────────────────
+// TestOps satisfying Aggregate_Callback.Ops
+// ─────────────────────────────────────────────────────────────
+
+// Alias to preserve outer EventLog module reference inside inner EventLog definition
+module OuterEventLog = EventLog
+
+module TestOps = {
+  module Spec = AggSpec
+  module EventLog = {
+    module Spec = {
+      module Id = AggSpec.Id
+      let name = "MockEventLog"
+      @schema
+      type event = AggSpec.event
+    }
+    type operations = {
+      append: (
+        int,
+        string,
+        array<Message.event'<string, AggSpec.event>>,
+      ) => promise<result<unit, string>>,
+      replay: string => promise<array<AggSpec.event>>,
+      replayStream: string => Stream.t<AggSpec.event, string, unit>,
+      appendStream: (int, string, Stream.t<AggSpec.event, string, unit>) => Effect.t<unit, string, unit>,
+    }
+    type component = Component.t<OuterEventLog.t, OuterEventLog.outputs, operations>
+    // Never called — satisfies module type only
+    let make = (~name as _: string, ~opts as _=?): component => Obj.magic(0)
+  }
+  let eventLog: EventLog.operations = {
+    append: mock.appendFn,
+    replay: mock.replayFn,
+    replayStream: mock.replayStreamFn,
+    appendStream: (_startingSeqNr, _id, stream) => stream->Stream.runDrain,
+  }
+}
+
+// ─────────────────────────────────────────────────────────────
+// Callback handler under test
+// ─────────────────────────────────────────────────────────────
+
+module TestHandler = Aggregate_Callback.Make(AggSpec, TestBehavior, TestOps)
+
+// ─────────────────────────────────────────────────────────────
+// Test helpers
+// ─────────────────────────────────────────────────────────────
+
+let testMeta: Message.meta = {
+  service: "TestAggregate",
+  time: "2024-01-01T00:00:00Z",
+  ip: "127.0.0.1",
+  user: "test-user",
+  msgId: "msg-1",
+  correlationId: "corr-1",
+}
+
+let makeTopicItem = (~aggId="agg-1", reference, command): CommandTopic.topicItem<
+  Message.command'<string, AggSpec.command>,
+> => {
+  command: {
+    id: aggId,
+    meta: testMeta,
+    command,
+  },
+  reference,
+}