@reventlessdev/reventless-core 3.0.0-alpha.180 → 3.0.0-alpha.182

package/tests/ftp/FTPTest.res.mjs

@@ -0,0 +1,88 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as FTP$ReventlessCore from "../../src/util/FTP.res.mjs";
+
+globalThis.describe("FTP.SSH2 should", () => {
+  globalThis.test("parse valid url, only url given", () => {
+    let t = FTP$ReventlessCore.parseUrl("example.com");
+    globalThis.expect(t).toEqual([
+      "example.com",
+      undefined,
+      ""
+    ]);
+  });
+  globalThis.test("parse valid url, url and relative path given", () => {
+    let t = FTP$ReventlessCore.parseUrl("example.com/some/path");
+    globalThis.expect(t).toEqual([
+      "example.com",
+      undefined,
+      "some/path"
+    ]);
+  });
+  globalThis.test("parse valid url, url and absolute path given", () => {
+    let t = FTP$ReventlessCore.parseUrl("example.com//some/path");
+    globalThis.expect(t).toEqual([
+      "example.com",
+      undefined,
+      "/some/path"
+    ]);
+  });
+  globalThis.test("parse valid url, url and port given", () => {
+    let t = FTP$ReventlessCore.parseUrl("example.com:8080");
+    globalThis.expect(t).toEqual([
+      "example.com",
+      8080,
+      ""
+    ]);
+  });
+  globalThis.test("parse valid url, all parts given (relative path)", () => {
+    let t = FTP$ReventlessCore.parseUrl("reventless.example.com:8025/some/path");
+    globalThis.expect(t).toEqual([
+      "reventless.example.com",
+      8025,
+      "some/path"
+    ]);
+  });
+  globalThis.test("parse valid url, all parts given (absolute path)", () => {
+    let t = FTP$ReventlessCore.parseUrl("reventless.example.com:8025//some/path");
+    globalThis.expect(t).toEqual([
+      "reventless.example.com",
+      8025,
+      "/some/path"
+    ]);
+  });
+  globalThis.test("parse valid url, all parts given (relative path first)", () => {
+    let t = FTP$ReventlessCore.parseUrl("example.com/some/path:8080");
+    globalThis.expect(t).toEqual([
+      "example.com",
+      8080,
+      "some/path"
+    ]);
+  });
+  globalThis.test("parse valid url, all parts given (absolute path first)", () => {
+    let t = FTP$ReventlessCore.parseUrl("example.com//some/path:8080");
+    globalThis.expect(t).toEqual([
+      "example.com",
+      8080,
+      "/some/path"
+    ]);
+  });
+  globalThis.test("parse url with invalid port (relative path)", () => {
+    let t = FTP$ReventlessCore.parseUrl("example.com/some/path:invalidPort");
+    globalThis.expect(t).toEqual([
+      "example.com",
+      undefined,
+      "some/path"
+    ]);
+  });
+  globalThis.test("parse url with invalid port (absolute path)", () => {
+    let t = FTP$ReventlessCore.parseUrl("example.com//some/path:invalidPort");
+    globalThis.expect(t).toEqual([
+      "example.com",
+      undefined,
+      "/some/path"
+    ]);
+  });
+});
+
+/*  Not a pure module */

package/tests/logger/LogFormatTest.res.mjs

