@reventlessdev/reventless-core 3.0.0-alpha.134

package/tests/admin/Platform_ComponentDefinitionsApiTest.res.mjs

@@ -0,0 +1,298 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+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 Primitive_string from "@rescript/runtime/lib/es6/Primitive_string.js";
+import * as Platform_ComponentDefinitionsApi$ReventlessCore from "../../src/admin/Platform_ComponentDefinitionsApi.res.mjs";
+
+let cmd_references = [{
+    fieldName: "categoryId",
+    entity: "Category",
+    plugin: "Catalog"
+  }];
+
+let cmd_apiExposed = true;
+
+let cmd = {
+  name: "Add",
+  schema: "{}",
+  level: "Collection",
+  aggregateIdField: undefined,
+  mutationField: "AddProduct",
+  references: cmd_references,
+  allowedStates: undefined,
+  apiExposed: cmd_apiExposed
+};
+
+let qbl_consumedEventTypes = ["ProductAdded"];
+
+let qbl_linkedWriteSide = ["Product"];
+
+let qbl_searchableFields = ["displayName"];
+
+let qbl = {
+  name: "Products",
+  queryField: "Catalog_Products",
+  schema: "{}",
+  consumedEventTypes: qbl_consumedEventTypes,
+  linkedWriteSide: qbl_linkedWriteSide,
+  labelField: "displayName",
+  searchableFields: qbl_searchableFields,
+  statusField: undefined,
+  visibility: undefined
+};
+
+let wbl_commands = [cmd];
+
+let wbl_producedEventTypes = ["ProductAdded"];
+
+let wbl_consumedEventTypes = [];
+
+let wbl_linkedViews = ["Products"];
+
+let wbl_events = [{
+    name: "ProductAdded",
+    schema: "{}",
+    references: []
+  }];
+
+let wbl = {
+  name: "Product",
+  commands: wbl_commands,
+  producedEventTypes: wbl_producedEventTypes,
+  consumedEventTypes: wbl_consumedEventTypes,
+  linkedViews: wbl_linkedViews,
+  consistencyRead: undefined,
+  events: wbl_events
+};
+
+let structure_readModels = [qbl];
+
+let structure_stateViewSlices = [];
+
+let structure_stateChangeSlices = [];
+
+let structure_aggregates = [wbl];
+
+let structure_automationSlices = [{
+    name: "Restocker",
+    consumedEventTypes: ["StockLow"],
+    producedCommandTypes: ["Restock"],
+    targetName: "Product"
+  }];
+
+let structure_outboundTranslationSlices = [{
+    name: "ToShipper",
+    consumedEventTypes: ["OrderPlaced"],
+    inboundCommandTypes: ["Ship"],
+    targetName: undefined
+  }];
+
+let structure_inboundTranslationSlices = [{
+    name: "FromBilling",
+    commandTypes: ["RecordPayment"],
+    targetName: "Order"
+  }];
+
+let structure_extensions = [{
+    name: "Catalog.Products.Watcher",
+    delegateNames: ["onAdded"],
+    eventTypes: ["ProductAdded"],
+    commandTypes: []
+  }];
+
+let structure = {
+  readModels: structure_readModels,
+  stateViewSlices: structure_stateViewSlices,
+  stateChangeSlices: structure_stateChangeSlices,
+  aggregates: structure_aggregates,
+  automationSlices: structure_automationSlices,
+  outboundTranslationSlices: structure_outboundTranslationSlices,
+  inboundTranslationSlices: structure_inboundTranslationSlices,
+  extensions: structure_extensions,
+  extensionPoints: undefined
+};
+
+let encoded = Platform_ComponentDefinitionsApi$ReventlessCore.encodePluginStructureEntry("Catalog", structure);
+
+let json = JSON.stringify(encoded);
+
+globalThis.describe("encodePluginStructureEntry", () => {
+  globalThis.test("produces a JSON object with the expected top-level keys", () => {
+    let dict = Stdlib_Option.getOr(Stdlib_JSON.Decode.object(encoded), {});
+    let keys = Object.keys(dict).toSorted(Primitive_string.compare);
+    globalThis.expect(keys).toEqual([
+      "aggregates",
+      "automationSlices",
+      "extensions",
+      "inboundTranslationSlices",
+      "outboundTranslationSlices",
+      "pluginId",
+      "readModels",
+      "stateChangeSlices",
+      "stateViewSlices"
+    ]);
+  });
+  globalThis.test("encodes pluginId", () => {
+    globalThis.expect(json.includes("\"pluginId\":\"Catalog\"")).toEqual(true);
+  });
+  globalThis.test("encodes commandLevel as a literal string", () => {
+    globalThis.expect(json.includes("\"level\":\"Collection\"")).toEqual(true);
+  });
+  globalThis.test("encodes None aggregateIdField as null", () => {
+    globalThis.expect(json.includes("\"aggregateIdField\":null")).toEqual(true);
+  });
+  globalThis.test("encodes None consistencyRead as null", () => {
+    globalThis.expect(json.includes("\"consistencyRead\":null")).toEqual(true);
+  });
+  globalThis.test("encodes Some plugin reference as its inner string", () => {
+    globalThis.expect(json.includes("\"plugin\":\"Catalog\"")).toEqual(true);
+  });
+  globalThis.test("includes the queryableDef name", () => {
+    globalThis.expect(json.includes("\"name\":\"Products\"")).toEqual(true);
+  });
+  globalThis.test("includes the automation slice name", () => {
+    globalThis.expect(json.includes("\"name\":\"Restocker\"")).toEqual(true);
+  });
+  globalThis.test("encodes None allowedStates as null", () => {
+    globalThis.expect(json.includes("\"allowedStates\":null")).toEqual(true);
+  });
+  globalThis.test("encodes the command's apiExposed flag (drives the event-graph API badge)", () => {
+    globalThis.expect(json.includes("\"apiExposed\":true")).toEqual(true);
+  });
+  globalThis.test("encodes None statusField as null", () => {
+    globalThis.expect(json.includes("\"statusField\":null")).toEqual(true);
+  });
+  globalThis.test("encodes writableDef events", () => {
+    globalThis.expect(json.includes("\"events\":[{\"name\":\"ProductAdded\"")).toEqual(true);
+  });
+});
+
+globalThis.describe("visibility filtering (deployed AutoUI hides Internal)", () => {
+  let internalQbl_consumedEventTypes = ["CatalogProductSynced"];
+  let internalQbl_linkedWriteSide = [];
+  let internalQbl_searchableFields = ["name"];
+  let internalQbl_visibility = "Internal";
+  let internalQbl = {
+    name: "AvailableProducts",
+    queryField: "Ordering_AvailableProducts",
+    schema: "{}",
+    consumedEventTypes: internalQbl_consumedEventTypes,
+    linkedWriteSide: internalQbl_linkedWriteSide,
+    labelField: "name",
+    searchableFields: internalQbl_searchableFields,
+    statusField: undefined,
+    visibility: internalQbl_visibility
+  };
+  let mixed_readModels = [
+    qbl,
+    internalQbl
+  ];
+  let mixed_stateViewSlices = [internalQbl];
+  let mixed_stateChangeSlices = structure_stateChangeSlices;
+  let mixed_aggregates = structure_aggregates;
+  let mixed_automationSlices = structure_automationSlices;
+  let mixed_outboundTranslationSlices = structure_outboundTranslationSlices;
+  let mixed_inboundTranslationSlices = structure_inboundTranslationSlices;
+  let mixed_extensions = structure_extensions;
+  let mixed = {
+    readModels: mixed_readModels,
+    stateViewSlices: mixed_stateViewSlices,
+    stateChangeSlices: mixed_stateChangeSlices,
+    aggregates: mixed_aggregates,
+    automationSlices: mixed_automationSlices,
+    outboundTranslationSlices: mixed_outboundTranslationSlices,
+    inboundTranslationSlices: mixed_inboundTranslationSlices,
+    extensions: mixed_extensions,
+    extensionPoints: undefined
+  };
+  let mixedJson = JSON.stringify(Platform_ComponentDefinitionsApi$ReventlessCore.encodePluginStructureEntry("Ordering", mixed));
+  globalThis.test("excludes an Internal queryableDef from the encoded read-side", () => {
+    globalThis.expect(mixedJson.includes("AvailableProducts")).toEqual(false);
+  });
+  globalThis.test("keeps a Public queryableDef", () => {
+    globalThis.expect(mixedJson.includes("\"name\":\"Products\"")).toEqual(true);
+  });
+});
+
+globalThis.describe("allowedStates + statusField populated", () => {
+  let cmdWithStates_aggregateIdField = "id";
+  let cmdWithStates_references = [];
+  let cmdWithStates_allowedStates = ["Inactive"];
+  let cmdWithStates_apiExposed = true;
+  let cmdWithStates = {
+    name: "Activate",
+    schema: "{}",
+    level: "Instance",
+    aggregateIdField: cmdWithStates_aggregateIdField,
+    mutationField: "Platform_Plugin_Activate",
+    references: cmdWithStates_references,
+    allowedStates: cmdWithStates_allowedStates,
+    apiExposed: cmdWithStates_apiExposed
+  };
+  let qblWithStatus_consumedEventTypes = [];
+  let qblWithStatus_linkedWriteSide = ["Plugin"];
+  let qblWithStatus_searchableFields = ["name"];
+  let qblWithStatus_statusField = "status";
+  let qblWithStatus = {
+    name: "Plugin",
+    queryField: "Platform_Plugins",
+    schema: "{}",
+    consumedEventTypes: qblWithStatus_consumedEventTypes,
+    linkedWriteSide: qblWithStatus_linkedWriteSide,
+    labelField: "name",
+    searchableFields: qblWithStatus_searchableFields,
+    statusField: qblWithStatus_statusField,
+    visibility: undefined
+  };
+  let wblWithStates_commands = [cmdWithStates];
+  let wblWithStates_producedEventTypes = [];
+  let wblWithStates_consumedEventTypes = [];
+  let wblWithStates_linkedViews = ["Plugin"];
+  let wblWithStates_events = [];
+  let wblWithStates = {
+    name: "Plugin",
+    commands: wblWithStates_commands,
+    producedEventTypes: wblWithStates_producedEventTypes,
+    consumedEventTypes: wblWithStates_consumedEventTypes,
+    linkedViews: wblWithStates_linkedViews,
+    consistencyRead: undefined,
+    events: wblWithStates_events
+  };
+  let structureWithStates_readModels = [qblWithStatus];
+  let structureWithStates_stateViewSlices = [];
+  let structureWithStates_stateChangeSlices = [];
+  let structureWithStates_aggregates = [wblWithStates];
+  let structureWithStates_automationSlices = [];
+  let structureWithStates_outboundTranslationSlices = [];
+  let structureWithStates_inboundTranslationSlices = [];
+  let structureWithStates_extensions = [];
+  let structureWithStates = {
+    readModels: structureWithStates_readModels,
+    stateViewSlices: structureWithStates_stateViewSlices,
+    stateChangeSlices: structureWithStates_stateChangeSlices,
+    aggregates: structureWithStates_aggregates,
+    automationSlices: structureWithStates_automationSlices,
+    outboundTranslationSlices: structureWithStates_outboundTranslationSlices,
+    inboundTranslationSlices: structureWithStates_inboundTranslationSlices,
+    extensions: structureWithStates_extensions,
+    extensionPoints: undefined
+  };
+  let json = JSON.stringify(Platform_ComponentDefinitionsApi$ReventlessCore.encodePluginStructureEntry("Platform", structureWithStates));
+  globalThis.test("encodes populated allowedStates as a JSON array", () => {
+    globalThis.expect(json.includes("\"allowedStates\":[\"Inactive\"]")).toEqual(true);
+  });
+  globalThis.test("encodes populated statusField as the field name string", () => {
+    globalThis.expect(json.includes("\"statusField\":\"status\"")).toEqual(true);
+  });
+});
+
+export {
+  cmd,
+  qbl,
+  wbl,
+  structure,
+  encoded,
+  json,
+}
+/* encoded Not a pure module */

