@reventlessdev/reventless-core 3.0.0-alpha.135 → 3.0.0-alpha.137

package/tests/projection/ProjectionOptimizeTest.res

@@ -0,0 +1,38 @@
+// Regression test for Projection.optimizeActions (plan A7 / D2).
+//
+// optimizeActions merges consecutive per-id actions. A non-merging pair (Delete
+// then Update) grows the accumulator to length 2; the next merge (Update+Set)
+// must fold only the last action and keep everything before it exactly once.
+// Before the `~end=count-1` fix, `previousActions` still contained the
+// just-merged action, so the earlier action was duplicated — applied twice.
+
+open JestGlobals
+open Reventless.Projection
+
+describe("Projection.optimizeActions", () => {
+  testSync("does not duplicate the pre-merge action (off-by-one regression)", () => {
+    let optimized = Projection.optimizeActions([Delete("a"), Update("a", x => x + 1), Set("a", 99)])
+    // Was 3 (with a duplicated Update("a")) before the fix.
+    expect(optimized->Array.length)->toBe(2)
+    let sets =
+      optimized->Array.filterMap(a =>
+        switch a {
+        | Set(id, s) => Some((id, s))
+        | _ => None
+        }
+      )
+    expect(sets)->toEqual([("a", 99)])
+  })
+
+  testSync("merges a same-id Create+Update chain into a single Create", () => {
+    let optimized = Projection.optimizeActions([Create("a", 0), Update("a", x => x + 1), Update("a", x => x + 10)])
+    let creates =
+      optimized->Array.filterMap(a =>
+        switch a {
+        | Create(id, s) => Some((id, s))
+        | _ => None
+        }
+      )
+    expect(creates)->toEqual([("a", 11)])
+  })
+})

package/tests/projection/ProjectionOptimizeTest.res.mjs

@@ -0,0 +1,75 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Stdlib_Array from "@rescript/runtime/lib/es6/Stdlib_Array.js";
+import * as Projection$ReventlessCore from "../../src/Projection.res.mjs";
+
+globalThis.describe("Projection.optimizeActions", () => {
+  globalThis.test("does not duplicate the pre-merge action (off-by-one regression)", () => {
+    let optimized = Projection$ReventlessCore.optimizeActions([
+      {
+        TAG: "Delete",
+        _0: "a"
+      },
+      {
+        TAG: "Update",
+        _0: "a",
+        _1: x => x + 1 | 0
+      },
+      {
+        TAG: "Set",
+        _0: "a",
+        _1: 99
+      }
+    ]);
+    globalThis.expect(optimized.length).toBe(2);
+    let sets = Stdlib_Array.filterMap(optimized, a => {
+      if (typeof a !== "object" || a.TAG !== "Set") {
+        return;
+      } else {
+        return [
+          a._0,
+          a._1
+        ];
+      }
+    });
+    globalThis.expect(sets).toEqual([[
+        "a",
+        99
+      ]]);
+  });
+  globalThis.test("merges a same-id Create+Update chain into a single Create", () => {
+    let optimized = Projection$ReventlessCore.optimizeActions([
+      {
+        TAG: "Create",
+        _0: "a",
+        _1: 0
+      },
+      {
+        TAG: "Update",
+        _0: "a",
+        _1: x => x + 1 | 0
+      },
+      {
+        TAG: "Update",
+        _0: "a",
+        _1: x => x + 10 | 0
+      }
+    ]);
+    let creates = Stdlib_Array.filterMap(optimized, a => {
+      if (typeof a !== "object" || a.TAG !== "Create") {
+        return;
+      } else {
+        return [
+          a._0,
+          a._1
+        ];
+      }
+    });
+    globalThis.expect(creates).toEqual([[
+        "a",
+        11
+      ]]);
+  });
+});
+
+/*  Not a pure module */

package/tests/util/CommandPublisherTest.res

