@reventlessdev/reventless-core 3.0.0-alpha.134

package/tests/message/MessageTest.res

@@ -0,0 +1,95 @@
+open JestGlobals
+open Message
+
+type event = event'<string, PluginSpec.event>
+
+describe("Message should", () => {
+  testSync("create a valid sequenceNr", () => {
+    let now = 123456789.
+    let hrtime = (1, 1)
+    expect(hrtimeToString(~hrtime, ~now))->toBe("123456789-000000001")
+  })
+
+  testSync("get variant name of json without payload", () => {
+    let variant = PluginSpec.Heartbeat("0.0.0")
+    let variantJson = variant->Message.encode(PluginSpec.commandSchema)
+    let variantName = variantNameOfJson(variantJson)
+
+    expect(variantName)->toBe("Heartbeat")
+  })
+
+  testSync("get variant name of json with payload", () => {
+    let variant = PluginSpec.Connect({
+      id: "id",
+      name: "testName",
+      version: "testVersion",
+      extensionPoints: [
+        {
+          name: "testExtensionPoint",
+          commandTopic: "testCommandTopic",
+          eventTopic: "testEventTopic",
+        },
+      ],
+      extensions: [
+        {
+          name: "testExtension",
+          extensionPointName: "testExtensionPoint",
+          dcbSources: [],
+        },
+      ],
+      eventCollector: "testEventCollector",
+      extensionProtocols: [],
+      apiSchemaFragment: None,
+      apiTarget: None,
+      uiFragments: None,
+      structure: None,
+      dcbEventLog: None,
+    })
+    let variantJson = variant->Message.encode(PluginSpec.commandSchema)
+    let variantName = variantNameOfJson(variantJson)
+
+    let expected = "Connect"
+
+    expect(variantName)->toBe(expected)
+  })
+
+  testSync("get event name of eventJson'", () => {
+    open PluginSpec
+    let event' = {
+      id: "testId",
+      meta: {
+        service: "testService",
+        time: "testTime",
+        ip: "testIp",
+        user: "testUser",
+        msgId: "testMsgId",
+        correlationId: "testCorrelationId",
+      },
+      event: VersionDetected("0.0.0"),
+    }
+    let eventJson' = event'->Message.encodeEvent'(S.string, PluginSpec.eventSchema)
+    let eventName = eventJson'->eventNameOfEvent'Json
+
+    expect(eventName)->toBe("VersionDetected")
+  })
+
+  testSync("get id of eventJson'", () => {
+    open PluginSpec
+    let event' = {
+      id: "testId",
+      meta: {
+        service: "testService",
+        time: "testTime",
+        ip: "testIp",
+        user: "testUser",
+        msgId: "testMsgId",
+        correlationId: "testCorrelationId",
+      },
+      event: VersionDetected("0.0.0"),
+    }
+    let eventJson' = event'->Message.encodeEvent'(S.string, PluginSpec.eventSchema)
+    let eventId = idOfEvent'Json(eventJson')->Option.getOrThrow
+
+    expect(eventId)->toBe("testId")
+  })
+})

package/tests/message/MessageTest.res.mjs