package/tests/admin/Platform_UIFragmentsApiTest.res

@@ -0,0 +1,96 @@
+// Asserts the canonical JSON shape produced by encodeUIFragmentEntry — shared
+// by both the in-memory and AWS adapters. If this test changes, every console
+// parsing the Platform_UIFragments response is affected.
+
+open JestGlobals
+open Reventless.Plugin
+
+let panel: panelManifestEntry = {
+  fragmentId: "Catalog.Categories.list",
+  title: "Categories",
+  description: "",
+  positions: ["platform-summary"],
+  requiredAccess: None,
+}
+
+let page: pageManifestEntry = {
+  fragmentId: "Catalog.Categories.list",
+  title: "Categories",
+  menuEntry: {
+    label: "Categories",
+    icon: None,
+    group: None,
+    sortOrder: 0,
+  },
+  requiredAccess: Some("admin"),
+}
+
+let state: UIFragmentRegistryReadModelSpec.state = {
+  pluginId: "Catalog",
+  remoteEntryUrl: "https://cdn.example.com/catalog@1.0/remoteEntry.js",
+  panels: [panel],
+  pages: [page],
+  registeredAt: "2026-05-14T00:00:00.000Z",
+  updatedAt: "2026-05-14T00:00:00.000Z",
+}
+
+let encoded = Platform_UIFragmentsApi.encodeUIFragmentEntry(state)
+let json = encoded->JSON.stringify
+
+describe("encodeUIFragmentEntry", () => {
+  testSync("produces a JSON object with the expected top-level keys", () => {
+    let dict = encoded->JSON.Decode.object->Option.getOr(Dict.make())
+    let keys = dict->Dict.keysToArray->Array.toSorted(String.compare)
+    expect(keys)->toEqual([
+      "pages",
+      "panels",
+      "pluginId",
+      "registeredAt",
+      "remoteEntryUrl",
+      "updatedAt",
+    ])
+  })
+
+  testSync("encodes pluginId", () =>
+    expect(json->String.includes("\"pluginId\":\"Catalog\""))->toEqual(true)
+  )
+
+  testSync("encodes remoteEntryUrl", () =>
+    expect(
+      json->String.includes("\"remoteEntryUrl\":\"https://cdn.example.com/catalog@1.0/remoteEntry.js\""),
+    )->toEqual(true)
+  )
+
+  testSync("encodes None requiredAccess on panel as null", () =>
+    expect(json->String.includes("\"requiredAccess\":null"))->toEqual(true)
+  )
+
+  testSync("encodes Some requiredAccess on page as its inner string", () =>
+    expect(json->String.includes("\"requiredAccess\":\"admin\""))->toEqual(true)
+  )
+
+  testSync("encodes nested menuEntry as an object with sortOrder", () =>
+    expect(json->String.includes("\"sortOrder\":0"))->toEqual(true)
+  )
+
+  testSync("encodes panel positions as an array of strings", () =>
+    expect(json->String.includes("\"positions\":[\"platform-summary\"]"))->toEqual(true)
+  )
+})
+
+describe("Platform_UIFragmentsApi.sdl", () => {
+  testSync("query field declares the list type", () =>
+    expect(Platform_UIFragmentsApi.sdlQueryField->String.includes("[Platform_UIFragmentEntry!]!"))
+    ->toEqual(true)
+  )
+
+  testSync("sdlTypes includes Platform_UIFragmentEntry", () => {
+    let allTypes = Platform_UIFragmentsApi.sdlTypes->Array.join("\n")
+    expect(allTypes->String.includes("Platform_UIFragmentEntry"))->toEqual(true)
+  })
+
+  testSync("sdlTypes includes Platform_UIPanel with positions field", () => {
+    let allTypes = Platform_UIFragmentsApi.sdlTypes->Array.join("\n")
+    expect(allTypes->String.includes("positions: [String!]!"))->toEqual(true)
+  })
+})

