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

package/tests/api/SuryToJsonSchemaTest.res.mjs

@@ -1,674 +0,0 @@
-// 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,
-  groupBy: 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,
-        groupBy: 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,
-        groupBy: 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,
-        groupBy: 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,
-        groupBy: 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,
-        groupBy: 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,
-        groupBy: 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,
-        groupBy: 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,
-        groupBy: 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,
-        groupBy: 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,
-        groupBy: 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,
-        groupBy: 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,
-        groupBy: 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,
-        groupBy: 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-group-by on the field named by groupBy", () => {
-      let schema = S.schema(s => ({
-        id: s.m(S.string),
-        kind: 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,
-        groupBy: "kind",
-        visibility: undefined
-      });
-      let json = SuryToJsonSchema$ReventlessCore.deriveObjectSchema(schema$p);
-      let kindSchema = getPropertyOf(json, "kind");
-      let idSchema = getPropertyOf(json, "id");
-      globalThis.expect([
-        Stdlib_Option.flatMap(Stdlib_Option.flatMap(kindSchema, s => getProperty(s, "x-reventless-group-by")), Stdlib_JSON.Decode.bool),
-        Stdlib_Option.flatMap(idSchema, s => getProperty(s, "x-reventless-group-by"))
-      ]).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,
-        groupBy: 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,
-        groupBy: 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,
-        groupBy: 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,
-        groupBy: 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 */