@@ -0,0 +1,93 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.res.mjs";
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as Message$ReventlessCore from "../../src/Message.res.mjs";
+import * as PluginSpec$ReventlessCore from "../../src/plugin/lifecycle/PluginSpec.res.mjs";
+
+globalThis.describe("Message should", () => {
+  globalThis.test("create a valid sequenceNr", () => {
+    globalThis.expect(Message$ReventlessCore.hrtimeToString([
+      1,
+      1
+    ], 123456789)).toBe("123456789-000000001");
+  });
+  globalThis.test("get variant name of json without payload", () => {
+    let variantJson = Message$ReventlessCore.encode({
+      TAG: "Heartbeat",
+      _0: "0.0.0"
+    }, PluginSpec$ReventlessCore.commandSchema);
+    let variantName = Message$ReventlessCore.variantNameOfJson(variantJson);
+    globalThis.expect(variantName).toBe("Heartbeat");
+  });
+  globalThis.test("get variant name of json with payload", () => {
+    let variant = {
+      TAG: "Connect",
+      _0: {
+        id: "id",
+        name: "testName",
+        version: "testVersion",
+        extensionPoints: [{
+            name: "testExtensionPoint",
+            commandTopic: "testCommandTopic",
+            eventTopic: "testEventTopic"
+          }],
+        extensions: [{
+            name: "testExtension",
+            extensionPointName: "testExtensionPoint",
+            dcbSources: []
+          }],
+        eventCollector: "testEventCollector",
+        extensionProtocols: [],
+        apiSchemaFragment: undefined,
+        apiTarget: undefined,
+        uiFragments: undefined,
+        structure: undefined,
+        dcbEventLog: undefined
+      }
+    };
+    let variantJson = Message$ReventlessCore.encode(variant, PluginSpec$ReventlessCore.commandSchema);
+    let variantName = Message$ReventlessCore.variantNameOfJson(variantJson);
+    globalThis.expect(variantName).toBe("Connect");
+  });
+  globalThis.test("get event name of eventJson'", () => {
+    let eventJson$p = Message$ReventlessCore.encodeEvent$p({
+      id: "testId",
+      meta: {
+        service: "testService",
+        time: "testTime",
+        ip: "testIp",
+        user: "testUser",
+        msgId: "testMsgId",
+        correlationId: "testCorrelationId"
+      },
+      event: {
+        TAG: "VersionDetected",
+        _0: "0.0.0"
+      }
+    }, S.string, PluginSpec$ReventlessCore.eventSchema);
+    let eventName = Message$ReventlessCore.eventNameOfEvent$pJson(eventJson$p);
+    globalThis.expect(eventName).toBe("VersionDetected");
+  });
+  globalThis.test("get id of eventJson'", () => {
+    let eventJson$p = Message$ReventlessCore.encodeEvent$p({
+      id: "testId",
+      meta: {
+        service: "testService",
+        time: "testTime",
+        ip: "testIp",
+        user: "testUser",
+        msgId: "testMsgId",
+        correlationId: "testCorrelationId"
+      },
+      event: {
+        TAG: "VersionDetected",
+        _0: "0.0.0"
+      }
+    }, S.string, PluginSpec$ReventlessCore.eventSchema);
+    let eventId = Stdlib_Option.getOrThrow(Message$ReventlessCore.idOfEvent$pJson(eventJson$p), undefined);
+    globalThis.expect(eventId).toBe("testId");
+  });
+});
+
+/*  Not a pure module */

package/tests/message/MetaEnvelopeTest.res