@@ -0,0 +1,56 @@
+// Regression tests for CommandPublisher (plan A7).
+//
+// Two bugs made the buffered publisher silently lose commands:
+//   - send() used the non-mutating `toSpliced`, so the buffer never drained and
+//     the wrong slice was published.
+//   - flush()'s in-flight arm looped on a dead condition and never sent.
+//   - clear() removed only the first buffered command instead of truncating.
+//
+// These tests drive the functor with a capturing publishCommands and assert the
+// buffer flushes in order and clear() empties it.
+
+open JestGlobals
+
+S.enableJson()
+
+let published: ref<array<Reventless.Message.commandJson>> = ref([])
+
+module TestSpec = {
+  @schema let name = "TestCmd"
+  @schema type command = {value: int}
+}
+
+module TestConfig = {
+  let user = "tester"
+  let publishCommands: Task.publishCommands = (_name, cmds) => {
+    published := published.contents->Array.concat(cmds)
+    Promise.resolve()
+  }
+  let mode = CommandPublisher.SendAllInOneChunk
+}
+
+module Pub = CommandPublisher.Make(TestSpec, TestConfig)
+
+describe("CommandPublisher", () => {
+  testPromise("flush sends all buffered commands in order and drains the buffer", async () => {
+    published := []
+    Pub.publish("id1", {value: 1})
+    Pub.publish("id2", {value: 2})
+    await Pub.flush()
+    let ids = published.contents->Array.map((c: Reventless.Message.commandJson) => c.id)
+    expect(ids)->toEqual(["id1", "id2"])
+    // Buffer drained: a second flush sends nothing more.
+    published := []
+    await Pub.flush()
+    expect(published.contents->Array.length)->toBe(0)
+  })
+
+  testPromise("clear truncates the whole buffer so nothing is later published", async () => {
+    published := []
+    Pub.publish("id3", {value: 3})
+    Pub.publish("id4", {value: 4})
+    Pub.clear()
+    await Pub.flush()
+    expect(published.contents->Array.length)->toBe(0)
+  })
+})

package/tests/util/CommandPublisherTest.res.mjs

@@ -0,0 +1,78 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.res.mjs";
+import * as CommandPublisher$ReventlessCore from "../../src/util/CommandPublisher.res.mjs";
+
+S.enableJson();
+
+let published = {
+  contents: []
+};
+
+let commandSchema = S.schema(s => ({
+  value: s.m(S.int)
+}));
+
+function commandAuthorization(param) {
+  return "AllowAuthenticated";
+}
+
+let TestSpec = {
+  name: "TestCmd",
+  commandSchema: commandSchema,
+  commandAuthorization: commandAuthorization
+};
+
+function publishCommands(_name, cmds) {
+  published.contents = published.contents.concat(cmds);
+  return Promise.resolve();
+}
+
+let TestConfig = {
+  user: "tester",
+  publishCommands: publishCommands,
+  mode: "SendAllInOneChunk"
+};
+
+let Pub = CommandPublisher$ReventlessCore.Make(TestSpec)(TestConfig);
+
+globalThis.describe("CommandPublisher", () => {
+  globalThis.test("flush sends all buffered commands in order and drains the buffer", async () => {
+    published.contents = [];
+    Pub.publish("id1", {
+      value: 1
+    });
+    Pub.publish("id2", {
+      value: 2
+    });
+    await Pub.flush();
+    let ids = published.contents.map(c => c.id);
+    globalThis.expect(ids).toEqual([
+      "id1",
+      "id2"
+    ]);
+    published.contents = [];
+    await Pub.flush();
+    globalThis.expect(published.contents.length).toBe(0);
+  });
+  globalThis.test("clear truncates the whole buffer so nothing is later published", async () => {
+    published.contents = [];
+    Pub.publish("id3", {
+      value: 3
+    });
+    Pub.publish("id4", {
+      value: 4
+    });
+    Pub.clear();
+    await Pub.flush();
+    globalThis.expect(published.contents.length).toBe(0);
+  });
+});
+
+export {
+  published,
+  TestSpec,
+  TestConfig,
+  Pub,
+}
+/*  Not a pure module */