@reventlessdev/reventless-core 3.0.0-alpha.211 → 3.0.0-alpha.213

package/tests/admin/Platform_PluginStructuresApiTest.res.mjs

@@ -0,0 +1,197 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Stdlib_JSON from "@rescript/runtime/lib/es6/Stdlib_JSON.js";
+import * as Stdlib_Array from "@rescript/runtime/lib/es6/Stdlib_Array.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_PluginStructuresApi$ReventlessCore from "../../src/admin/Platform_PluginStructuresApi.res.mjs";
+
+let publicRm_consumedEventTypes = ["ProductAdded"];
+
+let publicRm_linkedWriteSide = ["Product"];
+
+let publicRm_searchableFields = ["displayName"];
+
+let publicRm_labelFieldSource = "annotation";
+
+let publicRm_chapter = "Inventory";
+
+let publicRm = {
+  name: "Products",
+  queryField: "Catalog_Products",
+  schema: "{}",
+  consumedEventTypes: publicRm_consumedEventTypes,
+  linkedWriteSide: publicRm_linkedWriteSide,
+  labelField: "displayName",
+  searchableFields: publicRm_searchableFields,
+  labelFieldSource: publicRm_labelFieldSource,
+  statusField: undefined,
+  visibility: undefined,
+  chapter: publicRm_chapter
+};
+
+let internalRm_consumedEventTypes = publicRm_consumedEventTypes;
+
+let internalRm_linkedWriteSide = publicRm_linkedWriteSide;
+
+let internalRm_searchableFields = publicRm_searchableFields;
+
+let internalRm_labelFieldSource = "annotation";
+
+let internalRm_visibility = "Internal";
+
+let internalRm_chapter = "Inventory";
+
+let internalRm = {
+  name: "ProductAudit",
+  queryField: "Catalog_ProductAudit",
+  schema: "{}",
+  consumedEventTypes: internalRm_consumedEventTypes,
+  linkedWriteSide: internalRm_linkedWriteSide,
+  labelField: "displayName",
+  searchableFields: internalRm_searchableFields,
+  labelFieldSource: internalRm_labelFieldSource,
+  statusField: undefined,
+  visibility: internalRm_visibility,
+  chapter: internalRm_chapter
+};
+
+let structure_readModels = [
+  publicRm,
+  internalRm
+];
+
+let structure_stateViewSlices = [internalRm];
+
+let structure_stateChangeSlices = [];
+
+let structure_aggregates = [];
+
+let structure_automationSlices = [];
+
+let structure_outboundTranslationSlices = [];
+
+let structure_inboundTranslationSlices = [];
+
+let structure_extensions = [];
+
+let structure_extensionPoints = [{
+    name: "Catalog.Products",
+    delegateNames: ["onAdded"],
+    sourceEventTypes: ["Catalog.ProductAdded"],
+    commandTypes: undefined
+  }];
+
+let structure_requiredStores = ["Catalog.images"];
+
+let structure_requiredStoreDeclarations = [{
+    store: "Catalog.images",
+    component: "Product",
+    field: "image",
+    annotation: "images"
+  }];
+
+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: structure_extensionPoints,
+  requiredStores: structure_requiredStores,
+  requiredStoreDeclarations: structure_requiredStoreDeclarations
+};
+
+let encoded = Platform_PluginStructuresApi$ReventlessCore.encodePluginStructureEntry("Catalog", structure);
+
+let json = JSON.stringify(encoded);
+
+function namesOf(key) {
+  return Stdlib_Array.filterMap(Stdlib_Option.getOr(Stdlib_Option.flatMap(Stdlib_Option.flatMap(Stdlib_JSON.Decode.object(encoded), d => d[key]), Stdlib_JSON.Decode.array), []), v => Stdlib_Option.flatMap(Stdlib_Option.flatMap(Stdlib_JSON.Decode.object(v), o => o["name"]), Stdlib_JSON.Decode.string));
+}
+
+globalThis.describe("Platform_PluginStructures entry", () => {
+  globalThis.test("carries the structure-level keys the AutoUI entry omits", () => {
+    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",
+      "extensionPoints",
+      "extensions",
+      "inboundTranslationSlices",
+      "outboundTranslationSlices",
+      "pluginId",
+      "readModels",
+      "requiredStoreDeclarations",
+      "requiredStores",
+      "stateChangeSlices",
+      "stateViewSlices"
+    ]);
+  });
+  globalThis.test("keeps Internal read models", () => {
+    globalThis.expect(namesOf("readModels")).toEqual([
+      "Products",
+      "ProductAudit"
+    ]);
+  });
+  globalThis.test("keeps Internal state-view slices", () => {
+    globalThis.expect(namesOf("stateViewSlices")).toEqual(["ProductAudit"]);
+  });
+  globalThis.test("carries visibility so a consumer can tell which are Internal", () => {
+    globalThis.expect(json.includes("\"visibility\":\"Internal\"")).toEqual(true);
+  });
+  globalThis.test("encodes the chapter band", () => {
+    globalThis.expect(json.includes("\"chapter\":\"Inventory\"")).toEqual(true);
+  });
+  globalThis.test("encodes extension points with their source event types", () => {
+    globalThis.expect(json.includes("\"extensionPoints\":[{\"name\":\"Catalog.Products\",\"delegateNames\":[\"onAdded\"],\"sourceEventTypes\":[\"Catalog.ProductAdded\"],\"commandTypes\":null}]")).toEqual(true);
+  });
+  globalThis.test("encodes required stores with their provenance", () => {
+    globalThis.expect(json.includes("\"requiredStores\":[\"Catalog.images\"]")).toEqual(true);
+  });
+});
+
+globalThis.describe("absent optional collections", () => {
+  let bare_readModels = structure_readModels;
+  let bare_stateViewSlices = structure_stateViewSlices;
+  let bare_stateChangeSlices = structure_stateChangeSlices;
+  let bare_aggregates = structure_aggregates;
+  let bare_automationSlices = structure_automationSlices;
+  let bare_outboundTranslationSlices = structure_outboundTranslationSlices;
+  let bare_inboundTranslationSlices = structure_inboundTranslationSlices;
+  let bare_extensions = structure_extensions;
+  let bare = {
+    readModels: bare_readModels,
+    stateViewSlices: bare_stateViewSlices,
+    stateChangeSlices: bare_stateChangeSlices,
+    aggregates: bare_aggregates,
+    automationSlices: bare_automationSlices,
+    outboundTranslationSlices: bare_outboundTranslationSlices,
+    inboundTranslationSlices: bare_inboundTranslationSlices,
+    extensions: bare_extensions,
+    extensionPoints: undefined,
+    requiredStores: undefined,
+    requiredStoreDeclarations: undefined
+  };
+  let bareJson = JSON.stringify(Platform_PluginStructuresApi$ReventlessCore.encodePluginStructureEntry("Catalog", bare));
+  globalThis.test("encodes absent extensionPoints as null", () => {
+    globalThis.expect(bareJson.includes("\"extensionPoints\":null")).toEqual(true);
+  });
+  globalThis.test("encodes absent requiredStores as null", () => {
+    globalThis.expect(bareJson.includes("\"requiredStores\":null")).toEqual(true);
+  });
+});
+
+export {
+  publicRm,
+  internalRm,
+  structure,
+  encoded,
+  json,
+  namesOf,
+}
+/* encoded Not a pure module */

