@reventlessdev/reventless-local 3.0.0-alpha.245 → 3.0.0-alpha.247

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/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 = [];

package/tests/components/stateviewslice/StateViewSliceDisplayNameFixtures.res

@@ -0,0 +1,98 @@
+// E2E fixtures for the @displayName overlay on a StateViewSlice.
+// A slice's state carries the same synthetic `displayName` a read model's does;
+// this builds one by hand (the ppx writes the field and the metadata) so the
+// projection path can be asserted to compose it.
+
+open Reventless.Projection
+
+module OrderEventLog = {
+  @schema
+  type event =
+    | OrderPlaced({id: @s.matches(Reventless.DcbTag.string) string, placedAt: string})
+    | OrderShipped({id: @s.matches(Reventless.DcbTag.string) string, shippedAt: string})
+}
+
+module OrdersViewSpec = {
+  let name = "DnOrdersView"
+  let moduleUrl: string = %raw(`import.meta.url`)
+
+  @schema
+  type consumedEvent =
+    | OrderPlaced({id: string, placedAt: string})
+    | OrderShipped({id: string, shippedAt: string})
+
+  @schema
+  type state = {
+    id: string,
+    placedAt: string,
+    shippedAt: string,
+    displayName: option<string>,
+  }
+
+  // What the ppx emits for `@displayName placedAt`.
+  let stateSchema =
+    stateSchema->S.Metadata.set(
+      ~id=Reventless.DisplayName.displayNameId,
+      {Reventless.DisplayName.fields: ["placedAt"], separator: " "},
+    )
+
+  let config = Reventless.ReadModel.config()
+  let subIdConfig = None
+}
+
+module OrdersViewProjection = {
+  module Spec = OrdersViewSpec
+  open OrdersViewSpec
+
+  let moduleUrl: string = %raw(`import.meta.url`)
+
+  let project = ({event}: Reventless.StateViewSlice.consumed<consumedEvent>) =>
+    switch event {
+    | OrderPlaced({id, placedAt}) =>
+      [Set(id, {id, placedAt, shippedAt: "", displayName: None})]
+    | OrderShipped({id, shippedAt}) => [Update(id, s => {...s, shippedAt})]
+    }
+}
+
+module Bus = LocalBus.Make()
+
+let _ = TestRunner.setup()
+
+module OrderEventLogMaker = DcbEventLog_Builder.Make(Bus)
+let eventLog = OrderEventLogMaker.make(
+  ~name="DnOrderEventLog",
+  ~partitionTag=Reventless.DcbTag.Simple({key: "id"}),
+)
+
+module SVMaker = StateViewSlice_Builder.Make(Bus)
+module OrdersViewMaker = SVMaker.Make(OrdersViewSpec, OrdersViewProjection)
+let sv = OrdersViewMaker.make(~dcbEventLog=eventLog)
+
+let dcbEventTopicResource =
+  (eventLog->ReventlessCore.Component.outputs).eventTopic.resources->Array.getUnsafe(0)
+
+let encodeEvent = (event: OrderEventLog.event): ReventlessInfra.DcbEventLog.rawEvent => {
+  let json = event->Reventless.Util_Sury.toJson(OrderEventLog.eventSchema)
+  let (eventType, data) = json->ReventlessCore.Message.splitMessage
+  let tags = Reventless.DcbTag.extractTags(OrderEventLog.eventSchema, event)
+  let meta = ReventlessCore.Message.generateMeta(~service="test")
+  {eventType, data: JSON.Object(data), tags, meta}
+}
+
+let appendEvent = async event => {
+  let ops = await eventLog->OrderEventLogMaker.operations->TestRunner.resolve
+  let _ = await ops.append([encodeEvent(event)])
+}
+
+let loadState = async id => {
+  switch Bus.getQueryDb("DnOrdersView") {
+  | None => []
+  | Some(ops) =>
+    let states =
+      await ops.loadStream(id)
+      ->Stream.runCollect
+      ->Effect.catchAll(_ => Effect.succeed([]))
+      ->Effect.runPromise
+    states->Array.map(json => json->Reventless.Util_Sury.fromJson(OrdersViewSpec.stateSchema))
+  }
+}

package/tests/components/stateviewslice/StateViewSliceDisplayNameFixtures.res.mjs