package/tests/admin/Platform_UIFragmentsApiTest.res.mjs

@@ -0,0 +1,101 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+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 Primitive_string from "@rescript/runtime/lib/es6/Primitive_string.js";
+import * as Platform_UIFragmentsApi$ReventlessCore from "../../src/admin/Platform_UIFragmentsApi.res.mjs";
+
+let panel_positions = ["platform-summary"];
+
+let panel = {
+  fragmentId: "Catalog.Categories.list",
+  title: "Categories",
+  description: "",
+  positions: panel_positions,
+  requiredAccess: undefined
+};
+
+let page = {
+  fragmentId: "Catalog.Categories.list",
+  title: "Categories",
+  menuEntry: {
+    label: "Categories",
+    icon: undefined,
+    group: undefined,
+    sortOrder: 0
+  },
+  requiredAccess: "admin"
+};
+
+let state_panels = [panel];
+
+let state_pages = [page];
+
+let state = {
+  pluginId: "Catalog",
+  remoteEntryUrl: "https://cdn.example.com/catalog@1.0/remoteEntry.js",
+  panels: state_panels,
+  pages: state_pages,
+  registeredAt: "2026-05-14T00:00:00.000Z",
+  updatedAt: "2026-05-14T00:00:00.000Z"
+};
+
+let encoded = Platform_UIFragmentsApi$ReventlessCore.encodeUIFragmentEntry(state);
+
+let json = JSON.stringify(encoded);
+
+globalThis.describe("encodeUIFragmentEntry", () => {
+  globalThis.test("produces a JSON object with the expected top-level keys", () => {
+    let dict = Stdlib_Option.getOr(Stdlib_JSON.Decode.object(encoded), {});
+    let keys = Object.keys(dict).toSorted(Primitive_string.compare);
+    globalThis.expect(keys).toEqual([
+      "pages",
+      "panels",
+      "pluginId",
+      "registeredAt",
+      "remoteEntryUrl",
+      "updatedAt"
+    ]);
+  });
+  globalThis.test("encodes pluginId", () => {
+    globalThis.expect(json.includes("\"pluginId\":\"Catalog\"")).toEqual(true);
+  });
+  globalThis.test("encodes remoteEntryUrl", () => {
+    globalThis.expect(json.includes("\"remoteEntryUrl\":\"https://cdn.example.com/catalog@1.0/remoteEntry.js\"")).toEqual(true);
+  });
+  globalThis.test("encodes None requiredAccess on panel as null", () => {
+    globalThis.expect(json.includes("\"requiredAccess\":null")).toEqual(true);
+  });
+  globalThis.test("encodes Some requiredAccess on page as its inner string", () => {
+    globalThis.expect(json.includes("\"requiredAccess\":\"admin\"")).toEqual(true);
+  });
+  globalThis.test("encodes nested menuEntry as an object with sortOrder", () => {
+    globalThis.expect(json.includes("\"sortOrder\":0")).toEqual(true);
+  });
+  globalThis.test("encodes panel positions as an array of strings", () => {
+    globalThis.expect(json.includes("\"positions\":[\"platform-summary\"]")).toEqual(true);
+  });
+});
+
+globalThis.describe("Platform_UIFragmentsApi.sdl", () => {
+  globalThis.test("query field declares the list type", () => {
+    globalThis.expect(Platform_UIFragmentsApi$ReventlessCore.sdlQueryField.includes("[Platform_UIFragmentEntry!]!")).toEqual(true);
+  });
+  globalThis.test("sdlTypes includes Platform_UIFragmentEntry", () => {
+    let allTypes = Platform_UIFragmentsApi$ReventlessCore.sdlTypes.join("\n");
+    globalThis.expect(allTypes.includes("Platform_UIFragmentEntry")).toEqual(true);
+  });
+  globalThis.test("sdlTypes includes Platform_UIPanel with positions field", () => {
+    let allTypes = Platform_UIFragmentsApi$ReventlessCore.sdlTypes.join("\n");
+    globalThis.expect(allTypes.includes("positions: [String!]!")).toEqual(true);
+  });
+});
+
+export {
+  panel,
+  page,
+  state,
+  encoded,
+  json,
+}
+/* encoded Not a pure module */