package/tests/api/GraphQL_FragmentGeneratorTest.res

@@ -47,3 +47,43 @@ describe("GraphQL_FragmentGenerator.generate mutation id injection", () => {
     expect(field->String.includes("id: ID!, orderId"))->toBe(true)
   })
 })
+
+// A slice TODO row stores its work item as `JSON.t`, which the IR can only call
+// `Unknown` — and `Unknown` renders as `String!`. Serving a stored object
+// through a String field fails at execution ("String cannot represent value:
+// { … }") as soon as a client selects it, so `Dcb_Builder` describes the row
+// with `todoRowSchemaFor` and the item's own schema instead.
+module GeocodeItem = {
+  @schema
+  type outboundItem = {customerId: string, address: string}
+}
+
+let typeDefFor = (fragment, needle) =>
+  GraphQL_Stitcher.decode(fragment).types->Array.find(t => t->String.includes(needle))
+
+describe("GraphQL_FragmentGenerator slice TODO rows", () => {
+  testSync("item carries the slice's item type, not String", () => {
+    let fragment = GraphQL_FragmentGenerator.generate(
+      ~mutationEntries=[],
+      ~queryEntries=[
+        {
+          ReventlessInfra.Api.singleFieldName: "Ordering_GeocodeCustomerAddressTodo",
+          listFieldName: "Ordering_GeocodeCustomerAddressTodos",
+          returnTypeName: "Ordering_GeocodeCustomerAddressTodo",
+          stateSchema: OutboundTranslationSlice_Callback.todoRowSchemaFor(
+            GeocodeItem.outboundItemSchema,
+          )->S.castToUnknown,
+          authorization: None,
+          connectionSpec: true,
+        },
+      ],
+    )
+    let row = typeDefFor(fragment, "type Ordering_GeocodeCustomerAddressTodo ")->Option.getOr("")
+    expect(row->String.includes("item: Ordering_GeocodeCustomerAddressTodoItem!"))->toBe(true)
+
+    let item =
+      typeDefFor(fragment, "type Ordering_GeocodeCustomerAddressTodoItem ")->Option.getOr("")
+    expect(item->String.includes("customerId: ID!"))->toBe(true)
+    expect(item->String.includes("address: String!"))->toBe(true)
+  })
+})

