@reventlessdev/reventless-core 3.0.0-alpha.170 → 3.0.0-alpha.172

package/tests/logger/LogFormatTest.res.mjs

@@ -1,309 +0,0 @@
-// 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 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.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

@@ -1,40 +0,0 @@
-// 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

@@ -1,218 +0,0 @@
-// 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 */