@reventlessdev/reventless-postgres 3.0.0-alpha.5 → 3.0.0-alpha.50

package/src/QueryEnginePostgres.res.mjs

@@ -2,10 +2,10 @@
 
 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 Pulumi from "@pulumi/pulumi";
+import * as Stdlib_Nullable from "@rescript/runtime/lib/es6/Stdlib_Nullable.js";
 import * as PgDriver$ReventlessPostgres from "./PgDriver.res.mjs";
 import * as QueryDbListQuery$ReventlessCore from "@reventlessdev/reventless-core/src/components/Api/QueryDbListQuery.res.mjs";
-import * as QueryDbStorage_Postgres$ReventlessPostgres from "./QueryDbStorage_Postgres.res.mjs";
+import * as QueryDbStorage_Postgres_Ops$ReventlessPostgres from "./QueryDbStorage_Postgres_Ops.res.mjs";
 
 function valueToText(v) {
   switch (v.TAG) {
@@ -104,25 +104,25 @@ function subIdSql(b, field, cmp, v) {
 }
 
 function decodeRow(withId, row) {
-  let item = QueryDbStorage_Postgres$ReventlessPostgres.decodeItem(row);
+  let item = QueryDbStorage_Postgres_Ops$ReventlessPostgres.decodeItem(row);
   if (!withId) {
     return item;
   }
   let match = row["partition_key"];
   let pk = typeof match === "string" ? match : "";
-  return QueryDbStorage_Postgres$ReventlessPostgres.withId(item, pk);
+  return QueryDbStorage_Postgres_Ops$ReventlessPostgres.withId(item, pk);
 }
 
 function Make(P) {
   let query = async (readModelName, key, id, subIdConfig, filterConfigs, ascending, limit) => {
-    let table = QueryDbStorage_Postgres$ReventlessPostgres.tableName(readModelName);
+    let table = QueryDbStorage_Postgres_Ops$ReventlessPostgres.tableName(readModelName);
     let keyStr = key !== undefined ? key : valueToText(id);
     let b = {
       params: []
     };
     let where = [
       `partition_key = ` + param(b, keyStr),
-      QueryDbStorage_Postgres$ReventlessPostgres.notExpiredClause
+      QueryDbStorage_Postgres_Ops$ReventlessPostgres.notExpiredClause
     ];
     if (subIdConfig !== undefined) {
       where.push(subIdSql(b, subIdConfig[0], subIdConfig[1], subIdConfig[2]));
@@ -136,11 +136,11 @@ function Make(P) {
     return (await PgDriver$ReventlessPostgres.query(P.pool, sql, b.params)).map(extra => decodeRow(false, extra));
   };
   let scan = async (readModelName, filterConfigs, limit) => {
-    let table = QueryDbStorage_Postgres$ReventlessPostgres.tableName(readModelName);
+    let table = QueryDbStorage_Postgres_Ops$ReventlessPostgres.tableName(readModelName);
     let b = {
       params: []
     };
-    let where = [QueryDbStorage_Postgres$ReventlessPostgres.notExpiredClause];
+    let where = [QueryDbStorage_Postgres_Ops$ReventlessPostgres.notExpiredClause];
     filterConfigs.forEach(param => {
       where.push(filterSql(b, param[0], param[1], param[2]));
     });
@@ -148,29 +148,29 @@ function Make(P) {
     return (await PgDriver$ReventlessPostgres.query(P.pool, sql, b.params)).map(extra => decodeRow(true, extra));
   };
   let indexLookup = async (readModelName, field, value) => {
-    let table = QueryDbStorage_Postgres$ReventlessPostgres.tableName(readModelName);
+    let table = QueryDbStorage_Postgres_Ops$ReventlessPostgres.tableName(readModelName);
     let b = {
       params: []
     };
-    let sql = `SELECT partition_key, item FROM ` + table + ` WHERE ` + col(field) + ` = ` + param(b, value) + ` AND ` + QueryDbStorage_Postgres$ReventlessPostgres.notExpiredClause;
+    let sql = `SELECT partition_key, item FROM ` + table + ` WHERE ` + col(field) + ` = ` + param(b, value) + ` AND ` + QueryDbStorage_Postgres_Ops$ReventlessPostgres.notExpiredClause;
     return (await PgDriver$ReventlessPostgres.query(P.pool, sql, b.params)).map(extra => decodeRow(true, extra));
   };
   let byIds = async (readModelName, ids) => {
     if (ids.length === 0) {
       return [];
     }
-    let table = QueryDbStorage_Postgres$ReventlessPostgres.tableName(readModelName);
+    let table = QueryDbStorage_Postgres_Ops$ReventlessPostgres.tableName(readModelName);
     let b = {
       params: []
     };
     let idsJson = ids.map(prim => prim);
-    let sql = `SELECT partition_key, item FROM ` + table + ` WHERE partition_key = ANY(` + param(b, idsJson) + `::text[]) AND ` + QueryDbStorage_Postgres$ReventlessPostgres.notExpiredClause;
+    let sql = `SELECT partition_key, item FROM ` + table + ` WHERE partition_key = ANY(` + param(b, idsJson) + `::text[]) AND ` + QueryDbStorage_Postgres_Ops$ReventlessPostgres.notExpiredClause;
     return (await PgDriver$ReventlessPostgres.query(P.pool, sql, b.params)).map(extra => decodeRow(true, extra));
   };
   let idExprC = `COALESCE(item->>'id', partition_key) COLLATE "C"`;
   let jsonTextC = field => col(field) + ` COLLATE "C"`;
   let listPage = async (readModelName, argsDict, capability, param$1) => {
-    let table = QueryDbStorage_Postgres$ReventlessPostgres.tableName(readModelName);
+    let table = QueryDbStorage_Postgres_Ops$ReventlessPostgres.tableName(readModelName);
     let filterDict = Stdlib_Option.getOr(Stdlib_Option.flatMap(argsDict["filter"], Stdlib_JSON.Decode.object), {});
     let strNonEmpty = k => Stdlib_Option.mapOr(Stdlib_Option.flatMap(filterDict[k], Stdlib_JSON.Decode.string), false, s => s.length > 0);
     let hasIds = Stdlib_Option.mapOr(Stdlib_Option.flatMap(filterDict["ids"], Stdlib_JSON.Decode.array), false, a => a.length !== 0);
@@ -182,7 +182,7 @@ function Make(P) {
     let b = {
       params: []
     };
-    let whereParts = [QueryDbStorage_Postgres$ReventlessPostgres.notExpiredClause];
+    let whereParts = [QueryDbStorage_Postgres_Ops$ReventlessPostgres.notExpiredClause];
     let valString = v => {
       let s = Stdlib_JSON.Decode.string(v);
       if (s !== undefined) {
@@ -231,10 +231,78 @@ function Make(P) {
     let cursorValueOf = item => Stdlib_Option.getOr(QueryDbListQuery$ReventlessCore.getFieldString(item, cursorField), QueryDbListQuery$ReventlessCore.getId(item));
     return QueryDbListQuery$ReventlessCore.buildConnection(pageItems, hasMore, false, cursorValueOf);
   };
-  let make = _allQueryDbs => Pulumi.output({
-    scan: scan,
-    query: query
-  });
+  let itemsPage = async (readModelName, param$1, id, argsDict) => {
+    let table = QueryDbStorage_Postgres_Ops$ReventlessPostgres.tableName(readModelName);
+    let filterDict = Stdlib_Option.getOr(Stdlib_Option.flatMap(argsDict["filter"], Stdlib_JSON.Decode.object), {});
+    let fstr = k => Stdlib_Option.flatMap(filterDict[k], Stdlib_JSON.Decode.string);
+    let orderDesc = Stdlib_Option.mapOr(fstr("order"), false, o => o === "DESC");
+    let last = Stdlib_Option.map(Stdlib_Option.flatMap(argsDict["last"], Stdlib_JSON.Decode.float), prim => prim | 0);
+    let first = Stdlib_Option.map(Stdlib_Option.flatMap(argsDict["first"], Stdlib_JSON.Decode.float), prim => prim | 0);
+    let after = Stdlib_Option.flatMap(argsDict["after"], Stdlib_JSON.Decode.string);
+    let before = Stdlib_Option.flatMap(argsDict["before"], Stdlib_JSON.Decode.string);
+    let isBackward = Stdlib_Option.isSome(last);
+    let sk = `sub_key COLLATE "C"`;
+    let b = {
+      params: []
+    };
+    let where = [
+      `partition_key = ` + param(b, id),
+      QueryDbStorage_Postgres_Ops$ReventlessPostgres.notExpiredClause
+    ];
+    Stdlib_Option.forEach(fstr("prefix"), p => {
+      where.push(`starts_with(sub_key, ` + param(b, p) + `)`);
+    });
+    Stdlib_Option.forEach(fstr("from"), f => {
+      where.push(sk + ` >= ` + param(b, f));
+    });
+    Stdlib_Option.forEach(fstr("to"), t => {
+      where.push(sk + ` <= ` + param(b, t));
+    });
+    Stdlib_Option.forEach(fstr("eq"), e => {
+      where.push(sk + ` = ` + param(b, e));
+    });
+    if (isBackward) {
+      if (before !== undefined) {
+        where.push(sk + ` < ` + param(b, QueryDbListQuery$ReventlessCore.decodeCursor(before)));
+      }
+    } else if (after !== undefined) {
+      where.push(sk + ` > ` + param(b, QueryDbListQuery$ReventlessCore.decodeCursor(after)));
+    }
+    let fetchDesc = isBackward ? !orderDesc : orderDesc;
+    let pageSize = Stdlib_Option.getOr(isBackward ? last : first, QueryDbListQuery$ReventlessCore.defaultListPageSize);
+    let sql = `SELECT partition_key, sub_key, item FROM ` + table + ` WHERE ` + where.join(" AND ") + ` ORDER BY ` + sk + ` ` + (
+      fetchDesc ? "DESC" : "ASC"
+    ) + ` LIMIT ` + param(b, pageSize + 1 | 0);
+    let rows = await PgDriver$ReventlessPostgres.query(P.pool, sql, b.params);
+    let hasMore = rows.length > pageSize;
+    let taken = rows.slice(0, pageSize);
+    let logical = isBackward ? taken.toReversed() : taken;
+    let pageItems = logical.map(extra => decodeRow(false, extra));
+    let subKeyOf = row => {
+      let match = row["sub_key"];
+      if (typeof match === "string") {
+        return match;
+      } else {
+        return "";
+      }
+    };
+    let cursors = logical.map(subKeyOf);
+    let edges = pageItems.map((item, i) => ({
+      node: item,
+      cursor: QueryDbListQuery$ReventlessCore.encodeCursor(cursors[i])
+    }));
+    let startCursor = Stdlib_Option.map(cursors[0], QueryDbListQuery$ReventlessCore.encodeCursor);
+    let endCursor = Stdlib_Option.map(cursors[cursors.length - 1 | 0], QueryDbListQuery$ReventlessCore.encodeCursor);
+    return {
+      edges: edges,
+      pageInfo: {
+        hasNextPage: !isBackward && hasMore,
+        hasPreviousPage: isBackward && hasMore,
+        startCursor: Stdlib_Nullable.fromOption(startCursor),
+        endCursor: Stdlib_Nullable.fromOption(endCursor)
+      }
+    };
+  };
   return {
     query: query,
     scan: scan,
@@ -243,11 +311,11 @@ function Make(P) {
     idExprC: idExprC,
     jsonTextC: jsonTextC,
     listPage: listPage,
-    make: make
+    itemsPage: itemsPage
   };
 }
 
-let notExpired = QueryDbStorage_Postgres$ReventlessPostgres.notExpiredClause;
+let notExpired = QueryDbStorage_Postgres_Ops$ReventlessPostgres.notExpiredClause;
 
 export {
   valueToText,
@@ -260,4 +328,4 @@ export {
   decodeRow,
   Make,
 }
-/* @pulumi/pulumi Not a pure module */
+/* PgDriver-ReventlessPostgres Not a pure module */

package/tests/QueryEnginePostgresListPageTest.res

@@ -233,4 +233,80 @@ switch processEnv->Dict.get("PG_URL") {
       expect(items->Array.length)->toBe(0)
     })
   })
+
+  // ── itemsPage (sub-id connection) ─────────────────────────────────────────
+  // A sub-id read model: partition "order-1" holds 5 lines keyed by `seq`.
+  let itemsName = "itemsparity"
+  let mkLine = seq => {
+    let o = Dict.make()
+    o->Dict.set("id", JSON.Encode.string("order-1"))
+    o->Dict.set("seq", JSON.Encode.string(seq))
+    JSON.Encode.object(o)
+  }
+  let seqs = ["a", "b", "c", "d", "e"]
+  beforeAllAsync(async () => {
+    let ops = QueryDbStorage_Postgres.makeOperations(
+      ~pool,
+      ~name=itemsName,
+      ~indexes=[],
+      ~subIdField=Some("seq"),
+    )
+    for i in 0 to seqs->Array.length - 1 {
+      let _ = await ops.save("order-1", mkLine(seqs->Array.getUnsafe(i)), QueryDb.Any, None)
+    }
+  })
+
+  // Extract node `seq` values in edge order.
+  let itemSeqs = (conn: JSON.t) =>
+    conn
+    ->field("edges")
+    ->Option.flatMap(JSON.Decode.array)
+    ->Option.getOr([])
+    ->Array.filterMap(e => e->field("node")->Option.flatMap(n => n->str("seq")))
+
+  let pageInfoBool = (conn, key) =>
+    conn->field("pageInfo")->Option.getOr(JSON.Encode.null)->field(key)->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
+
+  let itemsPage = args =>
+    Eng.itemsPage(~readModelName=itemsName, ~subIdField="seq", ~id="order-1", ~argsDict=argsOf(args))
+
+  describe("QueryEnginePostgres itemsPage (sub-id keyset)", () => {
+    testPromise("bare → all lines ASC, no next page", async () => {
+      let r = await itemsPage([])
+      expect(r->itemSeqs)->toEqual(["a", "b", "c", "d", "e"])
+      expect(pageInfoBool(r, "hasNextPage"))->toBe(false)
+    })
+    testPromise("first:2 → [a,b], hasNextPage", async () => {
+      let r = await itemsPage([("first", JSON.Encode.int(2))])
+      expect(r->itemSeqs)->toEqual(["a", "b"])
+      expect(pageInfoBool(r, "hasNextPage"))->toBe(true)
+    })
+    testPromise("first:2 after b → [c,d]", async () => {
+      let r = await itemsPage([("first", JSON.Encode.int(2)), ("after", JSON.Encode.string(cur("b")))])
+      expect(r->itemSeqs)->toEqual(["c", "d"])
+    })
+    testPromise("order DESC → [e..a]", async () => {
+      let r = await itemsPage([("filter", filterOf([("order", JSON.Encode.string("DESC"))]))])
+      expect(r->itemSeqs)->toEqual(["e", "d", "c", "b", "a"])
+    })
+    testPromise("filter eq c → [c]", async () => {
+      let r = await itemsPage([("filter", filterOf([("eq", JSON.Encode.string("c"))]))])
+      expect(r->itemSeqs)->toEqual(["c"])
+    })
+    testPromise("filter from b to d → [b,c,d]", async () => {
+      let r = await itemsPage([
+        ("filter", filterOf([("from", JSON.Encode.string("b")), ("to", JSON.Encode.string("d"))])),
+      ])
+      expect(r->itemSeqs)->toEqual(["b", "c", "d"])
+    })
+    testPromise("prefix c → [c]", async () => {
+      let r = await itemsPage([("filter", filterOf([("prefix", JSON.Encode.string("c"))]))])
+      expect(r->itemSeqs)->toEqual(["c"])
+    })
+    testPromise("backward last:2 before d → [b,c] (logical ASC)", async () => {
+      let r = await itemsPage([("last", JSON.Encode.int(2)), ("before", JSON.Encode.string(cur("d")))])
+      expect(r->itemSeqs)->toEqual(["b", "c"])
+      expect(pageInfoBool(r, "hasPreviousPage"))->toBe(true)
+    })
+  })
 }

package/tests/PostgresIntegrationTest.res.mjs

@@ -1,377 +0,0 @@
-// Generated by ReScript, PLEASE EDIT WITH CARE
-
-import * as Stdlib_Array from "@rescript/runtime/lib/es6/Stdlib_Array.js";
-import * as Primitive_object from "@rescript/runtime/lib/es6/Primitive_object.js";
-import * as Message$ReventlessCore from "@reventlessdev/reventless-core/src/Message.res.mjs";
-import * as PgDriver$ReventlessPostgres from "../src/PgDriver.res.mjs";
-import * as PgSchema$ReventlessPostgres from "../src/PgSchema.res.mjs";
-import * as PgChangeFeed$ReventlessPostgres from "../src/PgChangeFeed.res.mjs";
-import * as EventLogChangeFeed$ReventlessPostgres from "../src/EventLogChangeFeed.res.mjs";
-import * as EventLogStorage_Postgres$ReventlessPostgres from "../src/EventLogStorage_Postgres.res.mjs";
-import * as DcbEventLogStorage_Postgres$ReventlessPostgres from "../src/DcbEventLogStorage_Postgres.res.mjs";
-
-let opts = {};
-
-function jsonObj(pairs) {
-  return Object.fromEntries(pairs);
-}
-
-function stored(eventType, tags, data) {
-  return {
-    eventType: eventType,
-    data: data,
-    tags: tags,
-    meta: Message$ReventlessCore.generateMeta("pg-test", undefined, undefined, undefined, undefined, undefined, undefined, undefined)
-  };
-}
-
-function evJson(msgId, v) {
-  return Object.fromEntries([
-    [
-      "msgId",
-      msgId
-    ],
-    [
-      "v",
-      v
-    ]
-  ]);
-}
-
-let url = process.env["PG_URL"];
-
-if (url !== undefined) {
-  let pool = PgDriver$ReventlessPostgres.makePool({
-    connectionString: url
-  });
-  globalThis.beforeAll(async () => {
-    await PgSchema$ReventlessPostgres.ensureSchema(pool);
-    return await PgSchema$ReventlessPostgres.truncateAll(pool);
-  });
-  globalThis.afterAll(() => {
-    PgDriver$ReventlessPostgres.endPool(pool);
-  });
-  globalThis.describe("classic OCC event log", () => {
-    globalThis.test("append, replay, and conflict on wrong seq", async () => {
-      let match = EventLogStorage_Postgres$ReventlessPostgres.makeStorage(pool, "ct-orders", opts, undefined);
-      let ops = match[1];
-      let r0 = await ops.append(0, "agg-1", [
-        evJson("m0", 1),
-        evJson("m1", 2)
-      ]);
-      if (r0.TAG === "Ok") {
-        globalThis.expect(true).toBe(true);
-      } else {
-        globalThis.expect("append").toBe("ok");
-      }
-      let rStale = await ops.append(0, "agg-1", [evJson("m2", 3)]);
-      if (rStale.TAG === "Ok") {
-        globalThis.expect("stale").toBe("conflict");
-      } else {
-        let tmp = rStale._0;
-        if (typeof tmp !== "object") {
-          globalThis.expect(true).toBe(true);
-        } else {
-          globalThis.expect("stale").toBe("conflict");
-        }
-      }
-      let rGap = await ops.append(5, "agg-1", [evJson("m3", 4)]);
-      if (rGap.TAG === "Ok") {
-        globalThis.expect("gap").toBe("conflict");
-      } else {
-        let tmp$1 = rGap._0;
-        if (typeof tmp$1 !== "object") {
-          globalThis.expect(true).toBe(true);
-        } else {
-          globalThis.expect("gap").toBe("conflict");
-        }
-      }
-      let rNext = await ops.append(2, "agg-1", [evJson("m4", 5)]);
-      if (rNext.TAG === "Ok") {
-        globalThis.expect(true).toBe(true);
-      } else {
-        globalThis.expect("next").toBe("ok");
-      }
-      let evs = await ops.replay("agg-1");
-      globalThis.expect(evs.length).toBe(3);
-      let rEmpty = await ops.append(3, "agg-1", []);
-      if (rEmpty.TAG === "Ok") {
-        globalThis.expect(true).toBe(true);
-        return;
-      }
-      globalThis.expect("empty").toBe("ok");
-    });
-  });
-  globalThis.describe("DCB event log", () => {
-    let makeLog = name => DcbEventLogStorage_Postgres$ReventlessPostgres.makeStorage(pool, name, [], {
-      TAG: "Simple",
-      _0: {
-        key: "k"
-      }
-    }, undefined, opts, undefined, undefined);
-    globalThis.test("append + read round-trips events with tags", async () => {
-      let match = makeLog("dcb-rt");
-      let ops = match[1];
-      let e1 = stored("ItemAdded", [{
-          key: "itemId",
-          value: "x1"
-        }], Object.fromEntries([[
-          "n",
-          "w"
-        ]]));
-      let r = await ops.append([e1], undefined);
-      if (r.TAG === "Ok") {
-        globalThis.expect(true).toBe(true);
-      } else {
-        globalThis.expect(r._0).toBe("ok");
-      }
-      let read = await ops.read([], undefined);
-      globalThis.expect(read.events.length).toBe(1);
-      let first = read.events[0];
-      globalThis.expect(first.eventType).toBe("ItemAdded");
-      globalThis.expect(first.tags[0].key).toBe("itemId");
-      globalThis.expect(first.tags[0].value).toBe("x1");
-    });
-    globalThis.test("conditional append conflicts when the boundary already has an event", async () => {
-      let match = makeLog("dcb-cond");
-      let ops = match[1];
-      let mk = who => stored("Reserved", [{
-          key: "seatId",
-          value: "s1"
-        }], Object.fromEntries([[
-          "who",
-          who
-        ]]));
-      let r1 = await ops.append([mk("a")], undefined);
-      if (r1.TAG === "Ok") {
-        globalThis.expect(true).toBe(true);
-      } else {
-        globalThis.expect("first").toBe("ok");
-      }
-      let cond_query = [{
-          eventTypes: ["Reserved"],
-          tags: [{
-              key: "seatId",
-              value: "s1"
-            }]
-        }];
-      let cond = {
-        query: cond_query
-      };
-      let r2 = await ops.append([mk("b")], cond);
-      if (r2.TAG === "Ok") {
-        globalThis.expect("second").toBe("conflict");
-        return;
-      }
-      let tmp = r2._0;
-      if (typeof tmp !== "object") {
-        globalThis.expect(true).toBe(true);
-        return;
-      }
-      globalThis.expect("second").toBe("conflict");
-    });
-    let writeSkew = (strategy, logName) => {
-      globalThis.test(`write-skew: exactly one of two concurrent appends wins (` + logName + `)`, async () => {
-        let match = DcbEventLogStorage_Postgres$ReventlessPostgres.makeStorage(pool, logName, [], {
-          TAG: "Simple",
-          _0: {
-            key: "k"
-          }
-        }, undefined, opts, strategy, undefined);
-        let ops = match[1];
-        let cond_query = [{
-            eventTypes: ["Reserved"],
-            tags: [{
-                key: "seatId",
-                value: "hot"
-              }]
-          }];
-        let cond = {
-          query: cond_query
-        };
-        let mk = who => stored("Reserved", [{
-            key: "seatId",
-            value: "hot"
-          }], Object.fromEntries([[
-            "who",
-            who
-          ]]));
-        let p1 = ops.append([mk("a")], cond);
-        let p2 = ops.append([mk("b")], cond);
-        let r1 = await p1;
-        let r2 = await p2;
-        let isOk = r => r.TAG === "Ok";
-        let isConflict = r => Primitive_object.equal(r, {
-          TAG: "Error",
-          _0: "Conflict"
-        });
-        let oks = [
-          r1,
-          r2
-        ].filter(isOk).length;
-        let conflicts = [
-          r1,
-          r2
-        ].filter(isConflict).length;
-        globalThis.expect(oks).toBe(1);
-        globalThis.expect(conflicts).toBe(1);
-        let read = await ops.read([{
-            tags: [{
-                key: "seatId",
-                value: "hot"
-              }]
-          }], undefined);
-        globalThis.expect(read.events.length).toBe(1);
-      });
-    };
-    writeSkew("AdvisoryLocks", "dcb-skew-advisory");
-    writeSkew("RowLocks", "dcb-skew-rows");
-    globalThis.test("hot tag: N concurrent conditional appends, exactly one wins", async () => {
-      let match = makeLog("dcb-hot");
-      let ops = match[1];
-      let cond_query = [{
-          eventTypes: ["Claimed"],
-          tags: [{
-              key: "prizeId",
-              value: "p1"
-            }]
-        }];
-      let cond = {
-        query: cond_query
-      };
-      let promises = Stdlib_Array.make(12, 0).map((param, i) => ops.append([stored("Claimed", [{
-            key: "prizeId",
-            value: "p1"
-          }], Object.fromEntries([[
-            "who",
-            i
-          ]]))], cond));
-      let results = await Promise.all(promises);
-      let oks = results.filter(r => r.TAG === "Ok").length;
-      globalThis.expect(oks).toBe(1);
-      let read = await ops.read([{
-          tags: [{
-              key: "prizeId",
-              value: "p1"
-            }]
-        }], undefined);
-      globalThis.expect(read.events.length).toBe(1);
-    });
-    globalThis.test("cursors are monotonic and usable as `after`", async () => {
-      let match = makeLog("dcb-cursor");
-      let ops = match[1];
-      let mk = i => stored("Tick", [{
-          key: "streamId",
-          value: "c1"
-        }], Object.fromEntries([[
-          "i",
-          i
-        ]]));
-      await ops.append([mk(0)], undefined);
-      let pos = await ops.append([mk(1)], undefined);
-      let mid;
-      mid = pos.TAG === "Ok" ? pos._0 : "";
-      await ops.append([mk(2)], undefined);
-      let read = await ops.read([{
-          tags: [{
-              key: "streamId",
-              value: "c1"
-            }]
-        }], mid);
-      globalThis.expect(read.events.length).toBe(1);
-      globalThis.expect(read.events[0].eventType).toBe("Tick");
-    });
-  });
-  globalThis.describe("change feed", () => {
-    globalThis.test("drains all events and checkpoints", async () => {
-      let match = DcbEventLogStorage_Postgres$ReventlessPostgres.makeStorage(pool, "feed-log", [], {
-        TAG: "Simple",
-        _0: {
-          key: "k"
-        }
-      }, undefined, opts, undefined, undefined);
-      let mk = i => stored("Fed", [{
-          key: "id",
-          value: "f"
-        }], Object.fromEntries([[
-          "i",
-          i
-        ]]));
-      await match[1].append([
-        mk(0),
-        mk(1),
-        mk(2)
-      ], undefined);
-      let collected = {
-        contents: 0
-      };
-      let processed = await PgChangeFeed$ReventlessPostgres.drain(pool, "feed-log", "sub-1", undefined, async evs => {
-        collected.contents = collected.contents + evs.length | 0;
-      });
-      globalThis.expect(processed).toBe(3);
-      globalThis.expect(collected.contents).toBe(3);
-      let again = await PgChangeFeed$ReventlessPostgres.drain(pool, "feed-log", "sub-1", undefined, async param => {});
-      globalThis.expect(again).toBe(0);
-    });
-  });
-  globalThis.describe("classic change feed (event_log, B2.5)", () => {
-    globalThis.test("drains classic events in commit order, with fields, then checkpoints", async () => {
-      let match = EventLogStorage_Postgres$ReventlessPostgres.makeStorage(pool, "cf-orders", opts, undefined);
-      let ops = match[1];
-      await ops.append(0, "agg-1", [
-        evJson("m0", 1),
-        evJson("m1", 2)
-      ]);
-      await ops.append(0, "agg-2", [evJson("m2", 3)]);
-      let collected = {
-        contents: []
-      };
-      let processed = await EventLogChangeFeed$ReventlessPostgres.drain(pool, "cf-orders", "cf-sub", undefined, async evs => {
-        collected.contents = collected.contents.concat(evs);
-      });
-      globalThis.expect(processed).toBe(3);
-      globalThis.expect(collected.contents.length).toBe(3);
-      let first = collected.contents[0];
-      globalThis.expect(first.aggregateId).toBe("agg-1");
-      globalThis.expect(first.seqNr).toBe(0);
-      globalThis.expect(first.msgId).toEqual("m0");
-      let cursors = collected.contents.map(e => e.cursor);
-      let increasing = true;
-      for (let i = 1, i_finish = cursors.length; i < i_finish; ++i) {
-        if (cursors[i] <= cursors[i - 1 | 0]) {
-          increasing = false;
-        }
-      }
-      globalThis.expect(increasing).toBe(true);
-      let again = await EventLogChangeFeed$ReventlessPostgres.drain(pool, "cf-orders", "cf-sub", undefined, async param => {});
-      globalThis.expect(again).toBe(0);
-    });
-    globalThis.test("concurrent appends across aggregates: every event drained exactly once", async () => {
-      let match = EventLogStorage_Postgres$ReventlessPostgres.makeStorage(pool, "cf-concurrent", opts, undefined);
-      let ops = match[1];
-      let promises = Stdlib_Array.make(20, 0).map((param, i) => ops.append(0, "agg-" + i.toString(), [evJson("m" + i.toString(), i)]));
-      await Promise.all(promises);
-      let collected = {
-        contents: []
-      };
-      await EventLogChangeFeed$ReventlessPostgres.drain(pool, "cf-concurrent", "cf-conc-sub", undefined, async evs => {
-        collected.contents = collected.contents.concat(evs);
-      });
-      globalThis.expect(collected.contents.length).toBe(20);
-      let distinctCursors = new Set(collected.contents.map(e => e.cursor));
-      globalThis.expect(distinctCursors.size).toBe(20);
-    });
-  });
-} else {
-  globalThis.test("Postgres integration (skipped — set PG_URL to run)", () => {
-    globalThis.expect(true).toBe(true);
-  });
-}
-
-export {
-  opts,
-  jsonObj,
-  stored,
-  evJson,
-}
-/* url Not a pure module */