package/tests/api/GraphQL_FragmentGeneratorTest.res.mjs

@@ -4,6 +4,7 @@ import * as S from "sury/src/S.res.mjs";
 import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
 import * as GraphQL_Stitcher$ReventlessCore from "../../src/components/Api/GraphQL_Stitcher.res.mjs";
 import * as GraphQL_FragmentGenerator$ReventlessCore from "../../src/components/Api/GraphQL_FragmentGenerator.res.mjs";
+import * as OutboundTranslationSlice_Callback$ReventlessCore from "../../src/components/OutboundTranslationSlice/OutboundTranslationSlice_Callback.res.mjs";
 
 let commandSchema = S.union([
   S.schema(s => ({
@@ -50,8 +51,42 @@ globalThis.describe("GraphQL_FragmentGenerator.generate mutation id injection",
   });
 });
 
+let outboundItemSchema = S.schema(s => ({
+  customerId: s.m(S.string),
+  address: s.m(S.string)
+}));
+
+let GeocodeItem = {
+  outboundItemSchema: outboundItemSchema,
+  externalSystem: undefined
+};
+
+function typeDefFor(fragment, needle) {
+  return GraphQL_Stitcher$ReventlessCore.decode(fragment).types.find(t => t.includes(needle));
+}
+
+globalThis.describe("GraphQL_FragmentGenerator slice TODO rows", () => {
+  globalThis.test("item carries the slice's item type, not String", () => {
+    let fragment = GraphQL_FragmentGenerator$ReventlessCore.generate([], [{
+        singleFieldName: "Ordering_GeocodeCustomerAddressTodo",
+        listFieldName: "Ordering_GeocodeCustomerAddressTodos",
+        returnTypeName: "Ordering_GeocodeCustomerAddressTodo",
+        stateSchema: OutboundTranslationSlice_Callback$ReventlessCore.todoRowSchemaFor(outboundItemSchema),
+        authorization: undefined,
+        connectionSpec: true
+      }]);
+    let row = Stdlib_Option.getOr(typeDefFor(fragment, "type Ordering_GeocodeCustomerAddressTodo "), "");
+    globalThis.expect(row.includes("item: Ordering_GeocodeCustomerAddressTodoItem!")).toBe(true);
+    let item = Stdlib_Option.getOr(typeDefFor(fragment, "type Ordering_GeocodeCustomerAddressTodoItem "), "");
+    globalThis.expect(item.includes("customerId: ID!")).toBe(true);
+    globalThis.expect(item.includes("address: String!")).toBe(true);
+  });
+});
+
 export {
   OrderSliceCmd,
   mutationFor,
+  GeocodeItem,
+  typeDefFor,
 }
 /* commandSchema Not a pure module */

package/tests/logger/LogFormatTest.res

@@ -127,6 +127,48 @@ describe("LogFormat", () => {
       },
     )
   })
