@reventlessdev/reventless-local 3.0.0-alpha.244 → 3.0.0-alpha.246

package/tests/UiSlotsTest.res.mjs

@@ -0,0 +1,196 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Nodefs from "node:fs";
+import * as Nodeos from "node:os";
+import * as Nodepath from "node:path";
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as Primitive_option from "@rescript/runtime/lib/es6/Primitive_option.js";
+import * as UiSlots$ReventlessLocal from "../src/UiSlots.res.mjs";
+import * as TestRunner$ReventlessLocal from "../src/test/TestRunner.res.mjs";
+
+TestRunner$ReventlessLocal.setup();
+
+let declared = `export function register({ h, slots }) {
+  slots.row("gallery.tile", ({ row }) => h("span", null, row.name))
+}
+`;
+
+let edited = `export function register({ h, slots }) {
+  slots.row("gallery.tile", ({ row }) => h("strong", null, row.name))
+}
+`;
+
+function tmpdir(prefix) {
+  return Nodefs.mkdtempSync(Nodepath.join(Nodeos.tmpdir(), prefix));
+}
+
+function emptyDist() {
+  return tmpdir("reventless-uislots-dist-");
+}
+
+function declaredFile(contents) {
+  let path = Nodepath.join(tmpdir("reventless-uislots-src-"), "storefront-slots.js");
+  Nodefs.writeFileSync(path, contents, "utf8");
+  return path;
+}
+
+function servedPath(dir) {
+  return Nodepath.join(dir, "ui-slots.js");
+}
+
+function served(dir) {
+  return Nodefs.readFileSync(Nodepath.join(dir, "ui-slots.js"), "utf8");
+}
+
+function isServed(dir) {
+  return Nodefs.existsSync(Nodepath.join(dir, "ui-slots.js"));
+}
+
+function threw(f) {
+  try {
+    f();
+    return false;
+  } catch (exn) {
+    return true;
+  }
+}
+
+globalThis.describe("UiSlots.emit", () => {
+  globalThis.test("serves the declared module verbatim", () => {
+    let dir = tmpdir("reventless-uislots-dist-");
+    UiSlots$ReventlessLocal.emit(declaredFile(declared), dir);
+    globalThis.expect(Nodefs.readFileSync(Nodepath.join(dir, "ui-slots.js"), "utf8")).toEqual(declared);
+  });
+  globalThis.test("writes nothing when the platform declares no slots file", () => {
+    let dir = tmpdir("reventless-uislots-dist-");
+    UiSlots$ReventlessLocal.emit(undefined, dir);
+    globalThis.expect(Nodefs.existsSync(Nodepath.join(dir, "ui-slots.js"))).toBe(false);
+  });
+  globalThis.test("removes the served module once the declaration is withdrawn", () => {
+    let dir = tmpdir("reventless-uislots-dist-");
+    UiSlots$ReventlessLocal.emit(declaredFile(declared), dir);
+    UiSlots$ReventlessLocal.emit(undefined, dir);
+    globalThis.expect(Nodefs.existsSync(Nodepath.join(dir, "ui-slots.js"))).toBe(false);
+  });
+  globalThis.test("withdrawing twice is not an error", () => {
+    let dir = tmpdir("reventless-uislots-dist-");
+    UiSlots$ReventlessLocal.emit(undefined, dir);
+    globalThis.expect(threw(() => UiSlots$ReventlessLocal.emit(undefined, dir))).toBe(false);
+  });
+  globalThis.test("refuses a declaration naming a file that does not exist", () => {
+    let dir = tmpdir("reventless-uislots-dist-");
+    let missing = Nodepath.join(tmpdir("reventless-uislots-src-"), "absent.js");
+    globalThis.expect(threw(() => UiSlots$ReventlessLocal.emit(missing, dir))).toBe(true);
+  });
+  globalThis.test("leaves the last good module in place when the declaration is bad", () => {
+    let dir = tmpdir("reventless-uislots-dist-");
+    UiSlots$ReventlessLocal.emit(declaredFile(declared), dir);
+    let missing = Nodepath.join(tmpdir("reventless-uislots-src-"), "absent.js");
+    threw(() => UiSlots$ReventlessLocal.emit(missing, dir));
+    globalThis.expect(Nodefs.readFileSync(Nodepath.join(dir, "ui-slots.js"), "utf8")).toEqual(declared);
+  });
+  globalThis.test("serves a module it cannot vouch for rather than refusing it", () => {
+    let dir = tmpdir("reventless-uislots-dist-");
+    let broken = "export const register = (r) => {";
+    UiSlots$ReventlessLocal.emit(declaredFile(broken), dir);
+    globalThis.expect(Nodefs.readFileSync(Nodepath.join(dir, "ui-slots.js"), "utf8")).toEqual(broken);
+  });
+});
+
+function waitForReload(timeoutMsOpt, edit, uiSlotsFile, dir) {
+  let timeoutMs = timeoutMsOpt !== undefined ? timeoutMsOpt : 4000;
+  return new Promise((resolve, param) => {
+    let fired = {
+      contents: 0
+    };
+    let watcher = {
+      contents: undefined
+    };
+    let deadline = {
+      contents: undefined
+    };
+    let retry = {
+      contents: undefined
+    };
+    let finish = () => {
+      Stdlib_Option.forEach(watcher.contents, prim => {
+        prim.close();
+      });
+      Stdlib_Option.forEach(deadline.contents, prim => {
+        clearTimeout(prim);
+      });
+      Stdlib_Option.forEach(retry.contents, prim => {
+        clearTimeout(prim);
+      });
+      resolve(fired.contents);
+    };
+    let editUntilSeen = () => {
+      edit();
+      retry.contents = Primitive_option.some(setTimeout(editUntilSeen, 1000));
+    };
+    watcher.contents = UiSlots$ReventlessLocal.watch(uiSlotsFile, dir, () => {
+      fired.contents = fired.contents + 1 | 0;
+      finish();
+    });
+    deadline.contents = Primitive_option.some(setTimeout(finish, timeoutMs));
+    editUntilSeen();
+  });
+}
+
+globalThis.describe("UiSlots.watch", () => {
+  globalThis.test("watches nothing when the platform declares no slots file", () => {
+    globalThis.expect(UiSlots$ReventlessLocal.watch(undefined, undefined, () => {})).toEqual(undefined);
+  });
+  globalThis.test("declines to watch a path whose directory is gone, without throwing", () => {
+    let missing = Nodepath.join(tmpdir("reventless-uislots-gone-"), "nowhere", "slots.js");
+    globalThis.expect(UiSlots$ReventlessLocal.watch(missing, undefined, () => {})).toEqual(undefined);
+  });
+  globalThis.test("re-serves the module when it changes, and says so", async () => {
+    let dir = tmpdir("reventless-uislots-dist-");
+    let path = declaredFile(declared);
+    UiSlots$ReventlessLocal.emit(path, dir);
+    let fired = await waitForReload(undefined, () => {
+      Nodefs.writeFileSync(path, edited, "utf8");
+    }, path, dir);
+    globalThis.expect([
+      fired > 0,
+      Nodefs.readFileSync(Nodepath.join(dir, "ui-slots.js"), "utf8")
+    ]).toEqual([
+      true,
+      edited
+    ]);
+  });
+  globalThis.test("keeps serving the last good copy when the file is momentarily unreadable", async () => {
+    let dir = tmpdir("reventless-uislots-dist-");
+    let path = declaredFile(declared);
+    UiSlots$ReventlessLocal.emit(path, dir);
+    let fired = await waitForReload(1500, () => {
+      Nodefs.writeFileSync(path, edited, "utf8");
+      Nodefs.unlinkSync(path);
+    }, path, dir);
+    globalThis.expect([
+      fired,
+      Nodefs.readFileSync(Nodepath.join(dir, "ui-slots.js"), "utf8")
+    ]).toEqual([
+      0,
+      declared
+    ]);
+  });
+});
+
+let retryEvery = 1000;
+
+export {
+  declared,
+  edited,
+  tmpdir,
+  emptyDist,
+  declaredFile,
+  servedPath,
+  served,
+  isServed,
+  threw,
+  retryEvery,
+  waitForReload,
+}
+/*  Not a pure module */

