@reventlessdev/reventless-core 3.0.0-alpha.240 → 3.0.0-alpha.242

package/tests/querydb/TaggedUnionStampTest.res.mjs

@@ -0,0 +1,267 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Stream from "@reventlessdev/rescript-effect/src/Stream.res.mjs";
+import * as Stdlib_JSON from "@rescript/runtime/lib/es6/Stdlib_JSON.js";
+import * as Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as Effect from "effect/Effect";
+import * as QueryDbFixtures$ReventlessCore from "./QueryDbFixtures.res.mjs";
+import * as QueryDb_Operations$ReventlessCore from "../../src/components/QueryDb/QueryDb_Operations.res.mjs";
+import * as TaggedUnionFixtures$ReventlessCore from "../fixtures/TaggedUnionFixtures.res.mjs";
+
+let Customers = QueryDb_Operations$ReventlessCore.Make({
+  Id: {
+    schema: Id$Reventless.StringPure.schema,
+    make: prim => prim,
+    makeFromString: prim => prim,
+    toString: prim => prim,
+    cmp: Id$Reventless.StringPure.cmp
+  },
+  name: TaggedUnionFixtures$ReventlessCore.CustomersSpec.name,
+  moduleUrl: TaggedUnionFixtures$ReventlessCore.CustomersSpec.moduleUrl,
+  stateSchema: TaggedUnionFixtures$ReventlessCore.CustomersSpec.stateSchema,
+  config: TaggedUnionFixtures$ReventlessCore.CustomersSpec.config,
+  subIdConfig: TaggedUnionFixtures$ReventlessCore.CustomersSpec.subIdConfig,
+  authorization: TaggedUnionFixtures$ReventlessCore.CustomersSpec.authorization,
+  visibility: TaggedUnionFixtures$ReventlessCore.CustomersSpec.visibility
+})({
+  jsonOps: QueryDbFixtures$ReventlessCore.mockJsonOps
+});
+
+let Sightings = QueryDb_Operations$ReventlessCore.Make({
+  Id: {
+    schema: Id$Reventless.StringPure.schema,
+    make: prim => prim,
+    makeFromString: prim => prim,
+    toString: prim => prim,
+    cmp: Id$Reventless.StringPure.cmp
+  },
+  name: TaggedUnionFixtures$ReventlessCore.SightingsSpec.name,
+  moduleUrl: TaggedUnionFixtures$ReventlessCore.SightingsSpec.moduleUrl,
+  stateSchema: TaggedUnionFixtures$ReventlessCore.SightingsSpec.stateSchema,
+  config: TaggedUnionFixtures$ReventlessCore.SightingsSpec.config,
+  subIdConfig: TaggedUnionFixtures$ReventlessCore.SightingsSpec.subIdConfig,
+  authorization: TaggedUnionFixtures$ReventlessCore.SightingsSpec.authorization,
+  visibility: TaggedUnionFixtures$ReventlessCore.SightingsSpec.visibility
+})({
+  jsonOps: QueryDbFixtures$ReventlessCore.mockJsonOps
+});
+
+let Items = QueryDb_Operations$ReventlessCore.Make({
+  Id: {
+    schema: Id$Reventless.StringPure.schema,
+    make: prim => prim,
+    makeFromString: prim => prim,
+    toString: prim => prim,
+    cmp: Id$Reventless.StringPure.cmp
+  },
+  name: QueryDbFixtures$ReventlessCore.ItemQueryDbSpec.name,
+  moduleUrl: QueryDbFixtures$ReventlessCore.ItemQueryDbSpec.moduleUrl,
+  stateSchema: QueryDbFixtures$ReventlessCore.ItemQueryDbSpec.stateSchema,
+  config: QueryDbFixtures$ReventlessCore.ItemQueryDbSpec.config,
+  subIdConfig: QueryDbFixtures$ReventlessCore.ItemQueryDbSpec.subIdConfig,
+  authorization: QueryDbFixtures$ReventlessCore.ItemQueryDbSpec.authorization,
+  visibility: QueryDbFixtures$ReventlessCore.ItemQueryDbSpec.visibility
+})({
+  jsonOps: QueryDbFixtures$ReventlessCore.mockJsonOps
+});
+
+globalThis.beforeEach(() => QueryDbFixtures$ReventlessCore.reset());
+
+function storedRow(id) {
+  return Stdlib_Option.getOr(Stdlib_Option.getOr(QueryDbFixtures$ReventlessCore.store.contents[id], [])[0], null);
+}
+
+function field(json, name) {
+  return Stdlib_Option.getOr(Stdlib_Option.flatMap(Stdlib_JSON.Decode.object(json), o => o[name]), null);
+}
+
+function string(json) {
+  return Stdlib_JSON.Decode.string(json);
+}
+
+globalThis.describe("QueryDb_Operations stamps union members", () => {
+  globalThis.test("the stored value carries __typename beside TAG", async () => {
+    await Customers.save("c-1", {
+      customerId: "c-1",
+      geolocation: {
+        TAG: "Located",
+        point: {
+          lat: 48.2082,
+          lng: 16.3738
+        }
+      }
+    }, "Init", undefined);
+    let geo = field(storedRow("c-1"), "geolocation");
+    globalThis.expect(Stdlib_JSON.Decode.string(field(geo, "TAG"))).toEqual("Located");
+    globalThis.expect(Stdlib_JSON.Decode.string(field(geo, "__typename"))).toEqual("GeolocationLocated");
+  });
+  globalThis.test("every arm is stamped as the member type it is", async () => {
+    await Customers.save("c-2", {
+      customerId: "c-2",
+      geolocation: {
+        TAG: "Pending",
+        requestedFor: "1 High St"
+      }
+    }, "Init", undefined);
+    await Customers.save("c-3", {
+      customerId: "c-3",
+      geolocation: {
+        TAG: "Unresolvable",
+        reason: "ambiguous"
+      }
+    }, "Init", undefined);
+    globalThis.expect(Stdlib_JSON.Decode.string(field(field(storedRow("c-2"), "geolocation"), "__typename"))).toEqual("GeolocationPending");
+    globalThis.expect(Stdlib_JSON.Decode.string(field(field(storedRow("c-3"), "geolocation"), "__typename"))).toEqual("GeolocationUnresolvable");
+  });
+  globalThis.test("an optional union and an array of them are stamped too", async () => {
+    let state_lastSeen = {
+      TAG: "Located",
+      point: {
+        lat: 1.0,
+        lng: 2.0
+      }
+    };
+    let state_history = [
+      {
+        TAG: "Pending",
+        requestedFor: "somewhere"
+      },
+      {
+        TAG: "Unresolvable",
+        reason: "gone"
+      }
+    ];
+    let state = {
+      sightingId: "s-1",
+      lastSeen: state_lastSeen,
+      history: state_history
+    };
+    await Sightings.save("s-1", state, "Init", undefined);
+    let row = storedRow("s-1");
+    globalThis.expect(Stdlib_JSON.Decode.string(field(field(row, "lastSeen"), "__typename"))).toEqual("GeolocationLocated");
+    let history = Stdlib_Option.getOr(Stdlib_JSON.Decode.array(field(row, "history")), []);
+    globalThis.expect(history.map(h => Stdlib_JSON.Decode.string(field(h, "__typename")))).toEqual([
+      "GeolocationPending",
+      "GeolocationUnresolvable"
+    ]);
+  });
+  globalThis.test("an absent optional union leaves nothing behind", async () => {
+    await Sightings.save("s-2", {
+      sightingId: "s-2",
+      lastSeen: undefined,
+      history: []
+    }, "Init", undefined);
+    globalThis.expect(field(storedRow("s-2"), "lastSeen")).toEqual(null);
+  });
+  globalThis.test("a view with no union field stores what it always stored", async () => {
+    await Items.save("item-1", {
+      name: "Widget",
+      count: 5
+    }, "Init", undefined);
+    globalThis.expect(JSON.stringify(storedRow("item-1"))).toBe(`{"name":"Widget","count":5,"id":"item-1"}`);
+  });
+  globalThis.test("saveBatch stamps every row", async () => {
+    let batch = [
+      [
+        "c-4",
+        {
+          customerId: "c-4",
+          geolocation: {
+            TAG: "Located",
+            point: {
+              lat: 0.0,
+              lng: 0.0
+            }
+          }
+        },
+        undefined
+      ],
+      [
+        "c-5",
+        {
+          customerId: "c-5",
+          geolocation: {
+            TAG: "Pending",
+            requestedFor: "x"
+          }
+        },
+        undefined
+      ]
+    ];
+    await Customers.saveBatch(batch);
+    globalThis.expect([
+      Stdlib_JSON.Decode.string(field(field(storedRow("c-4"), "geolocation"), "__typename")),
+      Stdlib_JSON.Decode.string(field(field(storedRow("c-5"), "geolocation"), "__typename"))
+    ]).toEqual([
+      "GeolocationLocated",
+      "GeolocationPending"
+    ]);
+  });
+});
+
+globalThis.describe("a stamped row decodes back", () => {
+  globalThis.test("the extra key does not disturb the parse", async () => {
+    await Customers.save("c-6", {
+      customerId: "c-6",
+      geolocation: {
+        TAG: "Located",
+        point: {
+          lat: 48.2082,
+          lng: 16.3738
+        }
+      }
+    }, "Init", undefined);
+    let result = await Effect.runPromise(Stream.runCollect(Customers.loadStream("c-6")));
+    if (result.length === 1) {
+      let match = result[0];
+      let match$1 = match.geolocation;
+      switch (match$1.TAG) {
+        case "Located" :
+          let point = match$1.point;
+          globalThis.expect([
+            point.lat,
+            point.lng
+          ]).toEqual([
+            48.2082,
+            16.3738
+          ]);
+          return;
+        case "Pending" :
+        case "Unresolvable" :
+          break;
+      }
+    }
+    globalThis.expect("round trip").toBe("Located with its point intact");
+  });
+  globalThis.test("a row written before the union field arrives as the first arm", async () => {
+    QueryDbFixtures$ReventlessCore.store.contents["c-7"] = [Object.fromEntries([[
+          "customerId",
+          "c-7"
+        ]])];
+    let result = await Effect.runPromise(Stream.runCollect(Customers.loadStream("c-7")));
+    if (result.length === 1) {
+      let match = result[0];
+      let match$1 = match.geolocation;
+      switch (match$1.TAG) {
+        case "Pending" :
+          globalThis.expect(match$1.requestedFor).toBe("");
+          return;
+        case "Located" :
+        case "Unresolvable" :
+          break;
+      }
+    }
+    globalThis.expect("healed row").toBe("Pending");
+  });
+});
+
+export {
+  Customers,
+  Sightings,
+  Items,
+  storedRow,
+  field,
+  string,
+}
+/* Customers Not a pure module */