+
+  // A ReScript record's absent optional field survives encoding as an own
+  // property whose value is `undefined` — the one thing `JSON.t` cannot hold and
+  // `JSON.stringify` answers with `undefined` instead of a string. Rendering a
+  // command carrying one must not reach a string function with that `undefined`:
+  // `variantFields` runs inside the CommandGenerator's log tap, so a throw there
+  // takes the command down with it and the slice never sees it.
+  describe("variantFields", () => {
+    module OptionalFieldCmd = {
+      @schema
+      type command = AddProduct({productId: string, name: string, imageUrl?: string})
+    }
+
+    testSync("omits an absent optional field", () => {
+      let json =
+        OptionalFieldCmd.AddProduct({productId: "prd-1", name: "Cirrus"})
+        ->Message.encode(OptionalFieldCmd.commandSchema)
+      expect(variantFields(json))->toEqual(`, {productId:"prd-1",name:"Cirrus"}`)
+    })
+
+    testSync("keeps a present optional field", () => {
+      let json =
+        OptionalFieldCmd.AddProduct({productId: "prd-1", name: "Cirrus", imageUrl: "/u/a.png"})
+        ->Message.encode(OptionalFieldCmd.commandSchema)
+      expect(variantFields(json))->toEqual(
+        `, {productId:"prd-1",name:"Cirrus",imageUrl:"/u/a.png"}`,
+      )
+    })
+
+    testSync("elides a value past the budget rather than dropping it", () => {
+      let long = String.repeat("x", maxValueChars + 20)
+      let json =
+        OptionalFieldCmd.AddProduct({productId: "prd-1", name: long})
+        ->Message.encode(OptionalFieldCmd.commandSchema)
+      let rendered = variantFields(json)
+      expect(rendered->String.includes("…(+22 chars)"))->toBe(true)
+      // The oversized value is capped, not the line: the neighbouring field that
+      // says which product this is stays intact.
+      expect(rendered->String.includes(long))->toBe(false)
+      expect(rendered->String.includes(`productId:"prd-1"`))->toBe(true)
+    })
+  })
 })
 
 // ─── JSON sink (non-TTY collector: CloudWatch / Datadog / …) ─────────────────

package/tests/logger/LogFormatTest.res.mjs

@@ -124,6 +124,43 @@ globalThis.describe("LogFormat", () => {
       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"}`);
     });
   });
+  globalThis.describe("variantFields", () => {
+    let commandSchema = S.schema(s => ({
+      TAG: "AddProduct",
+      productId: s.m(S.string),
+      name: s.m(S.string),
+      imageUrl: s.m(S.option(S.string))
+    }));
+    globalThis.test("omits an absent optional field", () => {
+      let json = Message$ReventlessCore.encode({
+        TAG: "AddProduct",
+        productId: "prd-1",
+        name: "Cirrus"
+      }, commandSchema);
+      globalThis.expect(LogFormat$ReventlessCore.variantFields(json)).toEqual(`, {productId:"prd-1",name:"Cirrus"}`);
+    });
+    globalThis.test("keeps a present optional field", () => {
+      let json = Message$ReventlessCore.encode({
+        TAG: "AddProduct",
+        productId: "prd-1",
+        name: "Cirrus",
+        imageUrl: "/u/a.png"
+      }, commandSchema);
+      globalThis.expect(LogFormat$ReventlessCore.variantFields(json)).toEqual(`, {productId:"prd-1",name:"Cirrus",imageUrl:"/u/a.png"}`);
+    });
+    globalThis.test("elides a value past the budget rather than dropping it", () => {
+      let long = "x".repeat(LogFormat$ReventlessCore.maxValueChars + 20 | 0);
+      let json = Message$ReventlessCore.encode({
+        TAG: "AddProduct",
+        productId: "prd-1",
+        name: long
+      }, commandSchema);
+      let rendered = LogFormat$ReventlessCore.variantFields(json);
+      globalThis.expect(rendered.includes("…(+22 chars)")).toBe(true);
+      globalThis.expect(rendered.includes(long)).toBe(false);
+      globalThis.expect(rendered.includes(`productId:"prd-1"`)).toBe(true);
+    });
+  });
 });
 
 function hasAnsi(s) {