@reventlessdev/reventless-core 3.0.0-alpha.136 → 3.0.0-alpha.138

package/tests/eventlog/EventLogFixtures.res.mjs

@@ -29,6 +29,10 @@ let storedEvents = {
   contents: {}
 };
 
+let storedSnapshots = {
+  contents: {}
+};
+
 let failNextAppend = {
   contents: false
 };
@@ -75,8 +79,9 @@ async function mockStorage_replay(id) {
   return Stdlib_Option.getOr(storedEvents.contents[id], []);
 }
 
-function mockStorage_replayStream(id) {
-  return Stream.fromIterable(Stdlib_Option.getOr(storedEvents.contents[id], []));
+function mockStorage_replayStream(id, fromSeqOpt) {
+  let fromSeq = fromSeqOpt !== undefined ? fromSeqOpt : 0;
+  return Stream.fromIterable(Stdlib_Option.getOr(storedEvents.contents[id], []).slice(fromSeq));
 }
 
 function mockStorage_appendStream(_startingSeqNr, id, stream) {
@@ -86,11 +91,28 @@ function mockStorage_appendStream(_startingSeqNr, id, stream) {
   }));
 }
 
+async function mockStorage_latestSnapshot(id) {
+  return {
+    TAG: "Ok",
+    _0: storedSnapshots.contents[id]
+  };
+}
+
+async function mockStorage_writeSnapshot(id, snap) {
+  storedSnapshots.contents[id] = snap;
+  return {
+    TAG: "Ok",
+    _0: undefined
+  };
+}
+
 let mockStorage = {
   append: mockStorage_append,
   replay: mockStorage_replay,
   replayStream: mockStorage_replayStream,
-  appendStream: mockStorage_appendStream
+  appendStream: mockStorage_appendStream,
+  latestSnapshot: mockStorage_latestSnapshot,
+  writeSnapshot: mockStorage_writeSnapshot
 };
 
 let capturedPublishes = {
@@ -149,6 +171,7 @@ function makeEvent$p(id, event) {
 
 function reset() {
   storedEvents.contents = {};
+  storedSnapshots.contents = {};
   failNextAppend.contents = false;
   failNextAppendsWithTransient.contents = 0;
   appendCallCount.contents = 0;
@@ -158,6 +181,7 @@ function reset() {
 export {
   ItemEventLogSpec,
   storedEvents,
+  storedSnapshots,
   failNextAppend,
   failNextAppendsWithTransient,
   appendCallCount,

package/tests/logger/LoggerLazyTest.res

@@ -0,0 +1,36 @@
+// Unit tests for Logger.debugLazy (B6): the message thunk must run only when
+// debug output is actually enabled, so hot paths (per-projection-action logging)
+// don't pay to build/serialize a string that is dropped at Info level.
+
+open JestGlobals
+
+describe("Logger.debugLazy", () => {
+  testSync("does NOT invoke the thunk at the default Info level", () => {
+    let called = ref(false)
+    let log = Logger.makeLogger(~minLevel=Logger.Info)
+    log.debugLazy(~comp="Test", () => {
+      called := true
+      "should never be built"
+    })
+    expect(called.contents)->toEqual(false)
+  })
+
+  testSync("invokes the thunk when debug output is enabled", () => {
+    let called = ref(false)
+    let log = Logger.makeLogger(~minLevel=Logger.Debug)
+    log.debugLazy(~comp="Test", () => {
+      called := true
+      "built"
+    })
+    expect(called.contents)->toEqual(true)
+  })
+
+  testSync("the silent logger never invokes the thunk", () => {
+    let called = ref(false)
+    Logger.silent.debugLazy(~comp="Test", () => {
+      called := true
+      "x"
+    })
+    expect(called.contents)->toEqual(false)
+  })
+})

package/tests/logger/LoggerLazyTest.res.mjs

@@ -0,0 +1,40 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Logger$ReventlessCore from "../../src/util/Logger.res.mjs";
+
+globalThis.describe("Logger.debugLazy", () => {
+  globalThis.test("does NOT invoke the thunk at the default Info level", () => {
+    let called = {
+      contents: false
+    };
+    let log = Logger$ReventlessCore.makeLogger("Info");
+    log.debugLazy("Test", () => {
+      called.contents = true;
+      return "should never be built";
+    });
+    globalThis.expect(called.contents).toEqual(false);
+  });
+  globalThis.test("invokes the thunk when debug output is enabled", () => {
+    let called = {
+      contents: false
+    };
+    let log = Logger$ReventlessCore.makeLogger("Debug");
+    log.debugLazy("Test", () => {
+      called.contents = true;
+      return "built";
+    });
+    globalThis.expect(called.contents).toEqual(true);
+  });
+  globalThis.test("the silent logger never invokes the thunk", () => {
+    let called = {
+      contents: false
+    };
+    Logger$ReventlessCore.silent.debugLazy("Test", () => {
+      called.contents = true;
+      return "x";
+    });
+    globalThis.expect(called.contents).toEqual(false);
+  });
+});
+
+/*  Not a pure module */