@@ -0,0 +1,187 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Sury from "sury";
+import * as Stream from "@reventlessdev/rescript-effect/src/Stream.res.mjs";
+import * as Effect from "effect/Effect";
+import * as DcbTag$Reventless from "@reventlessdev/reventless-spec/src/components/DcbTag.res.mjs";
+import * as ReadModel$Reventless from "@reventlessdev/reventless-spec/src/components/ReadModel.res.mjs";
+import * as Util_Sury$Reventless from "@reventlessdev/reventless-spec/src/util/Util_Sury.res.mjs";
+import * as DisplayName$Reventless from "@reventlessdev/reventless-spec/src/components/DisplayName.res.mjs";
+import * as Message$ReventlessCore from "@reventlessdev/reventless-core/src/Message.res.mjs";
+import * as Component$ReventlessCore from "@reventlessdev/reventless-core/src/components/Component.res.mjs";
+import * as LocalBus$ReventlessLocal from "../../../src/adapter/LocalBus.res.mjs";
+import * as TestRunner$ReventlessLocal from "../../../src/test/TestRunner.res.mjs";
+import * as DcbEventLog_Builder$ReventlessLocal from "../../../src/components/DcbEventLog_Builder.res.mjs";
+import * as StateViewSlice_Builder$ReventlessLocal from "../../../src/components/StateViewSlice_Builder.res.mjs";
+
+let eventSchema = Sury.union([
+  Sury.$schema(s => ({
+    TAG: "OrderPlaced",
+    id: s.m(DcbTag$Reventless.string),
+    placedAt: s.m(Sury.string)
+  })),
+  Sury.$schema(s => ({
+    TAG: "OrderShipped",
+    id: s.m(DcbTag$Reventless.string),
+    shippedAt: s.m(Sury.string)
+  }))
+]);
+
+let OrderEventLog = {
+  eventSchema: eventSchema
+};
+
+let name = "DnOrdersView";
+
+let moduleUrl = import.meta.url;
+
+let consumedEventSchema = Sury.union([
+  Sury.$schema(s => ({
+    TAG: "OrderPlaced",
+    id: s.m(Sury.string),
+    placedAt: s.m(Sury.string)
+  })),
+  Sury.$schema(s => ({
+    TAG: "OrderShipped",
+    id: s.m(Sury.string),
+    shippedAt: s.m(Sury.string)
+  }))
+]);
+
+let stateSchema = Sury.$schema(s => ({
+  id: s.m(Sury.string),
+  placedAt: s.m(Sury.string),
+  shippedAt: s.m(Sury.string),
+  displayName: s.m(Sury.$option(Sury.string))
+}));
+
+let stateSchema$1 = Sury.$Metadata_set(stateSchema, DisplayName$Reventless.displayNameId, {
+  fields: ["placedAt"],
+  separator: " "
+});
+
+let config = ReadModel$Reventless.config(undefined, undefined, undefined);
+
+let OrdersViewSpec = {
+  name: name,
+  moduleUrl: moduleUrl,
+  consumedEventSchema: consumedEventSchema,
+  stateSchema: stateSchema$1,
+  config: config,
+  subIdConfig: undefined,
+  authorization: "AllowAuthenticated",
+  visibility: "Public"
+};
+
+let moduleUrl$1 = import.meta.url;
+
+function project(param) {
+  let event = param.event;
+  if (event.TAG === "OrderPlaced") {
+    let id = event.id;
+    return [{
+        TAG: "Set",
+        _0: id,
+        _1: {
+          id: id,
+          placedAt: event.placedAt,
+          shippedAt: "",
+          displayName: undefined
+        }
+      }];
+  }
+  let shippedAt = event.shippedAt;
+  return [{
+      TAG: "Update",
+      _0: event.id,
+      _1: s => ({
+        id: s.id,
+        placedAt: s.placedAt,
+        shippedAt: shippedAt,
+        displayName: s.displayName
+      })
+    }];
+}
+
+let OrdersViewProjection = {
+  Spec: undefined,
+  moduleUrl: moduleUrl$1,
+  project: project
+};
+
+let Bus = LocalBus$ReventlessLocal.Make({});
+
+TestRunner$ReventlessLocal.setup();
+
+let OrderEventLogMaker = DcbEventLog_Builder$ReventlessLocal.Make(Bus);
+
+let eventLog = OrderEventLogMaker.make("DnOrderEventLog", undefined, {
+  TAG: "Simple",
+  _0: {
+    key: "id"
+  }
+}, undefined);
+
+let SVMaker = StateViewSlice_Builder$ReventlessLocal.Make(Bus);
+
+let OrdersViewMaker = SVMaker.Make({
+  name: name,
+  moduleUrl: moduleUrl,
+  stateSchema: stateSchema$1,
+  consumedEventSchema: consumedEventSchema,
+  config: config,
+  subIdConfig: undefined,
+  authorization: "AllowAuthenticated",
+  visibility: "Public"
+})({
+  project: project,
+  moduleUrl: moduleUrl$1
+});
+
+let sv = OrdersViewMaker.make(eventLog, undefined, undefined);
+
+let dcbEventTopicResource = Component$ReventlessCore.outputs(eventLog).eventTopic.resources[0];
+
+function encodeEvent(event) {
+  let json = Util_Sury$Reventless.toJson(event, eventSchema);
+  let match = Message$ReventlessCore.splitMessage(json);
+  let tags = DcbTag$Reventless.extractTags(eventSchema, event);
+  let meta = Message$ReventlessCore.generateMeta("test", undefined, undefined, undefined, undefined, undefined, undefined, undefined);
+  return {
+    eventType: match[0],
+    data: match[1],
+    tags: tags,
+    meta: meta
+  };
+}
+
+async function appendEvent(event) {
+  let ops = await TestRunner$ReventlessLocal.resolve(OrderEventLogMaker.operations(eventLog));
+  await ops.append([encodeEvent(event)], undefined);
+}
+
+async function loadState(id) {
+  let ops = Bus.getQueryDb("DnOrdersView");
+  if (ops === undefined) {
+    return [];
+  }
+  let states = await Effect.runPromise(Effect.catchAll(Stream.runCollect(ops.loadStream(id)), param => Effect.succeed([])));
+  return states.map(json => Util_Sury$Reventless.fromJson(json, stateSchema$1));
+}
+
+export {
+  OrderEventLog,
+  OrdersViewSpec,
+  OrdersViewProjection,
+  Bus,
+  OrderEventLogMaker,
+  eventLog,
+  SVMaker,
+  OrdersViewMaker,
+  sv,
+  dcbEventTopicResource,
+  encodeEvent,
+  appendEvent,
+  loadState,
+}
+/* eventSchema Not a pure module */