package/tests/adapter/EventHistoryResolverTest.res

@@ -206,3 +206,49 @@ describe("EventHistoryResolvers_GraphQL — pagination", () => {
     expect(page->hasNextPageOf)->toBe(false)
   })
 })
+
+// The clause the "supply filter.entityId" warning ends with. A caller that
+// cannot be named is the case that matters: the warning has to survive it.
+describe("EventHistoryResolvers_GraphQL — naming the caller", () => {
+  let ctxOf = (~operationName=?, ~userId=?, ()) => {
+    let d = Dict.make()
+    operationName->Option.forEach(name =>
+      d->Dict.set(
+        "params",
+        Dict.fromArray([("operationName", JSON.Encode.string(name))])->JSON.Encode.object,
+      )
+    )
+    userId->Option.forEach(id =>
+      d->Dict.set(
+        "identity",
+        Dict.fromArray([
+          ("userId", JSON.Encode.string(id)),
+          ("username", JSON.Encode.string(id)),
+          ("groups", []->JSON.Encode.array),
+        ])->JSON.Encode.object,
+      )
+    )
+    JSON.Encode.object(d)
+  }
+
+  testSync("name the operation, the user and the filter keys that did arrive", () =>
+    expect(
+      EH.describeCaller(
+        ~ctx=ctxOf(~operationName="AuditTrail", ~userId="local-admin", ()),
+        ~filter={eventTypes: ["OrderPlaced"], user: "alice"},
+      ),
+    )->toBe(`operation "AuditTrail" as local-admin, with filter [eventTypes, user]`)
+  )
+
+  testSync("say so when the caller sent no filter at all", () =>
+    expect(
+      EH.describeCaller(~ctx=ctxOf(~operationName="AuditTrail", ~userId="local-admin", ()), ~filter={}),
+    )->toBe(`operation "AuditTrail" as local-admin, with no filter`)
+  )
+
+  testSync("still describe a context carrying neither operation nor identity", () =>
+    expect(EH.describeCaller(~ctx=ctxOf(), ~filter={}))->toBe(
+      "an unnamed operation as anonymous, with no filter",
+    )
+  )
+})