@@ -0,0 +1,200 @@
+// Regression tests for the post-Plan envelope:
+// - Message.meta optional fields (ip/user absent by default; causationId,
+//   traceparent, schemaVersion, headers round-trip when set)
+// - Message.deriveMeta semantics (causation propagation)
+// - StoredEvent encode/decode round-trip + the flat-dict bridge
+// - generateMeta omits ip/user when not supplied (no `""`/`"unknown"` sentinels)
+//
+// Bindings come from @reventlessdev/rescript-jest (`JestGlobals`): `expect`'s
+// matchers throw on mismatch and return `unit`, so every assertion in a body
+// executes at its line — no need to return a single assertion from the test.
+
+open JestGlobals
+open Message
+
+describe("Message.meta optional fields:", () => {
+  testSync("generateMeta() with no ~ip/~user omits those keys from JSON", () => {
+    let meta = generateMeta(~service="svc")
+    let json = meta->S.reverseConvertToJsonOrThrow(metaSchema)
+    let obj = json->JSON.Decode.object->Option.getOrThrow
+    expect(obj->Dict.get("ip"))->toEqual(None)->ignore
+    expect(obj->Dict.get("user"))->toEqual(None)->ignore
+    expect(obj->Dict.get("causationId"))->toEqual(None)->ignore
+    expect(obj->Dict.get("traceparent"))->toEqual(None)->ignore
+    expect(obj->Dict.get("schemaVersion"))->toEqual(None)->ignore
+    expect(obj->Dict.get("headers"))->toEqual(None)->ignore
+    // Required keys are present:
+    expect(obj->Dict.get("service")->Option.isSome)->toBe(true)->ignore
+    expect(obj->Dict.get("time")->Option.isSome)->toBe(true)->ignore
+    expect(obj->Dict.get("msgId")->Option.isSome)->toBe(true)->ignore
+    expect(obj->Dict.get("correlationId")->Option.isSome)->toBe(true)
+  })
+
+  testSync("generateMeta() correlationId defaults to msgId", () => {
+    let meta = generateMeta(~service="svc")
+    expect(meta.correlationId)->toBe(meta.msgId)
+  })
+
+  testSync("generateMeta(~user=alice) round-trips Some(alice)", () => {
+    let meta = generateMeta(~service="svc", ~user="alice")
+    let json = meta->S.reverseConvertToJsonOrThrow(metaSchema)
+    let decoded = json->S.parseJsonOrThrow(metaSchema)
+    expect(decoded.user)->toEqual(Some("alice"))
+  })
+
+  testSync("all new optional fields round-trip when set", () => {
+    let headers = Dict.fromArray([("tenantId", "t1"), ("feature.x", "on")])
+    let meta = generateMeta(
+      ~service="svc",
+      ~ip="10.0.0.1",
+      ~user="bob",
+      ~causationId="parent-msg-id",
+      ~traceparent="00-0af7651916cd43dd8448eb211c80319c-b7ad6b7169203331-01",
+      ~correlationId="root-msg-id",
+      ~schemaVersion="1.2.0",
+      ~headers,
+    )
+    let json = meta->S.reverseConvertToJsonOrThrow(metaSchema)
+    let decoded = json->S.parseJsonOrThrow(metaSchema)
+    expect(decoded.ip)->toEqual(Some("10.0.0.1"))->ignore
+    expect(decoded.user)->toEqual(Some("bob"))->ignore
+    expect(decoded.causationId)->toEqual(Some("parent-msg-id"))->ignore
+    expect(decoded.traceparent)
+    ->toEqual(Some("00-0af7651916cd43dd8448eb211c80319c-b7ad6b7169203331-01"))
+    ->ignore
+    expect(decoded.correlationId)->toBe("root-msg-id")->ignore
+    expect(decoded.schemaVersion)->toEqual(Some("1.2.0"))->ignore
+    expect(
+      decoded.headers
+      ->Option.getOr(Dict.make())
+      ->Dict.get("tenantId"),
+    )->toEqual(Some("t1"))
+  })
+})
+
+describe("Message.deriveMeta:", () => {
+  testSync("emits a new msgId distinct from the parent", () => {
+    let parent = generateMeta(~service="svc")
+    let child = deriveMeta(~parent)
+    expect(child.msgId == parent.msgId)->toBe(false)
+  })
+
+  testSync("sets causationId = parent.msgId", () => {
+    let parent = generateMeta(~service="svc")
+    let child = deriveMeta(~parent)
+    expect(child.causationId)->toEqual(Some(parent.msgId))
+  })
+
+  testSync("inherits correlationId (chain-root id stays stable)", () => {
+    let root = generateMeta(~service="svc") // correlationId = msgId here
+    let mid = deriveMeta(~parent=root)
+    let leaf = deriveMeta(~parent=mid)
+    expect(mid.correlationId)->toBe(root.correlationId)->ignore
+    expect(leaf.correlationId)->toBe(root.correlationId)->ignore
+    // causation chain is one hop, not the root
+    expect(leaf.causationId)->toEqual(Some(mid.msgId))
+  })
+
+  testSync("inherits ip/user/traceparent/schemaVersion/headers from parent", () => {
+    let parent = generateMeta(
+      ~service="svc",
+      ~ip="10.0.0.1",
+      ~user="alice",
+      ~traceparent="tp",
+      ~schemaVersion="1",
+      ~headers=Dict.fromArray([("k", "v")]),
+    )
+    let child = deriveMeta(~parent)
+    expect(child.ip)->toEqual(Some("10.0.0.1"))->ignore
+    expect(child.user)->toEqual(Some("alice"))->ignore
+    expect(child.traceparent)->toEqual(Some("tp"))->ignore
+    expect(child.schemaVersion)->toEqual(Some("1"))->ignore
+    expect(child.headers->Option.getOr(Dict.make())->Dict.get("k"))->toEqual(Some("v"))
+  })
+
+  testSync("~service overrides parent's service; defaults to parent's service", () => {
+    let parent = generateMeta(~service="parent-svc")
+    let inherited = deriveMeta(~parent)
+    let overridden = deriveMeta(~parent, ~service="child-svc")
+    expect(inherited.service)->toBe("parent-svc")->ignore
+    expect(overridden.service)->toBe("child-svc")
+  })
+})
+
+describe("StoredEvent encode/decode round-trip:", () => {
+  testSync("aggregate-style record (no tags) round-trips through the flat-dict bridge", () => {
+    let meta = generateMeta(~service="catalog")
+    let stored: Reventless.StoredEvent.storedEvent<string> = {
+      id: "agg-1",
+      position: "000000001",
+      event: "ItemCreated",
+      data: JSON.Object(
+        Dict.fromArray([
+          ("itemId", JSON.String("agg-1")),
+          ("name", JSON.String("Widget")),
+        ]),
+      ),
+      meta,
+      recordedAt: "2026-05-13T10:00:00.000Z",
+    }
+    let flat = stored->storedEventToFlatJson(S.string)
+    let roundTrip = flat->flatJsonToStoredEvent(S.string)
+    expect(roundTrip.id)->toBe("agg-1")->ignore
+    expect(roundTrip.position)->toBe("000000001")->ignore
+    expect(roundTrip.event)->toBe("ItemCreated")->ignore
+    expect(roundTrip.recordedAt)->toBe("2026-05-13T10:00:00.000Z")->ignore
+    expect(roundTrip.meta.msgId)->toBe(meta.msgId)->ignore
+    expect(roundTrip.meta.correlationId)->toBe(meta.correlationId)->ignore
+    expect(roundTrip.tags)->toEqual(None)
+  })
+
+  testSync("DCB-style record (with tags) round-trips and preserves the tag list", () => {
+    let meta = generateMeta(~service="catalog", ~causationId="cmd-1")
+    let stored: Reventless.StoredEvent.storedEvent<string> = {
+      id: "productId:p-1",
+      position: "1736782800000-abc-uuid",
+      event: "ProductAdded",
+      data: JSON.Object(Dict.fromArray([("productId", JSON.String("p-1"))])),
+      meta,
+      recordedAt: "2026-05-13T10:00:00.000Z",
+      tags: [
+        {key: "productId", value: "p-1"},
+        {key: "categoryId", value: "c-1"},
+      ],
+    }
+    let flat = stored->storedEventToFlatJson(S.string)
+    let roundTrip = flat->flatJsonToStoredEvent(S.string)
+    expect(roundTrip.id)->toBe("productId:p-1")->ignore
+    expect(roundTrip.position)->toBe("1736782800000-abc-uuid")->ignore
+    expect(roundTrip.event)->toBe("ProductAdded")->ignore
+    expect(roundTrip.meta.causationId)->toEqual(Some("cmd-1"))->ignore
+    let tags = roundTrip.tags->Option.getOrThrow
+    expect(tags->Array.length)->toBe(2)->ignore
+    let first = tags->Array.getUnsafe(0)
+    expect(first.key)->toBe("productId")->ignore
+    expect(first.value)->toBe("p-1")
+  })
+
+  testSync("meta is flattened to top-level keys in the on-disk JSON (DynamoDB GSI projectability)", () => {
+    let meta = generateMeta(~service="catalog")
+    let stored: Reventless.StoredEvent.storedEvent<string> = {
+      id: "agg-1",
+      position: "000000001",
+      event: "ItemCreated",
+      data: JSON.Object(Dict.make()),
+      meta,
+      recordedAt: "2026-05-13T10:00:00.000Z",
+    }
+    let flat = stored->storedEventToFlatJson(S.string)
+    let obj = flat->JSON.Decode.object->Option.getOrThrow
+    // meta.* should be top-level (not nested under "meta")
+    expect(obj->Dict.get("meta"))->toEqual(None)->ignore
+    expect(obj->Dict.get("service"))->toEqual(Some(JSON.String("catalog")))->ignore
+    expect(obj->Dict.get("msgId")->Option.isSome)->toBe(true)->ignore
+    // envelope fields are also top-level
+    expect(obj->Dict.get("position"))->toEqual(Some(JSON.String("000000001")))->ignore
+    expect(obj->Dict.get("event"))->toEqual(Some(JSON.String("ItemCreated")))->ignore
+    expect(obj->Dict.get("recordedAt"))
+    ->toEqual(Some(JSON.String("2026-05-13T10:00:00.000Z")))
+  })
+})