@@ -0,0 +1,329 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.res.mjs";
+import * as Stdlib_Dict from "@rescript/runtime/lib/es6/Stdlib_Dict.js";
+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 Effect from "effect/Effect";
+import * as Primitive_object from "@rescript/runtime/lib/es6/Primitive_object.js";
+import * as AnsiStyle$Reventless from "@reventlessdev/reventless-spec/src/AnsiStyle.res.mjs";
+import * as Primitive_exceptions from "@rescript/runtime/lib/es6/Primitive_exceptions.js";
+import * as Logger$ReventlessCore from "../../src/util/Logger.res.mjs";
+import * as Message$ReventlessCore from "../../src/Message.res.mjs";
+import * as Runtime$ReventlessCore from "../../src/adapter/Runtime/Runtime.res.mjs";
+import * as LogFormat$ReventlessCore from "../../src/util/LogFormat.res.mjs";
+import * as PluginSpec$ReventlessCore from "../../src/plugin/lifecycle/PluginSpec.res.mjs";
+import * as EffectLogger$ReventlessCore from "../../src/util/EffectLogger.res.mjs";
+
+S.enableJson();
+
+process.env["REVENTLESS_LOG_FORMAT"] = "text";
+
+AnsiStyle$Reventless.reload();
+
+globalThis.describe("LogFormat", () => {
+  globalThis.describe("commandJsonsToLogMessages", () => {
+    globalThis.test("empty", () => {
+      let arr = [];
+      globalThis.expect(LogFormat$ReventlessCore.commandJsonsToLogMessages(arr)).toEqual([]);
+    });
+    globalThis.test("simple", () => {
+      let commands = [{
+          TAG: "Heartbeat",
+          _0: "0.0.0"
+        }];
+      let meta = {
+        service: "testService",
+        time: "testTime",
+        ip: "testIp",
+        user: "testUser",
+        msgId: "testMsgId",
+        correlationId: "testCorrelationId"
+      };
+      let metaStr = JSON.stringify(Message$ReventlessCore.encode(meta, Message$ReventlessCore.metaSchema));
+      let arr = commands.map((command, idx) => ({
+        id: idx.toString(),
+        meta: meta,
+        commandJson: Message$ReventlessCore.encode(command, PluginSpec$ReventlessCore.commandSchema)
+      }));
+      let expected = `1/1: \x1b[1mHeartbeat\x1b[0m(0): {"command":{"TAG":"Heartbeat","_0":"0.0.0"},"meta":` + metaStr + `,"id":"0"}`;
+      globalThis.expect(LogFormat$ReventlessCore.commandJsonsToLogMessages(arr)).toEqual([expected]);
+    });
+    globalThis.test("complex", () => {
+      let commands = [
+        {
+          TAG: "Heartbeat",
+          _0: "0.0.0"
+        },
+        {
+          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,
+            structure: undefined,
+            dcbEventLog: undefined,
+            kind: "Domain"
+          }
+        }
+      ];
+      let meta = {
+        service: "testService",
+        time: "testTime",
+        ip: "testIp",
+        user: "testUser",
+        msgId: "testMsgId",
+        correlationId: "testCorrelationId"
+      };
+      let metaStr = JSON.stringify(Message$ReventlessCore.encode(meta, Message$ReventlessCore.metaSchema));
+      let arr = commands.map((command, idx) => ({
+        id: idx.toString(),
+        meta: meta,
+        commandJson: Message$ReventlessCore.encode(command, PluginSpec$ReventlessCore.commandSchema)
+      }));
+      let expected1 = `1/2: \x1b[1mHeartbeat\x1b[0m(0): {"command":{"TAG":"Heartbeat","_0":"0.0.0"},"meta":` + metaStr + `,"id":"0"}`;
+      let expected2 = `2/2: \x1b[1mConnect\x1b[0m(1): {"command":{"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":null,"apiTarget":null,"structure":null,"dcbEventLog":null,"kind":"Domain"}},"meta":` + metaStr + `,"id":"1"}`;
+      globalThis.expect(LogFormat$ReventlessCore.commandJsonsToLogMessages(arr)).toEqual([
+        expected1,
+        expected2
+      ]);
+    });
+  });
+  globalThis.describe("event'JsonToLogMessage", () => {
+    globalThis.test("simple", () => {
+      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 msg = LogFormat$ReventlessCore.event$pJsonToLogMessage(eventJson$p);
+      globalThis.expect(msg).toEqual(`\x1b[1mVersionDetected\x1b[0m(testId): {"event":{"TAG":"VersionDetected","_0":"0.0.0"},"meta":{"service":"testService","time":"testTime","ip":"testIp","user":"testUser","msgId":"testMsgId","correlationId":"testCorrelationId"},"id":"testId"}`);
+    });
+  });
+});
+
+function hasAnsi(s) {
+  return s.includes("\x1b");
+}
+
+function captureLogs(fn) {
+  let captured = [];
+  let original = console.log;
+  console.log = s => {
+    captured.push(s);
+  };
+  let result;
+  try {
+    fn();
+    result = {
+      TAG: "Ok",
+      _0: undefined
+    };
+  } catch (raw_e) {
+    let e = Primitive_exceptions.internalToException(raw_e);
+    result = {
+      TAG: "Error",
+      _0: e
+    };
+  }
+  console.log = original;
+  if (result.TAG === "Ok") {
+    return captured;
+  }
+  throw result._0;
+}
+
+let validLevels = [
+  "DEBUG",
+  "INFO",
+  "WARN",
+  "ERROR"
+];
+
+function isCleanRecord(line) {
+  if (line.includes("\x1b")) {
+    return false;
+  }
+  try {
+    let obj = Stdlib_JSON.Decode.object(JSON.parse(line));
+    if (obj === undefined) {
+      return false;
+    }
+    let levelOk = Stdlib_Option.mapOr(Stdlib_Option.flatMap(obj["level"], Stdlib_JSON.Decode.string), false, l => validLevels.includes(l));
+    let msgOk = Stdlib_Option.isSome(Stdlib_Option.flatMap(obj["message"], Stdlib_JSON.Decode.string));
+    if (levelOk) {
+      return msgOk;
+    } else {
+      return false;
+    }
+  } catch (exn) {
+    return false;
+  }
+}
+
+function fieldOf(line, key) {
+  let obj = Stdlib_JSON.Decode.object(JSON.parse(line));
+  if (obj !== undefined) {
+    return Stdlib_Option.flatMap(obj[key], Stdlib_JSON.Decode.string);
+  }
+}
+
+globalThis.describe("JSON sink", () => {
+  globalThis.beforeAll(() => {
+    process.env["REVENTLESS_LOG_FORMAT"] = "json";
+    AnsiStyle$Reventless.reload();
+  });
+  globalThis.afterAll(() => {
+    process.env["REVENTLESS_LOG_FORMAT"] = "text";
+    AnsiStyle$Reventless.reload();
+  });
+  let log = Logger$ReventlessCore.makeLogger("Debug");
+  globalThis.test("Logger.info emits one clean JSON record with comp as a top-level field", () => {
+    let lines = captureLogs(() => log.info("Aggregate(Product)", undefined, "handling command"));
+    let line = lines.length === 1 ? lines[0] : "";
+    let ok = lines.length === 1 && isCleanRecord(line) && Primitive_object.equal(fieldOf(line, "comp"), "Aggregate(Product)") && Primitive_object.equal(fieldOf(line, "message"), "handling command");
+    globalThis.expect(ok).toBe(true);
+  });
+  globalThis.test("Logger.info resolves plugin to a top-level field when the comp is registered", () => {
+    Logger$ReventlessCore.registerComponentPlugin("Product", "Catalog");
+    let lines = captureLogs(() => log.info("Aggregate(Product)", undefined, "handling command"));
+    let line = lines.length === 1 ? lines[0] : "";
+    globalThis.expect(lines.length === 1 && Primitive_object.equal(fieldOf(line, "plugin"), "Catalog")).toBe(true);
+  });
+  globalThis.test("Logger.info resolves plugin from a kind-suffixed component name", () => {
+    Logger$ReventlessCore.registerComponentPlugin("Products", "Catalog");
+    let lines = captureLogs(() => log.info("EventCollector(ProductsReadModel)", undefined, "projecting event"));
+    let line = lines.length === 1 ? lines[0] : "";
+    globalThis.expect(lines.length === 1 && Primitive_object.equal(fieldOf(line, "plugin"), "Catalog")).toBe(true);
+  });
+  globalThis.test("Plugin resolution prefers the longest registered prefix", () => {
+    Logger$ReventlessCore.registerComponentPlugin("Order", "Ordering");
+    Logger$ReventlessCore.registerComponentPlugin("OrderLines", "Billing");
+    let lines = captureLogs(() => log.info("EventCollector(OrderLinesReadModel)", undefined, "projecting event"));
+    let line = lines.length === 1 ? lines[0] : "";
+    globalThis.expect(lines.length === 1 && Primitive_object.equal(fieldOf(line, "plugin"), "Billing")).toBe(true);
+  });
+  globalThis.test("dispatch annotation carries comp onto a handler line that passes none", () => {
+    let lines = captureLogs(() => Effect.runSync(Runtime$ReventlessCore.annotateInvocation(EffectLogger$ReventlessCore.logInfo(undefined, undefined, "projected"), "cid-1", "parent-1", "EventCollector(ProductsReadModel)", undefined, undefined, undefined, undefined, undefined)));
+    let line = lines.length >= 1 ? lines[0] : "";
+    let ok = Primitive_object.equal(fieldOf(line, "comp"), "EventCollector(ProductsReadModel)") && Primitive_object.equal(fieldOf(line, "correlationId"), "cid-1") && Primitive_object.equal(fieldOf(line, "causationId"), "parent-1") && Primitive_object.equal(fieldOf(line, "message"), "projected");
+    globalThis.expect(ok).toBe(true);
+  });
+  globalThis.test("Logger.warn emits one clean JSON record", () => {
+    let lines = captureLogs(() => log.warn("Platform", undefined, "heartbeat skipped"));
+    globalThis.expect(lines.length === 1 && isCleanRecord(lines[0])).toBe(true);
+  });
+  globalThis.test("Logger.error with ~data emits one clean JSON record", () => {
+    let lines = captureLogs(() => log.error("Util_AppSync_Caller", JSON.parse(`{"errors":["boom"]}`), "query errors"));
+    globalThis.expect(lines.length === 1 && isCleanRecord(lines[0])).toBe(true);
+  });
+  globalThis.test("EffectLogger.logInfo emits clean JSON through install()", () => {
+    let lines = captureLogs(() => Effect.runSync(EffectLogger$ReventlessCore.logInfo("Aggregate(Product)", undefined, "replay done")));
+    let allClean = lines.filter(l => !isCleanRecord(l)).length === 0;
+    globalThis.expect(lines.length >= 1 && allClean).toBe(true);
+  });
+  globalThis.test("EffectLogger.logInfo carries ~comp + ~detail as structured fields (no \\x00)", () => {
+    let lines = captureLogs(() => Effect.runSync(EffectLogger$ReventlessCore.logInfo("Aggregate(Product)", JSON.parse(`{"id":"p-1"}`), "added")));
+    let ok = lines.some(line => {
+      let obj = Stdlib_JSON.Decode.object(JSON.parse(line));
+      if (obj !== undefined && Primitive_object.equal(Stdlib_Option.flatMap(obj["comp"], Stdlib_JSON.Decode.string), "Aggregate(Product)")) {
+        return Primitive_object.equal(Stdlib_Option.flatMap(Stdlib_Option.flatMap(Stdlib_Option.flatMap(obj["detail"], Stdlib_JSON.Decode.object), d => d["id"]), Stdlib_JSON.Decode.string), "p-1");
+      } else {
+        return false;
+      }
+    });
+    globalThis.expect(ok).toBe(true);
+  });
+  globalThis.test("Effect.annotateLogs(correlationId) surfaces as a top-level field", () => {
+    let lines = captureLogs(() => Effect.runSync(Effect.annotateLogs(EffectLogger$ReventlessCore.logInfo("Aggregate(Product)", undefined, "handling"), "correlationId", "c-123")));
+    globalThis.expect(lines.some(line => Primitive_object.equal(fieldOf(line, "correlationId"), "c-123"))).toBe(true);
+  });
+  globalThis.test("Effect.annotateLogs(plugin) overrides registry resolution", () => {
+    let lines = captureLogs(() => Effect.runSync(Effect.annotateLogs(EffectLogger$ReventlessCore.logInfo("Aggregate(Unregistered)", undefined, "handling"), "plugin", "Ordering")));
+    globalThis.expect(lines.some(line => Primitive_object.equal(fieldOf(line, "plugin"), "Ordering"))).toBe(true);
+  });
+  globalThis.test("every JSON record carries an RFC 3339 time field", () => {
+    let lines = captureLogs(() => log.info("Platform", undefined, "tick"));
+    let t = Stdlib_Option.flatMap(lines[0], l => fieldOf(l, "time"));
+    let ok = t !== undefined ? t.includes("T") && t.endsWith("Z") : false;
+    globalThis.expect(ok).toBe(true);
+  });
+  globalThis.test("service field is emitted when REVENTLESS_SERVICE is set", () => {
+    process.env["REVENTLESS_SERVICE"] = "TestService";
+    let lines = captureLogs(() => log.info("Platform", undefined, "tick"));
+    let got = Stdlib_Option.flatMap(lines[0], l => fieldOf(l, "service"));
+    Stdlib_Dict.$$delete(process.env, "REVENTLESS_SERVICE");
+    globalThis.expect(got).toEqual("TestService");
+  });
+  globalThis.test("oversized detail is truncated to a preview stub", () => {
+    let big = "x".repeat(40000);
+    let detail = Object.fromEntries([[
+        "blob",
+        big
+      ]]);
+    let direct = captureLogs(() => Logger$ReventlessCore.emit("Info", "Platform", undefined, detail, undefined, "big"));
+    let obj = Stdlib_Option.flatMap(direct[0], l => Stdlib_JSON.Decode.object(JSON.parse(l)));
+    let ok;
+    if (obj !== undefined) {
+      let d = Stdlib_Option.flatMap(obj["detail"], Stdlib_JSON.Decode.object);
+      ok = d !== undefined ? Primitive_object.equal(Stdlib_Option.flatMap(d["truncated"], Stdlib_JSON.Decode.bool), true) && Stdlib_Option.mapOr(Stdlib_Option.flatMap(d["preview"], Stdlib_JSON.Decode.string), false, p => p.length <= 512) : false;
+    } else {
+      ok = false;
+    }
+    globalThis.expect(ok).toBe(true);
+  });
+  globalThis.test("LogFormat.cmdName carries no ANSI in a JSON sink", () => {
+    let cmd_meta = {
+      service: "testService",
+      time: "testTime",
+      ip: "testIp",
+      user: "testUser",
+      msgId: "testMsgId",
+      correlationId: "testCorrelationId"
+    };
+    let cmd_commandJson = Message$ReventlessCore.encode({
+      TAG: "Heartbeat",
+      _0: "0.0.0"
+    }, PluginSpec$ReventlessCore.commandSchema);
+    let cmd = {
+      id: "0",
+      meta: cmd_meta,
+      commandJson: cmd_commandJson
+    };
+    let name = LogFormat$ReventlessCore.cmdName(cmd);
+    globalThis.expect(!name.includes("\x1b") && name === "Heartbeat").toBe(true);
+  });
+});
+
+export {
+  hasAnsi,
+  captureLogs,
+  validLevels,
+  isCleanRecord,
+  fieldOf,
+}
+/*  Not a pure module */

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 */