package/tests/adapter/EventHistoryResolverTest.res.mjs

@@ -271,6 +271,47 @@ globalThis.describe("EventHistoryResolvers_GraphQL — pagination", () => {
   });
 });
 
+globalThis.describe("EventHistoryResolvers_GraphQL — naming the caller", () => {
+  let ctxOf = (operationName, userId, param) => {
+    let d = {};
+    Stdlib_Option.forEach(operationName, name => {
+      d["params"] = Object.fromEntries([[
+          "operationName",
+          name
+        ]]);
+    });
+    Stdlib_Option.forEach(userId, id => {
+      d["identity"] = Object.fromEntries([
+        [
+          "userId",
+          id
+        ],
+        [
+          "username",
+          id
+        ],
+        [
+          "groups",
+          []
+        ]
+      ]);
+    });
+    return d;
+  };
+  globalThis.test("name the operation, the user and the filter keys that did arrive", () => {
+    globalThis.expect(EventHistoryResolvers_GraphQL$ReventlessLocal.describeCaller(ctxOf("AuditTrail", "local-admin", undefined), {
+      eventTypes: ["OrderPlaced"],
+      user: "alice"
+    })).toBe(`operation "AuditTrail" as local-admin, with filter [eventTypes, user]`);
+  });
+  globalThis.test("say so when the caller sent no filter at all", () => {
+    globalThis.expect(EventHistoryResolvers_GraphQL$ReventlessLocal.describeCaller(ctxOf("AuditTrail", "local-admin", undefined), {})).toBe(`operation "AuditTrail" as local-admin, with no filter`);
+  });
+  globalThis.test("still describe a context carrying neither operation nor identity", () => {
+    globalThis.expect(EventHistoryResolvers_GraphQL$ReventlessLocal.describeCaller(ctxOf(undefined, undefined, undefined), {})).toBe("an unnamed operation as anonymous, with no filter");
+  });
+});
+
 let EH;
 
 export {

package/tests/adapter/EventTapTest.res

@@ -1,8 +1,7 @@
-// Tests for the opt-in NDJSON domain-event tap (features plan Phase 9 — the VS
-// Code local platform runner). The tap lives in LocalBus.publishEvent: when
-// REVENTLESS_EVENT_TAP is set it emits one sentinel-prefixed JSON line per
-// published event to stdout (console.log), with the event's real topic name and
-// payload. Off by default so normal runs stay quiet.
+// The tap's stdout sink, which is the opt-in half: REVENTLESS_EVENT_TAP puts one
+// sentinel-prefixed JSON line per published event on stdout, and stays off by
+// default so normal runs are quiet. The socket sink is default-on and covered by
+// LocalEventTapTest.
 
 open JestGlobals
 
@@ -84,8 +83,19 @@ describe("LocalBus event tap (Phase 9)", () => {
     expect(obj->Dict.get("topic")->Option.flatMap(JSON.Decode.string))->toEqual(
       Some("CatalogEventTopic"),
     )
-    expect(obj->Dict.get("seq")->Option.flatMap(JSON.Decode.float))->toEqual(Some(1.0))
     expect(obj->Dict.get("payload")->Option.isSome)->toBe(true)
+
+    // Consecutive, not absolute: `seq` is the event's ordinal in the store (it is
+    // seeded from the persisted count at startup and counts every publish, tapped
+    // or not), so a reader that connects late still sees the real event number.
+    // The counter is module-level, so an absolute assertion here would depend on
+    // what the rest of the file published first.
+    let seqOf = line => {
+      let j = line->String.slice(~start=sentinel->String.length, ~end=line->String.length)
+      j->JSON.parseOrThrow->JSON.Decode.object->Option.getOrThrow->Dict.get("seq")
+      ->Option.flatMap(JSON.Decode.float)->Option.getOr(0.)
+    }
+    expect(seqOf(lines->Array.getUnsafe(1)) -. seqOf(first))->toEqual(1.)
   })
 
   testPromise("tap emits even when the topic has no subscribers", async () => {

package/tests/adapter/EventTapTest.res.mjs

@@ -73,8 +73,12 @@ globalThis.describe("LocalBus event tap (Phase 9)", () => {
     let obj = Stdlib_Option.getOrThrow(Stdlib_JSON.Decode.object(json), undefined);
     globalThis.expect(Stdlib_Option.flatMap(obj["event"], Stdlib_JSON.Decode.string)).toEqual("domainEvent");
     globalThis.expect(Stdlib_Option.flatMap(obj["topic"], Stdlib_JSON.Decode.string)).toEqual("CatalogEventTopic");
-    globalThis.expect(Stdlib_Option.flatMap(obj["seq"], Stdlib_JSON.Decode.float)).toEqual(1.0);
     globalThis.expect(Stdlib_Option.isSome(obj["payload"])).toBe(true);
+    let seqOf = line => {
+      let j = line.slice(sentinel.length, line.length);
+      return Stdlib_Option.getOr(Stdlib_Option.flatMap(Stdlib_Option.getOrThrow(Stdlib_JSON.Decode.object(JSON.parse(j)), undefined)["seq"], Stdlib_JSON.Decode.float), 0);
+    };
+    globalThis.expect(seqOf(lines[1]) - seqOf(first)).toEqual(1);
   });
   globalThis.test("tap emits even when the topic has no subscribers", async () => {
     process.env["REVENTLESS_EVENT_TAP"] = "ndjson";

package/tests/components/aggregate/AggregateFixtures.res.mjs

@@ -28,7 +28,7 @@ function commandAuthorization(param) {
 }
 
 function commandTransition(param) {
-  return "Unrestricted";
+  return "Undeclared";
 }
 
 let traits = [];

package/tests/components/automationslice/AutomationSliceFixtures.res.mjs

@@ -64,7 +64,7 @@ function commandAuthorization(param) {
 }
 
 function commandTransition(param) {
-  return "Unrestricted";
+  return "Undeclared";
 }
 
 let traits = [];
@@ -95,7 +95,7 @@ function commandAuthorization$1(param) {
 }
 
 function commandTransition$1(param) {
-  return "Unrestricted";
+  return "Undeclared";
 }
 
 let traits$1 = [];

package/tests/components/automationslice/AutomationSliceSelfDeadlockFixtures.res.mjs

@@ -42,7 +42,7 @@ function commandAuthorization(param) {
 }
 
 function commandTransition(param) {
-  return "Unrestricted";
+  return "Undeclared";
 }
 
 let traits = [];
@@ -121,7 +121,7 @@ function commandAuthorization$1(param) {
 }
 
 function commandTransition$1(param) {
-  return "Unrestricted";
+  return "Undeclared";
 }
 
 let traits$1 = [];
@@ -230,7 +230,7 @@ function commandAuthorization$2(param) {
 }
 
 function commandTransition$2(param) {
-  return "Unrestricted";
+  return "Undeclared";
 }
 
 let traits$2 = [];

package/tests/components/automationslice/MixedSourceAutomationSliceFixtures.res.mjs

@@ -69,7 +69,7 @@ function commandAuthorization(param) {
 }
 
 function commandTransition(param) {
-  return "Unrestricted";
+  return "Undeclared";
 }
 
 let traits = [];

package/tests/components/commandgenerator/CommandGeneratorFixtures.res.mjs

@@ -29,7 +29,7 @@ function commandAuthorization(param) {
 }
 
 function commandTransition(param) {
-  return "Unrestricted";
+  return "Undeclared";
 }
 
 let traits = [];

package/tests/components/commandtopic/CommandTopicFixtures.res.mjs

@@ -34,7 +34,7 @@ function commandAuthorization(param) {
 }
 
 function commandTransition(param) {
-  return "Unrestricted";
+  return "Undeclared";
 }
 
 let traits = [];

package/tests/components/commandtopic/CommandTopicStreamFixtures.res.mjs

@@ -36,7 +36,7 @@ function commandAuthorization(param) {
 }
 
 function commandTransition(param) {
-  return "Unrestricted";
+  return "Undeclared";
 }
 
 let traits = [];

package/tests/components/dcb/DcbCrossPartitionFixtures.res.mjs

@@ -74,7 +74,7 @@ function commandAuthorization(param) {
 }
 
 function commandTransition(param) {
-  return "Unrestricted";
+  return "Undeclared";
 }
 
 let traits = [];

package/tests/components/dcb/DcbFixtures.res.mjs

@@ -51,7 +51,7 @@ function commandAuthorization(param) {
 }
 
 function commandTransition(param) {
-  return "Unrestricted";
+  return "Undeclared";
 }
 
 let traits = [];

package/tests/components/extensionpoint/ExtensionPointFixtures.res.mjs

@@ -30,7 +30,7 @@ function commandAuthorization(param) {
 }
 
 function commandTransition(param) {
-  return "Unrestricted";
+  return "Undeclared";
 }
 
 let traits = [];
@@ -67,7 +67,7 @@ function commandAuthorization$1(param) {
 }
 
 function commandTransition$1(param) {
-  return "Unrestricted";
+  return "Undeclared";
 }
 
 let traits$1 = [];

package/tests/components/inboundtranslationslice/InboundTranslationSliceFixtures.res.mjs

@@ -57,7 +57,7 @@ function commandAuthorization(param) {
 }
 
 function commandTransition(param) {
-  return "Unrestricted";
+  return "Undeclared";
 }
 
 let traits = [];

package/tests/components/outboundtranslationslice/OutboundTranslationSlicePlatformFixtures.res.mjs

@@ -43,7 +43,7 @@ function commandAuthorization(param) {
 }
 
 function commandTransition(param) {
-  return "Unrestricted";
+  return "Undeclared";
 }
 
 let traits = [];

package/tests/components/readmodel/DcbReadModelE2EFixtures.res.mjs

@@ -46,7 +46,7 @@ function commandAuthorization(param) {
 }
 
 function commandTransition(param) {
-  return "Unrestricted";
+  return "Undeclared";
 }
 
 let traits = [];