package/tests/aggregate/AggregateCallbackTest.res

@@ -0,0 +1,81 @@
+open JestGlobals
+open AggregateFixtures
+
+let _ = beforeEach(() => mock.reset())
+
+describe("Aggregate_Callback.handleCommands:", () => {
+  describe("single command — new aggregate", () => {
+    testPromise("Create returns Ok(reference) and stores 1 event", async () => {
+      let results = await Stream.fromIterable([
+        makeTopicItem("ref-1", AggSpec.Create({name: "Widget"})),
+      ])->TestHandler.handleCommands->Effect.runPromise
+      expect((results, mock.getAll()->Array.length))->toEqual(([Ok("ref-1")], 1))
+    })
+  })
+
+  describe("command on existing aggregate", () => {
+    testPromise("Rename after Create replays history and appends new event", async () => {
+      let _ =
+        await Stream.fromIterable([
+          makeTopicItem("ref-1", AggSpec.Create({name: "Widget"})),
+        ])->TestHandler.handleCommands->Effect.runPromise
+      let results =
+        await Stream.fromIterable([
+          makeTopicItem("ref-2", AggSpec.Rename({newName: "Gadget"})),
+        ])->TestHandler.handleCommands->Effect.runPromise
+      expect((results, mock.getAll()->Array.length))->toEqual(([Ok("ref-2")], 2))
+    })
+  })
+
+  describe("behavior returns no events", () => {
+    testPromise("Rename on new aggregate returns Ok with no event stored", async () => {
+      // Rename on empty history: Behavior.decide(NotCreated, Rename) returns Error(NotFound)
+      let results =
+        await Stream.fromIterable([
+          makeTopicItem("ref-1", AggSpec.Rename({newName: "Gadget"})),
+        ])->TestHandler.handleCommands->Effect.runPromise
+      expect((results, mock.getAll()->Array.length))->toEqual(([Ok("ref-1")], 0))
+    })
+  })
+
+  describe("append failure", () => {
+    testPromise("eventLog.append fails → reference returned Error", async () => {
+      mock.failNextAppend := true
+      let results =
+        await Stream.fromIterable([
+          makeTopicItem("ref-1", AggSpec.Create({name: "Widget"})),
+        ])->TestHandler.handleCommands->Effect.runPromise
+      expect(results)->toEqual([Error("ref-1")])
+    })
+  })
+
+  describe("multiple commands for same aggregate ID", () => {
+    testPromise("Create then Rename in one batch accumulate state correctly", async () => {
+      let results =
+        await Stream.fromIterable([
+          makeTopicItem(~aggId="agg-1", "ref-1", AggSpec.Create({name: "Widget"})),
+          makeTopicItem(~aggId="agg-1", "ref-2", AggSpec.Rename({newName: "Gadget"})),
+        ])->TestHandler.handleCommands->Effect.runPromise
+      // Both commands for same ID processed sequentially
+      expect((results, mock.getAll()->Array.length))->toEqual(([Ok("ref-1"), Ok("ref-2")], 2))
+    })
+  })
+
+  describe("commands for different aggregate IDs", () => {
+    testPromise("each ID processed independently", async () => {
+      let results =
+        await Stream.fromIterable([
+          makeTopicItem(~aggId="agg-a", "ref-a", AggSpec.Create({name: "Alpha"})),
+          makeTopicItem(~aggId="agg-b", "ref-b", AggSpec.Create({name: "Beta"})),
+        ])->TestHandler.handleCommands->Effect.runPromise
+      expect((results->Array.length, mock.getAll()->Array.length))->toEqual((2, 2))
+    })
+  })
+
+  describe("empty batch", () => {
+    testPromise("returns empty array", async () => {
+      let results = await Stream.fromIterable([])->TestHandler.handleCommands->Effect.runPromise
+      expect(results)->toEqual([])
+    })
+  })
+})