package/tests/message/MessageTest.res.mjs

@@ -0,0 +1,218 @@
+// 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,
+        structure: undefined,
+        dcbEventLog: undefined,
+        kind: "Domain"
+      }
+    };
+    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");
+  });
+  globalThis.test("tolerantly decode a VersionConnected persisted before kind/structure fields existed", () => {
+    let def = {
+      id: "id",
+      name: "Ordering",
+      version: "1.0.0",
+      extensionPoints: [],
+      extensions: [],
+      eventCollector: "arn",
+      extensionProtocols: [],
+      apiSchemaFragment: undefined,
+      apiTarget: undefined,
+      structure: {
+        readModels: [],
+        stateViewSlices: [],
+        stateChangeSlices: [],
+        aggregates: [{
+            name: "Order",
+            commands: [],
+            producedEventTypes: [],
+            consumedEventTypes: [],
+            linkedViews: [],
+            consistencyRead: undefined,
+            events: [],
+            chapter: undefined
+          }],
+        automationSlices: [],
+        outboundTranslationSlices: [],
+        inboundTranslationSlices: [],
+        extensions: [],
+        extensionPoints: undefined
+      },
+      dcbEventLog: undefined,
+      kind: "Domain"
+    };
+    let event$p_meta = {
+      service: "svc",
+      time: "t",
+      ip: "ip",
+      user: "u",
+      msgId: "m",
+      correlationId: "c"
+    };
+    let event$p_event = {
+      TAG: "VersionConnected",
+      _0: def
+    };
+    let event$p = {
+      id: "id",
+      meta: event$p_meta,
+      event: event$p_event
+    };
+    let json = Message$ReventlessCore.encodeEvent$p(event$p, S.string, PluginSpec$ReventlessCore.eventSchema);
+    let oldJson = (function(j){
+        var c = JSON.parse(JSON.stringify(j));
+        var d = c.event._0;
+        delete d.kind;
+        delete d.apiSchemaFragment;
+        var agg = d.structure.aggregates[0];
+        delete agg.events;
+        delete agg.chapter;
+        return c;
+      })(json);
+    let strictThrew;
+    try {
+      S.parseJsonOrThrow(oldJson, Message$ReventlessCore.toEventSchema$p(S.string, PluginSpec$ReventlessCore.eventSchema));
+      strictThrew = false;
+    } catch (exn) {
+      strictThrew = true;
+    }
+    globalThis.expect(strictThrew).toBe(true);
+    let decoded = Message$ReventlessCore.decodeEvent$p(oldJson, S.string, PluginSpec$ReventlessCore.eventSchema);
+    let d = decoded.event;
+    if (d.TAG === "VersionConnected") {
+      let d$1 = d._0;
+      let match = d$1.kind;
+      let tmp;
+      tmp = match === "Domain" ? "Domain" : "other";
+      globalThis.expect(tmp).toBe("Domain");
+      globalThis.expect(Stdlib_Option.isNone(d$1.apiSchemaFragment)).toBe(true);
+      let structure = Stdlib_Option.getOrThrow(d$1.structure, undefined);
+      let agg = structure.aggregates[0];
+      globalThis.expect(agg.events.length).toBe(0);
+      globalThis.expect(Stdlib_Option.isNone(agg.chapter)).toBe(true);
+      return;
+    }
+    globalThis.expect("wrong-variant").toBe("VersionConnected");
+  });
+  globalThis.test("Message.decode heals a VersionConnected variant missing kind (the replay path)", () => {
+    let def = {
+      id: "id",
+      name: "Ordering",
+      version: "1.0.0",
+      extensionPoints: [],
+      extensions: [],
+      eventCollector: "arn",
+      extensionProtocols: [],
+      apiSchemaFragment: undefined,
+      apiTarget: undefined,
+      structure: undefined,
+      dcbEventLog: undefined,
+      kind: "Domain"
+    };
+    let variantJson = Message$ReventlessCore.encode({
+      TAG: "VersionConnected",
+      _0: def
+    }, PluginSpec$ReventlessCore.eventSchema);
+    let staleJson = (function(j){ var c = JSON.parse(JSON.stringify(j)); delete c._0.kind; return c; })(variantJson);
+    let strictThrew;
+    try {
+      S.parseJsonOrThrow(staleJson, PluginSpec$ReventlessCore.eventSchema);
+      strictThrew = false;
+    } catch (exn) {
+      strictThrew = true;
+    }
+    globalThis.expect(strictThrew).toBe(true);
+    let d = Message$ReventlessCore.decode(staleJson, PluginSpec$ReventlessCore.eventSchema);
+    if (d.TAG === "VersionConnected") {
+      let match = d._0.kind;
+      let tmp;
+      tmp = match === "Domain" ? "Domain" : "other";
+      globalThis.expect(tmp).toBe("Domain");
+      return;
+    }
+    globalThis.expect("wrong-variant").toBe("VersionConnected");
+  });
+});
+
+/*  Not a pure module */