package/tests/components/stateviewslice/StateViewSliceDisplayNameTest.res

@@ -0,0 +1,32 @@
+// The @displayName overlay on the StateViewSlice projection path.
+// Without it the column stays null and every surface names the row by its id.
+
+open JestGlobals
+open StateViewSliceDisplayNameFixtures
+
+describe("StateViewSlice @displayName", () => {
+  let _ = beforeAllAsync(async () => {
+    let _ = await sv->OrdersViewMaker.operations->TestRunner.resolve
+    let _ = await dcbEventTopicResource.name->TestRunner.resolve
+  })
+
+  testPromise("a projected state carries the composed label", async () => {
+    let _ = await appendEvent(
+      OrderEventLog.OrderPlaced({id: "order-1", placedAt: "2026-09-01T10:00:00.000Z"}),
+    )
+    let states = await loadState("order-1")
+    expect(states->Array.length)->toBe(1)
+    let s = states->Array.getUnsafe(0)
+    expect(s.displayName)->toEqual(Some("2026-09-01T10:00:00.000Z"))
+  })
+
+  testPromise("an update recomposes it from the state it wrote", async () => {
+    let _ = await appendEvent(
+      OrderEventLog.OrderShipped({id: "order-1", shippedAt: "2026-09-02T10:00:00.000Z"}),
+    )
+    let states = await loadState("order-1")
+    let s = states->Array.getUnsafe(0)
+    expect(s.shippedAt)->toBe("2026-09-02T10:00:00.000Z")
+    expect(s.displayName)->toEqual(Some("2026-09-01T10:00:00.000Z"))
+  })
+})

package/tests/components/stateviewslice/StateViewSliceDisplayNameTest.res.mjs

@@ -0,0 +1,35 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as TestRunner$ReventlessLocal from "../../../src/test/TestRunner.res.mjs";
+import * as StateViewSliceDisplayNameFixtures$ReventlessLocal from "./StateViewSliceDisplayNameFixtures.res.mjs";
+
+globalThis.describe("StateViewSlice @displayName", () => {
+  globalThis.beforeAll(async () => {
+    await TestRunner$ReventlessLocal.resolve(StateViewSliceDisplayNameFixtures$ReventlessLocal.OrdersViewMaker.operations(StateViewSliceDisplayNameFixtures$ReventlessLocal.sv));
+    await TestRunner$ReventlessLocal.resolve(StateViewSliceDisplayNameFixtures$ReventlessLocal.dcbEventTopicResource.name);
+  });
+  globalThis.test("a projected state carries the composed label", async () => {
+    await StateViewSliceDisplayNameFixtures$ReventlessLocal.appendEvent({
+      TAG: "OrderPlaced",
+      id: "order-1",
+      placedAt: "2026-09-01T10:00:00.000Z"
+    });
+    let states = await StateViewSliceDisplayNameFixtures$ReventlessLocal.loadState("order-1");
+    globalThis.expect(states.length).toBe(1);
+    let s = states[0];
+    globalThis.expect(s.displayName).toEqual("2026-09-01T10:00:00.000Z");
+  });
+  globalThis.test("an update recomposes it from the state it wrote", async () => {
+    await StateViewSliceDisplayNameFixtures$ReventlessLocal.appendEvent({
+      TAG: "OrderShipped",
+      id: "order-1",
+      shippedAt: "2026-09-02T10:00:00.000Z"
+    });
+    let states = await StateViewSliceDisplayNameFixtures$ReventlessLocal.loadState("order-1");
+    let s = states[0];
+    globalThis.expect(s.shippedAt).toBe("2026-09-02T10:00:00.000Z");
+    globalThis.expect(s.displayName).toEqual("2026-09-01T10:00:00.000Z");
+  });
+});
+
+/*  Not a pure module */