package/tests/message/MetaEnvelopeTest.res.mjs

@@ -0,0 +1,188 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.res.mjs";
+import * as Stdlib_JSON from "@rescript/runtime/lib/es6/Stdlib_JSON.js";
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as Message$ReventlessCore from "../../src/Message.res.mjs";
+
+globalThis.describe("Message.meta optional fields:", () => {
+  globalThis.test("generateMeta() with no ~ip/~user omits those keys from JSON", () => {
+    let meta = Message$ReventlessCore.generateMeta("svc", undefined, undefined, undefined, undefined, undefined, undefined, undefined);
+    let json = S.reverseConvertToJsonOrThrow(meta, Message$ReventlessCore.metaSchema);
+    let obj = Stdlib_Option.getOrThrow(Stdlib_JSON.Decode.object(json), undefined);
+    globalThis.expect(obj["ip"]).toEqual(undefined);
+    globalThis.expect(obj["user"]).toEqual(undefined);
+    globalThis.expect(obj["causationId"]).toEqual(undefined);
+    globalThis.expect(obj["traceparent"]).toEqual(undefined);
+    globalThis.expect(obj["schemaVersion"]).toEqual(undefined);
+    globalThis.expect(obj["headers"]).toEqual(undefined);
+    globalThis.expect(Stdlib_Option.isSome(obj["service"])).toBe(true);
+    globalThis.expect(Stdlib_Option.isSome(obj["time"])).toBe(true);
+    globalThis.expect(Stdlib_Option.isSome(obj["msgId"])).toBe(true);
+    globalThis.expect(Stdlib_Option.isSome(obj["correlationId"])).toBe(true);
+  });
+  globalThis.test("generateMeta() correlationId defaults to msgId", () => {
+    let meta = Message$ReventlessCore.generateMeta("svc", undefined, undefined, undefined, undefined, undefined, undefined, undefined);
+    globalThis.expect(meta.correlationId).toBe(meta.msgId);
+  });
+  globalThis.test("generateMeta(~user=alice) round-trips Some(alice)", () => {
+    let meta = Message$ReventlessCore.generateMeta("svc", undefined, "alice", undefined, undefined, undefined, undefined, undefined);
+    let json = S.reverseConvertToJsonOrThrow(meta, Message$ReventlessCore.metaSchema);
+    let decoded = S.parseJsonOrThrow(json, Message$ReventlessCore.metaSchema);
+    globalThis.expect(decoded.user).toEqual("alice");
+  });
+  globalThis.test("all new optional fields round-trip when set", () => {
+    let headers = Object.fromEntries([
+      [
+        "tenantId",
+        "t1"
+      ],
+      [
+        "feature.x",
+        "on"
+      ]
+    ]);
+    let meta = Message$ReventlessCore.generateMeta("svc", "10.0.0.1", "bob", "parent-msg-id", "00-0af7651916cd43dd8448eb211c80319c-b7ad6b7169203331-01", "root-msg-id", "1.2.0", headers);
+    let json = S.reverseConvertToJsonOrThrow(meta, Message$ReventlessCore.metaSchema);
+    let decoded = S.parseJsonOrThrow(json, Message$ReventlessCore.metaSchema);
+    globalThis.expect(decoded.ip).toEqual("10.0.0.1");
+    globalThis.expect(decoded.user).toEqual("bob");
+    globalThis.expect(decoded.causationId).toEqual("parent-msg-id");
+    globalThis.expect(decoded.traceparent).toEqual("00-0af7651916cd43dd8448eb211c80319c-b7ad6b7169203331-01");
+    globalThis.expect(decoded.correlationId).toBe("root-msg-id");
+    globalThis.expect(decoded.schemaVersion).toEqual("1.2.0");
+    globalThis.expect(Stdlib_Option.getOr(decoded.headers, {})["tenantId"]).toEqual("t1");
+  });
+});
+
+globalThis.describe("Message.deriveMeta:", () => {
+  globalThis.test("emits a new msgId distinct from the parent", () => {
+    let parent = Message$ReventlessCore.generateMeta("svc", undefined, undefined, undefined, undefined, undefined, undefined, undefined);
+    let child = Message$ReventlessCore.deriveMeta(parent, undefined);
+    globalThis.expect(child.msgId === parent.msgId).toBe(false);
+  });
+  globalThis.test("sets causationId = parent.msgId", () => {
+    let parent = Message$ReventlessCore.generateMeta("svc", undefined, undefined, undefined, undefined, undefined, undefined, undefined);
+    let child = Message$ReventlessCore.deriveMeta(parent, undefined);
+    globalThis.expect(child.causationId).toEqual(parent.msgId);
+  });
+  globalThis.test("inherits correlationId (chain-root id stays stable)", () => {
+    let root = Message$ReventlessCore.generateMeta("svc", undefined, undefined, undefined, undefined, undefined, undefined, undefined);
+    let mid = Message$ReventlessCore.deriveMeta(root, undefined);
+    let leaf = Message$ReventlessCore.deriveMeta(mid, undefined);
+    globalThis.expect(mid.correlationId).toBe(root.correlationId);
+    globalThis.expect(leaf.correlationId).toBe(root.correlationId);
+    globalThis.expect(leaf.causationId).toEqual(mid.msgId);
+  });
+  globalThis.test("inherits ip/user/traceparent/schemaVersion/headers from parent", () => {
+    let parent = Message$ReventlessCore.generateMeta("svc", "10.0.0.1", "alice", undefined, "tp", undefined, "1", Object.fromEntries([[
+        "k",
+        "v"
+      ]]));
+    let child = Message$ReventlessCore.deriveMeta(parent, undefined);
+    globalThis.expect(child.ip).toEqual("10.0.0.1");
+    globalThis.expect(child.user).toEqual("alice");
+    globalThis.expect(child.traceparent).toEqual("tp");
+    globalThis.expect(child.schemaVersion).toEqual("1");
+    globalThis.expect(Stdlib_Option.getOr(child.headers, {})["k"]).toEqual("v");
+  });
+  globalThis.test("~service overrides parent's service; defaults to parent's service", () => {
+    let parent = Message$ReventlessCore.generateMeta("parent-svc", undefined, undefined, undefined, undefined, undefined, undefined, undefined);
+    let inherited = Message$ReventlessCore.deriveMeta(parent, undefined);
+    let overridden = Message$ReventlessCore.deriveMeta(parent, "child-svc");
+    globalThis.expect(inherited.service).toBe("parent-svc");
+    globalThis.expect(overridden.service).toBe("child-svc");
+  });
+});
+
+globalThis.describe("StoredEvent encode/decode round-trip:", () => {
+  globalThis.test("aggregate-style record (no tags) round-trips through the flat-dict bridge", () => {
+    let meta = Message$ReventlessCore.generateMeta("catalog", undefined, undefined, undefined, undefined, undefined, undefined, undefined);
+    let stored_data = Object.fromEntries([
+      [
+        "itemId",
+        "agg-1"
+      ],
+      [
+        "name",
+        "Widget"
+      ]
+    ]);
+    let stored = {
+      id: "agg-1",
+      position: "000000001",
+      event: "ItemCreated",
+      data: stored_data,
+      meta: meta,
+      recordedAt: "2026-05-13T10:00:00.000Z"
+    };
+    let flat = Message$ReventlessCore.storedEventToFlatJson(stored, S.string);
+    let roundTrip = Message$ReventlessCore.flatJsonToStoredEvent(flat, S.string);
+    globalThis.expect(roundTrip.id).toBe("agg-1");
+    globalThis.expect(roundTrip.position).toBe("000000001");
+    globalThis.expect(roundTrip.event).toBe("ItemCreated");
+    globalThis.expect(roundTrip.recordedAt).toBe("2026-05-13T10:00:00.000Z");
+    globalThis.expect(roundTrip.meta.msgId).toBe(meta.msgId);
+    globalThis.expect(roundTrip.meta.correlationId).toBe(meta.correlationId);
+    globalThis.expect(roundTrip.tags).toEqual(undefined);
+  });
+  globalThis.test("DCB-style record (with tags) round-trips and preserves the tag list", () => {
+    let meta = Message$ReventlessCore.generateMeta("catalog", undefined, undefined, "cmd-1", undefined, undefined, undefined, undefined);
+    let stored_data = Object.fromEntries([[
+        "productId",
+        "p-1"
+      ]]);
+    let stored_tags = [
+      {
+        key: "productId",
+        value: "p-1"
+      },
+      {
+        key: "categoryId",
+        value: "c-1"
+      }
+    ];
+    let stored = {
+      id: "productId:p-1",
+      position: "1736782800000-abc-uuid",
+      event: "ProductAdded",
+      data: stored_data,
+      meta: meta,
+      recordedAt: "2026-05-13T10:00:00.000Z",
+      tags: stored_tags
+    };
+    let flat = Message$ReventlessCore.storedEventToFlatJson(stored, S.string);
+    let roundTrip = Message$ReventlessCore.flatJsonToStoredEvent(flat, S.string);
+    globalThis.expect(roundTrip.id).toBe("productId:p-1");
+    globalThis.expect(roundTrip.position).toBe("1736782800000-abc-uuid");
+    globalThis.expect(roundTrip.event).toBe("ProductAdded");
+    globalThis.expect(roundTrip.meta.causationId).toEqual("cmd-1");
+    let tags = Stdlib_Option.getOrThrow(roundTrip.tags, undefined);
+    globalThis.expect(tags.length).toBe(2);
+    let first = tags[0];
+    globalThis.expect(first.key).toBe("productId");
+    globalThis.expect(first.value).toBe("p-1");
+  });
+  globalThis.test("meta is flattened to top-level keys in the on-disk JSON (DynamoDB GSI projectability)", () => {
+    let meta = Message$ReventlessCore.generateMeta("catalog", undefined, undefined, undefined, undefined, undefined, undefined, undefined);
+    let stored_data = {};
+    let stored = {
+      id: "agg-1",
+      position: "000000001",
+      event: "ItemCreated",
+      data: stored_data,
+      meta: meta,
+      recordedAt: "2026-05-13T10:00:00.000Z"
+    };
+    let flat = Message$ReventlessCore.storedEventToFlatJson(stored, S.string);
+    let obj = Stdlib_Option.getOrThrow(Stdlib_JSON.Decode.object(flat), undefined);
+    globalThis.expect(obj["meta"]).toEqual(undefined);
+    globalThis.expect(obj["service"]).toEqual("catalog");
+    globalThis.expect(Stdlib_Option.isSome(obj["msgId"])).toBe(true);
+    globalThis.expect(obj["position"]).toEqual("000000001");
+    globalThis.expect(obj["event"]).toEqual("ItemCreated");
+    globalThis.expect(obj["recordedAt"]).toEqual("2026-05-13T10:00:00.000Z");
+  });
+});
+
+/*  Not a pure module */