@reventlessdev/reventless-core 3.0.0-alpha.134

package/tests/api/SuryToJsonSchemaTest.res.mjs

@@ -0,0 +1,623 @@
+// 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_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 StateAnnotations$Reventless from "@reventlessdev/reventless-spec/src/components/StateAnnotations.res.mjs";
+import * as SuryToJsonSchema$ReventlessCore from "../../src/components/Api/SuryToJsonSchema.res.mjs";
+
+function getProperty(schema, key) {
+  let obj = Stdlib_JSON.Decode.object(schema);
+  if (obj !== undefined) {
+    return obj[key];
+  }
+}
+
+function getPropertyOf(schema, fieldName) {
+  let props = getProperty(schema, "properties");
+  if (props === undefined) {
+    return;
+  }
+  let obj = Stdlib_JSON.Decode.object(props);
+  if (obj !== undefined) {
+    return obj[fieldName];
+  }
+}
+
+let emptySpec_ids = [];
+
+let emptySpec_compositeIds = [];
+
+let emptySpec_subIds = [];
+
+let emptySpec_compositeSubIds = [];
+
+let emptySpec_indexes = [];
+
+let emptySpec_hidden = [];
+
+let emptySpec_summary = [];
+
+let emptySpec_drillTargets = [];
+
+let emptySpec_drillTargetKeys = [];
+
+let emptySpec_collapsed = [];
+
+let emptySpec_scan = [];
+
+let emptySpec_scanSort = [];
+
+let emptySpec = {
+  ids: emptySpec_ids,
+  compositeIds: emptySpec_compositeIds,
+  subIds: emptySpec_subIds,
+  compositeSubIds: emptySpec_compositeSubIds,
+  indexes: emptySpec_indexes,
+  hidden: emptySpec_hidden,
+  summary: emptySpec_summary,
+  drillTargets: emptySpec_drillTargets,
+  drillTargetKeys: emptySpec_drillTargetKeys,
+  collapsed: emptySpec_collapsed,
+  scan: emptySpec_scan,
+  scanSort: emptySpec_scanSort,
+  status: undefined,
+  visibility: undefined
+};
+
+globalThis.describe("SuryToJsonSchema:", () => {
+  globalThis.describe("deriveObjectSchema with no annotations:", () => {
+    globalThis.test("emits plain JSON Schema when no metadata is attached", () => {
+      let schema = S.schema(s => ({
+        id: s.m(S.string),
+        name: s.m(S.string)
+      }));
+      let json = SuryToJsonSchema$ReventlessCore.deriveObjectSchema(schema);
+      let idSchema = getPropertyOf(json, "id");
+      globalThis.expect(Stdlib_Option.flatMap(idSchema, s => getProperty(s, "x-reventless-id"))).toBe(undefined);
+    });
+  });
+  globalThis.describe("deriveObjectSchema with stateAnnotations metadata:", () => {
+    let withSpec = (schema, spec) => S.Metadata.set(schema, StateAnnotations$Reventless.stateAnnotationsId, spec);
+    globalThis.test("emits x-reventless-id on field listed in ids", () => {
+      let schema = S.schema(s => ({
+        entityId: s.m(S.string),
+        name: s.m(S.string)
+      }));
+      let schema$p = withSpec(schema, {
+        ids: ["entityId"],
+        compositeIds: emptySpec_compositeIds,
+        subIds: emptySpec_subIds,
+        compositeSubIds: emptySpec_compositeSubIds,
+        indexes: emptySpec_indexes,
+        hidden: emptySpec_hidden,
+        summary: emptySpec_summary,
+        drillTargets: emptySpec_drillTargets,
+        drillTargetKeys: emptySpec_drillTargetKeys,
+        collapsed: emptySpec_collapsed,
+        scan: emptySpec_scan,
+        scanSort: emptySpec_scanSort,
+        status: undefined,
+        visibility: undefined
+      });
+      let json = SuryToJsonSchema$ReventlessCore.deriveObjectSchema(schema$p);
+      let entityIdSchema = getPropertyOf(json, "entityId");
+      globalThis.expect(Stdlib_Option.flatMap(Stdlib_Option.flatMap(entityIdSchema, s => getProperty(s, "x-reventless-id")), Stdlib_JSON.Decode.bool)).toBe(true);
+    });
+    globalThis.test("emits x-reventless-compositeId on each compositeId field", () => {
+      let schema = S.schema(s => ({
+        environment: s.m(S.string),
+        platformName: s.m(S.string),
+        name: s.m(S.string)
+      }));
+      let schema$p = withSpec(schema, {
+        ids: emptySpec_ids,
+        compositeIds: [
+          "environment",
+          "platformName"
+        ],
+        subIds: emptySpec_subIds,
+        compositeSubIds: emptySpec_compositeSubIds,
+        indexes: emptySpec_indexes,
+        hidden: emptySpec_hidden,
+        summary: emptySpec_summary,
+        drillTargets: emptySpec_drillTargets,
+        drillTargetKeys: emptySpec_drillTargetKeys,
+        collapsed: emptySpec_collapsed,
+        scan: emptySpec_scan,
+        scanSort: emptySpec_scanSort,
+        status: undefined,
+        visibility: undefined
+      });
+      let json = SuryToJsonSchema$ReventlessCore.deriveObjectSchema(schema$p);
+      let envSchema = getPropertyOf(json, "environment");
+      let platformSchema = getPropertyOf(json, "platformName");
+      globalThis.expect([
+        Stdlib_Option.flatMap(Stdlib_Option.flatMap(envSchema, s => getProperty(s, "x-reventless-compositeId")), Stdlib_JSON.Decode.bool),
+        Stdlib_Option.flatMap(Stdlib_Option.flatMap(platformSchema, s => getProperty(s, "x-reventless-compositeId")), Stdlib_JSON.Decode.bool)
+      ]).toEqual([
+        true,
+        true
+      ]);
+    });
+    globalThis.test("emits x-reventless-subId on field listed in subIds", () => {
+      let schema = S.schema(s => ({
+        itemId: s.m(S.string),
+        version: s.m(S.string)
+      }));
+      let schema$p = withSpec(schema, {
+        ids: emptySpec_ids,
+        compositeIds: emptySpec_compositeIds,
+        subIds: ["version"],
+        compositeSubIds: emptySpec_compositeSubIds,
+        indexes: emptySpec_indexes,
+        hidden: emptySpec_hidden,
+        summary: emptySpec_summary,
+        drillTargets: emptySpec_drillTargets,
+        drillTargetKeys: emptySpec_drillTargetKeys,
+        collapsed: emptySpec_collapsed,
+        scan: emptySpec_scan,
+        scanSort: emptySpec_scanSort,
+        status: undefined,
+        visibility: undefined
+      });
+      let json = SuryToJsonSchema$ReventlessCore.deriveObjectSchema(schema$p);
+      let versionSchema = getPropertyOf(json, "version");
+      globalThis.expect(Stdlib_Option.flatMap(Stdlib_Option.flatMap(versionSchema, s => getProperty(s, "x-reventless-subId")), Stdlib_JSON.Decode.bool)).toBe(true);
+    });
+    globalThis.test("emits x-reventless-index as the index name when named", () => {
+      let schema = S.schema(s => ({
+        id: s.m(S.string),
+        ownerId: s.m(S.string)
+      }));
+      let schema$p = withSpec(schema, {
+        ids: emptySpec_ids,
+        compositeIds: emptySpec_compositeIds,
+        subIds: emptySpec_subIds,
+        compositeSubIds: emptySpec_compositeSubIds,
+        indexes: [[
+            "ownerId",
+            "byOwner"
+          ]],
+        hidden: emptySpec_hidden,
+        summary: emptySpec_summary,
+        drillTargets: emptySpec_drillTargets,
+        drillTargetKeys: emptySpec_drillTargetKeys,
+        collapsed: emptySpec_collapsed,
+        scan: emptySpec_scan,
+        scanSort: emptySpec_scanSort,
+        status: undefined,
+        visibility: undefined
+      });
+      let json = SuryToJsonSchema$ReventlessCore.deriveObjectSchema(schema$p);
+      let ownerIdSchema = getPropertyOf(json, "ownerId");
+      globalThis.expect(Stdlib_Option.flatMap(Stdlib_Option.flatMap(ownerIdSchema, s => getProperty(s, "x-reventless-index")), Stdlib_JSON.Decode.string)).toBe("byOwner");
+    });
+    globalThis.test("emits x-reventless-index as true for unnamed @index", () => {
+      let schema = S.schema(s => ({
+        id: s.m(S.string),
+        category: s.m(S.string)
+      }));
+      let schema$p = withSpec(schema, {
+        ids: emptySpec_ids,
+        compositeIds: emptySpec_compositeIds,
+        subIds: emptySpec_subIds,
+        compositeSubIds: emptySpec_compositeSubIds,
+        indexes: [[
+            "category",
+            ""
+          ]],
+        hidden: emptySpec_hidden,
+        summary: emptySpec_summary,
+        drillTargets: emptySpec_drillTargets,
+        drillTargetKeys: emptySpec_drillTargetKeys,
+        collapsed: emptySpec_collapsed,
+        scan: emptySpec_scan,
+        scanSort: emptySpec_scanSort,
+        status: undefined,
+        visibility: undefined
+      });
+      let json = SuryToJsonSchema$ReventlessCore.deriveObjectSchema(schema$p);
+      let categorySchema = getPropertyOf(json, "category");
+      globalThis.expect(Stdlib_Option.flatMap(Stdlib_Option.flatMap(categorySchema, s => getProperty(s, "x-reventless-index")), Stdlib_JSON.Decode.bool)).toBe(true);
+    });
+    globalThis.test("does not emit x-reventless-* on unannotated fields", () => {
+      let schema = S.schema(s => ({
+        entityId: s.m(S.string),
+        name: s.m(S.string)
+      }));
+      let schema$p = withSpec(schema, {
+        ids: ["entityId"],
+        compositeIds: emptySpec_compositeIds,
+        subIds: emptySpec_subIds,
+        compositeSubIds: emptySpec_compositeSubIds,
+        indexes: emptySpec_indexes,
+        hidden: emptySpec_hidden,
+        summary: emptySpec_summary,
+        drillTargets: emptySpec_drillTargets,
+        drillTargetKeys: emptySpec_drillTargetKeys,
+        collapsed: emptySpec_collapsed,
+        scan: emptySpec_scan,
+        scanSort: emptySpec_scanSort,
+        status: undefined,
+        visibility: undefined
+      });
+      let json = SuryToJsonSchema$ReventlessCore.deriveObjectSchema(schema$p);
+      let nameSchema = getPropertyOf(json, "name");
+      globalThis.expect(Stdlib_Option.flatMap(nameSchema, s => getProperty(s, "x-reventless-id"))).toBe(undefined);
+    });
+    globalThis.test("emits x-reventless-hidden on field listed in hidden", () => {
+      let schema = S.schema(s => ({
+        id: s.m(S.string),
+        deploymentId: s.m(S.string)
+      }));
+      let schema$p = withSpec(schema, {
+        ids: emptySpec_ids,
+        compositeIds: emptySpec_compositeIds,
+        subIds: emptySpec_subIds,
+        compositeSubIds: emptySpec_compositeSubIds,
+        indexes: emptySpec_indexes,
+        hidden: ["deploymentId"],
+        summary: emptySpec_summary,
+        drillTargets: emptySpec_drillTargets,
+        drillTargetKeys: emptySpec_drillTargetKeys,
+        collapsed: emptySpec_collapsed,
+        scan: emptySpec_scan,
+        scanSort: emptySpec_scanSort,
+        status: undefined,
+        visibility: undefined
+      });
+      let json = SuryToJsonSchema$ReventlessCore.deriveObjectSchema(schema$p);
+      let deploymentIdSchema = getPropertyOf(json, "deploymentId");
+      let idSchema = getPropertyOf(json, "id");
+      globalThis.expect([
+        Stdlib_Option.flatMap(Stdlib_Option.flatMap(deploymentIdSchema, s => getProperty(s, "x-reventless-hidden")), Stdlib_JSON.Decode.bool),
+        Stdlib_Option.flatMap(idSchema, s => getProperty(s, "x-reventless-hidden"))
+      ]).toEqual([
+        true,
+        undefined
+      ]);
+    });
+    globalThis.test("emits x-reventless-summary on field listed in summary", () => {
+      let schema = S.schema(s => ({
+        id: s.m(S.string),
+        pluginName: s.m(S.string)
+      }));
+      let schema$p = withSpec(schema, {
+        ids: emptySpec_ids,
+        compositeIds: emptySpec_compositeIds,
+        subIds: emptySpec_subIds,
+        compositeSubIds: emptySpec_compositeSubIds,
+        indexes: emptySpec_indexes,
+        hidden: emptySpec_hidden,
+        summary: ["pluginName"],
+        drillTargets: emptySpec_drillTargets,
+        drillTargetKeys: emptySpec_drillTargetKeys,
+        collapsed: emptySpec_collapsed,
+        scan: emptySpec_scan,
+        scanSort: emptySpec_scanSort,
+        status: undefined,
+        visibility: undefined
+      });
+      let json = SuryToJsonSchema$ReventlessCore.deriveObjectSchema(schema$p);
+      let pluginNameSchema = getPropertyOf(json, "pluginName");
+      let idSchema = getPropertyOf(json, "id");
+      globalThis.expect([
+        Stdlib_Option.flatMap(Stdlib_Option.flatMap(pluginNameSchema, s => getProperty(s, "x-reventless-summary")), Stdlib_JSON.Decode.bool),
+        Stdlib_Option.flatMap(idSchema, s => getProperty(s, "x-reventless-summary"))
+      ]).toEqual([
+        true,
+        undefined
+      ]);
+    });
+    globalThis.test("emits x-reventless-drillTarget as the slice name", () => {
+      let schema = S.schema(s => ({
+        id: s.m(S.string),
+        components: s.m(S.string)
+      }));
+      let schema$p = withSpec(schema, {
+        ids: emptySpec_ids,
+        compositeIds: emptySpec_compositeIds,
+        subIds: emptySpec_subIds,
+        compositeSubIds: emptySpec_compositeSubIds,
+        indexes: emptySpec_indexes,
+        hidden: emptySpec_hidden,
+        summary: emptySpec_summary,
+        drillTargets: [[
+            "components",
+            "ResourceInventory"
+          ]],
+        drillTargetKeys: emptySpec_drillTargetKeys,
+        collapsed: emptySpec_collapsed,
+        scan: emptySpec_scan,
+        scanSort: emptySpec_scanSort,
+        status: undefined,
+        visibility: undefined
+      });
+      let json = SuryToJsonSchema$ReventlessCore.deriveObjectSchema(schema$p);
+      let componentsSchema = getPropertyOf(json, "components");
+      let idSchema = getPropertyOf(json, "id");
+      globalThis.expect([
+        Stdlib_Option.flatMap(Stdlib_Option.flatMap(componentsSchema, s => getProperty(s, "x-reventless-drillTarget")), Stdlib_JSON.Decode.string),
+        Stdlib_Option.flatMap(idSchema, s => getProperty(s, "x-reventless-drillTarget"))
+      ]).toEqual([
+        "ResourceInventory",
+        undefined
+      ]);
+    });
+    globalThis.test("emits x-reventless-drillTargetKey as the key path", () => {
+      let schema = S.schema(s => ({
+        id: s.m(S.string),
+        components: s.m(S.string)
+      }));
+      let schema$p = withSpec(schema, {
+        ids: emptySpec_ids,
+        compositeIds: emptySpec_compositeIds,
+        subIds: emptySpec_subIds,
+        compositeSubIds: emptySpec_compositeSubIds,
+        indexes: emptySpec_indexes,
+        hidden: emptySpec_hidden,
+        summary: emptySpec_summary,
+        drillTargets: [[
+            "components",
+            "ResourceInventory"
+          ]],
+        drillTargetKeys: [[
+            "components",
+            "kind/name"
+          ]],
+        collapsed: emptySpec_collapsed,
+        scan: emptySpec_scan,
+        scanSort: emptySpec_scanSort,
+        status: undefined,
+        visibility: undefined
+      });
+      let json = SuryToJsonSchema$ReventlessCore.deriveObjectSchema(schema$p);
+      let componentsSchema = getPropertyOf(json, "components");
+      globalThis.expect(Stdlib_Option.flatMap(Stdlib_Option.flatMap(componentsSchema, s => getProperty(s, "x-reventless-drillTargetKey")), Stdlib_JSON.Decode.string)).toBe("kind/name");
+    });
+    globalThis.test("does not emit x-reventless-drillTargetKey when no key was supplied", () => {
+      let schema = S.schema(s => ({
+        id: s.m(S.string),
+        components: s.m(S.string)
+      }));
+      let schema$p = withSpec(schema, {
+        ids: emptySpec_ids,
+        compositeIds: emptySpec_compositeIds,
+        subIds: emptySpec_subIds,
+        compositeSubIds: emptySpec_compositeSubIds,
+        indexes: emptySpec_indexes,
+        hidden: emptySpec_hidden,
+        summary: emptySpec_summary,
+        drillTargets: [[
+            "components",
+            "ResourceInventory"
+          ]],
+        drillTargetKeys: emptySpec_drillTargetKeys,
+        collapsed: emptySpec_collapsed,
+        scan: emptySpec_scan,
+        scanSort: emptySpec_scanSort,
+        status: undefined,
+        visibility: undefined
+      });
+      let json = SuryToJsonSchema$ReventlessCore.deriveObjectSchema(schema$p);
+      let componentsSchema = getPropertyOf(json, "components");
+      globalThis.expect(Stdlib_Option.flatMap(componentsSchema, s => getProperty(s, "x-reventless-drillTargetKey"))).toBe(undefined);
+    });
+    globalThis.test("emits x-reventless-scan on field listed in scan", () => {
+      let schema = S.schema(s => ({
+        id: s.m(S.string),
+        status: s.m(S.string)
+      }));
+      let schema$p = withSpec(schema, {
+        ids: emptySpec_ids,
+        compositeIds: emptySpec_compositeIds,
+        subIds: emptySpec_subIds,
+        compositeSubIds: emptySpec_compositeSubIds,
+        indexes: emptySpec_indexes,
+        hidden: emptySpec_hidden,
+        summary: emptySpec_summary,
+        drillTargets: emptySpec_drillTargets,
+        drillTargetKeys: emptySpec_drillTargetKeys,
+        collapsed: emptySpec_collapsed,
+        scan: ["status"],
+        scanSort: emptySpec_scanSort,
+        status: undefined,
+        visibility: undefined
+      });
+      let json = SuryToJsonSchema$ReventlessCore.deriveObjectSchema(schema$p);
+      let statusSchema = getPropertyOf(json, "status");
+      let idSchema = getPropertyOf(json, "id");
+      globalThis.expect([
+        Stdlib_Option.flatMap(Stdlib_Option.flatMap(statusSchema, s => getProperty(s, "x-reventless-scan")), Stdlib_JSON.Decode.bool),
+        Stdlib_Option.flatMap(idSchema, s => getProperty(s, "x-reventless-scan"))
+      ]).toEqual([
+        true,
+        undefined
+      ]);
+    });
+    globalThis.test("emits x-reventless-scanSort on field listed in scanSort", () => {
+      let schema = S.schema(s => ({
+        id: s.m(S.string),
+        name: s.m(S.string)
+      }));
+      let schema$p = withSpec(schema, {
+        ids: emptySpec_ids,
+        compositeIds: emptySpec_compositeIds,
+        subIds: emptySpec_subIds,
+        compositeSubIds: emptySpec_compositeSubIds,
+        indexes: emptySpec_indexes,
+        hidden: emptySpec_hidden,
+        summary: emptySpec_summary,
+        drillTargets: emptySpec_drillTargets,
+        drillTargetKeys: emptySpec_drillTargetKeys,
+        collapsed: emptySpec_collapsed,
+        scan: emptySpec_scan,
+        scanSort: ["name"],
+        status: undefined,
+        visibility: undefined
+      });
+      let json = SuryToJsonSchema$ReventlessCore.deriveObjectSchema(schema$p);
+      let nameSchema = getPropertyOf(json, "name");
+      let idSchema = getPropertyOf(json, "id");
+      globalThis.expect([
+        Stdlib_Option.flatMap(Stdlib_Option.flatMap(nameSchema, s => getProperty(s, "x-reventless-scanSort")), Stdlib_JSON.Decode.bool),
+        Stdlib_Option.flatMap(idSchema, s => getProperty(s, "x-reventless-scanSort"))
+      ]).toEqual([
+        true,
+        undefined
+      ]);
+    });
+    globalThis.test("emits x-reventless-collapsed on field listed in collapsed", () => {
+      let schema = S.schema(s => ({
+        id: s.m(S.string),
+        primaryResource: s.m(S.string)
+      }));
+      let schema$p = withSpec(schema, {
+        ids: emptySpec_ids,
+        compositeIds: emptySpec_compositeIds,
+        subIds: emptySpec_subIds,
+        compositeSubIds: emptySpec_compositeSubIds,
+        indexes: emptySpec_indexes,
+        hidden: emptySpec_hidden,
+        summary: emptySpec_summary,
+        drillTargets: emptySpec_drillTargets,
+        drillTargetKeys: emptySpec_drillTargetKeys,
+        collapsed: ["primaryResource"],
+        scan: emptySpec_scan,
+        scanSort: emptySpec_scanSort,
+        status: undefined,
+        visibility: undefined
+      });
+      let json = SuryToJsonSchema$ReventlessCore.deriveObjectSchema(schema$p);
+      let primarySchema = getPropertyOf(json, "primaryResource");
+      let idSchema = getPropertyOf(json, "id");
+      globalThis.expect([
+        Stdlib_Option.flatMap(Stdlib_Option.flatMap(primarySchema, s => getProperty(s, "x-reventless-collapsed")), Stdlib_JSON.Decode.bool),
+        Stdlib_Option.flatMap(idSchema, s => getProperty(s, "x-reventless-collapsed"))
+      ]).toEqual([
+        true,
+        undefined
+      ]);
+    });
+    globalThis.test("emits x-reventless-visibility at top level when visibility is Internal", () => {
+      let schema = S.schema(s => ({
+        id: s.m(S.string)
+      }));
+      let schema$p = withSpec(schema, {
+        ids: emptySpec_ids,
+        compositeIds: emptySpec_compositeIds,
+        subIds: emptySpec_subIds,
+        compositeSubIds: emptySpec_compositeSubIds,
+        indexes: emptySpec_indexes,
+        hidden: emptySpec_hidden,
+        summary: emptySpec_summary,
+        drillTargets: emptySpec_drillTargets,
+        drillTargetKeys: emptySpec_drillTargetKeys,
+        collapsed: emptySpec_collapsed,
+        scan: emptySpec_scan,
+        scanSort: emptySpec_scanSort,
+        status: undefined,
+        visibility: "Internal"
+      });
+      let json = SuryToJsonSchema$ReventlessCore.deriveObjectSchema(schema$p);
+      globalThis.expect(Stdlib_Option.flatMap(getProperty(json, "x-reventless-visibility"), Stdlib_JSON.Decode.string)).toBe("Internal");
+    });
+    globalThis.test("omits x-reventless-visibility when visibility is None (default Public)", () => {
+      let schema = S.schema(s => ({
+        id: s.m(S.string)
+      }));
+      let schema$p = withSpec(schema, {
+        ids: emptySpec_ids,
+        compositeIds: emptySpec_compositeIds,
+        subIds: emptySpec_subIds,
+        compositeSubIds: emptySpec_compositeSubIds,
+        indexes: emptySpec_indexes,
+        hidden: emptySpec_hidden,
+        summary: emptySpec_summary,
+        drillTargets: emptySpec_drillTargets,
+        drillTargetKeys: emptySpec_drillTargetKeys,
+        collapsed: emptySpec_collapsed,
+        scan: emptySpec_scan,
+        scanSort: emptySpec_scanSort,
+        status: undefined,
+        visibility: undefined
+      });
+      let json = SuryToJsonSchema$ReventlessCore.deriveObjectSchema(schema$p);
+      globalThis.expect(getProperty(json, "x-reventless-visibility")).toBe(undefined);
+    });
+  });
+  globalThis.describe("parity with S.toJSONSchema for unannotated objects:", () => {
+    let getKeys = schema => {
+      let obj = Stdlib_Option.flatMap(getProperty(schema, "properties"), Stdlib_JSON.Decode.object);
+      if (obj !== undefined) {
+        return Object.keys(obj);
+      } else {
+        return [];
+      }
+    };
+    let getRequired = schema => {
+      let arr = Stdlib_Option.flatMap(getProperty(schema, "required"), Stdlib_JSON.Decode.array);
+      if (arr !== undefined) {
+        return Stdlib_Array.filterMap(arr, Stdlib_JSON.Decode.string);
+      } else {
+        return [];
+      }
+    };
+    let sortStrings = xs => xs.toSorted(Primitive_string.compare);
+    globalThis.test("properties keyset matches between deriveObjectSchema and S.toJSONSchema", () => {
+      let schema = S.schema(s => ({
+        id: s.m(S.string),
+        name: s.m(S.string),
+        count: s.m(S.int)
+      }));
+      let derived = SuryToJsonSchema$ReventlessCore.deriveObjectSchema(schema);
+      let native = S.toJSONSchema(schema);
+      globalThis.expect(sortStrings(getKeys(derived))).toEqual(sortStrings(getKeys(native)));
+    });
+    globalThis.test("required array matches between deriveObjectSchema and S.toJSONSchema", () => {
+      let schema = S.schema(s => ({
+        id: s.m(S.string),
+        name: s.m(S.string)
+      }));
+      let derived = SuryToJsonSchema$ReventlessCore.deriveObjectSchema(schema);
+      let native = S.toJSONSchema(schema);
+      globalThis.expect(sortStrings(getRequired(derived))).toEqual(sortStrings(getRequired(native)));
+    });
+    globalThis.test("S.toJSONSchema does NOT emit x-reventless-* keys even when metadata is set", () => {
+      let withSpec = (schema, spec) => S.Metadata.set(schema, StateAnnotations$Reventless.stateAnnotationsId, spec);
+      let schema = S.schema(s => ({
+        entityId: s.m(S.string),
+        name: s.m(S.string)
+      }));
+      let schema$p = withSpec(schema, {
+        ids: ["entityId"],
+        compositeIds: emptySpec_compositeIds,
+        subIds: emptySpec_subIds,
+        compositeSubIds: emptySpec_compositeSubIds,
+        indexes: emptySpec_indexes,
+        hidden: emptySpec_hidden,
+        summary: emptySpec_summary,
+        drillTargets: emptySpec_drillTargets,
+        drillTargetKeys: emptySpec_drillTargetKeys,
+        collapsed: emptySpec_collapsed,
+        scan: emptySpec_scan,
+        scanSort: emptySpec_scanSort,
+        status: undefined,
+        visibility: undefined
+      });
+      let native = S.toJSONSchema(schema$p);
+      let entityIdSchema = getPropertyOf(native, "entityId");
+      globalThis.expect(Stdlib_Option.flatMap(entityIdSchema, s => getProperty(s, "x-reventless-id"))).toBe(undefined);
+    });
+  });
+});
+
+export {
+  getProperty,
+  getPropertyOf,
+  emptySpec,
+}
+/*  Not a pure module */