@reventlessdev/reventless-local 3.0.0-alpha.161 → 3.0.0-alpha.162

package/tests/adapter/LocalAuthHttpTest.res.mjs

@@ -17,7 +17,7 @@ function postJson(path, body) {
     let bodyStr = JSON.stringify(body);
     let req = Nodehttp.request({
       hostname: "localhost",
-      port: 4321,
+      port: 49321,
       path: path,
       method: "POST",
       headers: Object.fromEntries([
@@ -62,7 +62,7 @@ function postEmpty(path) {
   return new Promise((resolve, reject) => {
     let req = Nodehttp.request({
       hostname: "localhost",
-      port: 4321,
+      port: 49321,
       path: path,
       method: "POST",
       headers: {}
@@ -80,7 +80,7 @@ function postRaw(path, body) {
   return new Promise((resolve, reject) => {
     let req = Nodehttp.request({
       hostname: "localhost",
-      port: 4321,
+      port: 49321,
       path: path,
       method: "POST",
       headers: Object.fromEntries([
@@ -123,7 +123,7 @@ globalThis.beforeAll(async () => {
     provider: "InMemory"
   });
   DomainGraphQL_Server$ReventlessLocal.reset();
-  DomainGraphQL_Server$ReventlessLocal.start(4321, undefined, undefined);
+  DomainGraphQL_Server$ReventlessLocal.start(49321, undefined, undefined);
   return await new Promise((resolve, param) => {
     setTimeout(() => resolve(), 50);
   });
@@ -224,7 +224,7 @@ globalThis.test("Bearer token issued via HTTP round-trips through authenticate",
   globalThis.expect(identity.groups).toEqual(["Editor"]);
 });
 
-let port = 4321;
+let port = 49321;
 
 export {
   port,

package/tests/adapter/LocalDispatchContextTest.res

@@ -0,0 +1,83 @@
+// What a handler dispatched on the in-process platform sees in its RequestContext.
+//
+// The counterpart of reventless-aws's HandlerFactoryDispatchTest: that one covers
+// the deployed entry-point shim, this one covers `Runtime.runEffectHandler` wired
+// with `LocalRuntimeEnvironment`'s extractors — the exact composition every local
+// runtime builder uses (LocalEventCollectorRuntime_Builder,
+// LocalAggregateRuntime_Builder). Without it, the local half of "a handler can
+// compute latency from RequestContext.timestamp and branch on retryCount on both
+// platforms" rests on the extractors merely compiling.
+//
+// See docs/plans/entrypoint-dispatch-parity-and-latency-fields.md.
+
+open JestGlobals
+
+let _ = TestRunner.setup()
+
+// Hand the provided context back as the handler's result — the assertions then
+// see exactly what an application handler would.
+let capture = (_event, _ctx) =>
+  Effect.serviceWith(ReventlessCore.RequestContext.tag, ctx => ctx)
+
+let comp = "EventCollector(TestCollector)"
+
+let dispatch = (event: JSON.t): promise<ReventlessCore.RequestContext.t> => {
+  let handler =
+    capture
+    ->LocalRuntimeEnvironment.asEffectHandler
+    ->ReventlessCore.Runtime.runEffectHandler(
+      ~extractCorrelationId=LocalRuntimeEnvironment.extractCorrelationId,
+      ~extractCausationId=LocalRuntimeEnvironment.extractCausationId,
+      ~extractSentTimestamp=LocalRuntimeEnvironment.extractSentTimestamp,
+      ~extractRetryCount=LocalRuntimeEnvironment.extractRetryCount,
+      ~comp,
+    )
+  handler(event, ())
+}
+
+let eventWithMeta = (~correlationId, ~causationId=?, ()) => {
+  let meta = Dict.fromArray([("correlationId", correlationId->JSON.Encode.string)])
+  switch causationId {
+  | Some(id) => meta->Dict.set("causationId", id->JSON.Encode.string)
+  | None => ()
+  }
+  Dict.fromArray([("meta", meta->JSON.Encode.object)])->JSON.Encode.object
+}
+
+describe("local dispatch boundary", () => {
+  testPromise("carries the envelope identity through to the handler", async () => {
+    let ctx = await dispatch(
+      eventWithMeta(~correlationId="corr-local", ~causationId="cause-local", ()),
+    )
+    expect(ctx.correlationId)->toBe("corr-local")
+    expect(ctx.causationId)->toEqual(Some("cause-local"))
+    expect(ctx.component)->toEqual(Some(comp))
+  })
+
+  testPromise("falls back to a placeholder when the event carries no correlationId", async () => {
+    let ctx = await dispatch(JSON.Encode.object(Dict.make()))
+    expect(ctx.correlationId)->toBe("unknown")
+    expect(ctx.causationId)->toEqual(None)
+  })
+
+  // In-process dispatch has no queue to dwell in, so send time *is* dispatch
+  // time — a handler computing `now - timestamp` measures its own processing
+  // latency here and end-to-end latency on a queue-backed platform, from the
+  // same expression.
+  testPromise("supplies a send time a handler can measure latency against", async () => {
+    let before = Date.now()
+    let ctx = await dispatch(eventWithMeta(~correlationId="corr-local", ()))
+    let after = Date.now()
+    switch ctx.timestamp {
+    | Some(t) => expect(t >= before && t <= after)->toBe(true)
+    | None => fail("expected RequestContext.timestamp to be populated on the local platform")
+    }
+  })
+
+  // The bus calls each handler once; a handler branching on redelivery must see
+  // a first delivery here rather than a missing field.
+  testPromise("reports a first delivery", async () => {
+    let ctx = await dispatch(eventWithMeta(~correlationId="corr-local", ()))
+    expect(ctx.retryCount)->toEqual(Some(1))
+  })
+})

package/tests/adapter/LocalDispatchContextTest.res.mjs

@@ -0,0 +1,73 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Effect from "@reventlessdev/rescript-effect/src/Effect.res.mjs";
+import * as JestGlobals from "@reventlessdev/rescript-jest/src/JestGlobals.res.mjs";
+import * as Runtime$ReventlessCore from "@reventlessdev/reventless-core/src/adapter/Runtime/Runtime.res.mjs";
+import * as TestRunner$ReventlessLocal from "../../src/test/TestRunner.res.mjs";
+import * as RequestContext$ReventlessCore from "@reventlessdev/reventless-core/src/RequestContext.res.mjs";
+import * as LocalRuntimeEnvironment$ReventlessLocal from "../../src/adapter/Runtime/LocalRuntimeEnvironment.res.mjs";
+
+TestRunner$ReventlessLocal.setup();
+
+function capture(_event, _ctx) {
+  return Effect.serviceWith(RequestContext$ReventlessCore.tag, ctx => ctx);
+}
+
+let comp = "EventCollector(TestCollector)";
+
+function dispatch(event) {
+  let handler = Runtime$ReventlessCore.runEffectHandler(LocalRuntimeEnvironment$ReventlessLocal.extractCorrelationId, LocalRuntimeEnvironment$ReventlessLocal.extractCausationId, LocalRuntimeEnvironment$ReventlessLocal.extractSentTimestamp, LocalRuntimeEnvironment$ReventlessLocal.extractRetryCount, comp, undefined, capture);
+  return handler(event, undefined);
+}
+
+function eventWithMeta(correlationId, causationId, param) {
+  let meta = Object.fromEntries([[
+      "correlationId",
+      correlationId
+    ]]);
+  if (causationId !== undefined) {
+    meta["causationId"] = causationId;
+  }
+  return Object.fromEntries([[
+      "meta",
+      meta
+    ]]);
+}
+
+globalThis.describe("local dispatch boundary", () => {
+  globalThis.test("carries the envelope identity through to the handler", async () => {
+    let ctx = await dispatch(eventWithMeta("corr-local", "cause-local", undefined));
+    globalThis.expect(ctx.correlationId).toBe("corr-local");
+    globalThis.expect(ctx.causationId).toEqual("cause-local");
+    globalThis.expect(ctx.component).toEqual(comp);
+  });
+  globalThis.test("falls back to a placeholder when the event carries no correlationId", async () => {
+    let ctx = await dispatch({});
+    globalThis.expect(ctx.correlationId).toBe("unknown");
+    globalThis.expect(ctx.causationId).toEqual(undefined);
+  });
+  globalThis.test("supplies a send time a handler can measure latency against", async () => {
+    let before = Date.now();
+    let ctx = await dispatch(eventWithMeta("corr-local", undefined, undefined));
+    let after = Date.now();
+    let t = ctx.timestamp;
+    if (t !== undefined) {
+      globalThis.expect(t >= before && t <= after).toBe(true);
+      return;
+    } else {
+      return JestGlobals.fail("expected RequestContext.timestamp to be populated on the local platform");
+    }
+  });
+  globalThis.test("reports a first delivery", async () => {
+    let ctx = await dispatch(eventWithMeta("corr-local", undefined, undefined));
+    globalThis.expect(ctx.retryCount).toEqual(1);
+  });
+});
+
+export {
+  capture,
+  comp,
+  dispatch,
+  eventWithMeta,
+}
+/*  Not a pure module */

package/tests/adapter/ProjectionCheckpointTest.res

@@ -92,7 +92,7 @@ describe("ProjectionCheckpoint", () => {
           let db = makeFreshDb()
         }
         module Storage = EventLogStorage_Sqlite.Make(TestBus, DbProvider)
-        let s = Storage.make(~name="agg", ~opts)
+        let s = Storage.make(~name="agg", ~owner=None, ~opts)
         let ops = await s.operations->TestRunner.resolve
 
         // Batch A (rowids 1-2) appended before batch B (rowid 3).
@@ -132,7 +132,7 @@ describe("ProjectionCheckpoint", () => {
         let db = makeFreshDb()
       }
       module Storage = EventLogStorage_Sqlite.Make(TestBus, DbProvider)
-      let s = Storage.make(~name="agg", ~opts)
+      let s = Storage.make(~name="agg", ~owner=None, ~opts)
       let ops = await s.operations->TestRunner.resolve
 
       // Bulk replay path: no publish cycle will ever resolve these, so they
@@ -217,7 +217,7 @@ describe("ProjectionCheckpoint", () => {
         let db = makeFreshDb()
       }
       module Storage = EventLogStorage_Sqlite.Make(TestBus, DbProvider)
-      let s = Storage.make(~name="agg", ~opts)
+      let s = Storage.make(~name="agg", ~owner=None, ~opts)
       let ops = await s.operations->TestRunner.resolve
       let db = DbProvider.db
 
@@ -283,7 +283,7 @@ describe("ProjectionCheckpoint", () => {
         let db = makeFreshDb()
       }
       module Storage = EventLogStorage_Sqlite.Make(TestBus, DbProvider)
-      let s = Storage.make(~name="agg", ~opts)
+      let s = Storage.make(~name="agg", ~owner=None, ~opts)
       let ops = await s.operations->TestRunner.resolve
       let db = DbProvider.db
 
@@ -390,7 +390,7 @@ describe("ProjectionCheckpoint", () => {
         let db = makeFreshDb()
       }
       module AggStorage = EventLogStorage_Sqlite.Make(TestBus, DbProvider)
-      let aggS = AggStorage.make(~name="agg", ~opts)
+      let aggS = AggStorage.make(~name="agg", ~owner=None, ~opts)
       let aggOps = await aggS.operations->TestRunner.resolve
       let db = DbProvider.db
       let dcbOps = await makeDcbStorage(db, ~name="dcb-log")

package/tests/adapter/ProjectionCheckpointTest.res.mjs

@@ -119,7 +119,7 @@ globalThis.describe("ProjectionCheckpoint", () => {
         db: db
       };
       let Storage = EventLogStorage_Sqlite$ReventlessLocal.Make(TestBus)(DbProvider);
-      let s = Storage.make("agg", opts);
+      let s = Storage.make("agg", undefined, opts);
       let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
       await ops.append(0, "id-1", [
         flatEvent("id-1", 0, "Created", undefined, "a1", undefined),
@@ -145,7 +145,7 @@ globalThis.describe("ProjectionCheckpoint", () => {
         db: db
       };
       let Storage = EventLogStorage_Sqlite$ReventlessLocal.Make(TestBus)(DbProvider);
-      let s = Storage.make("agg", opts);
+      let s = Storage.make("agg", undefined, opts);
       let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
       await Effect.runPromise(ops.appendStream(0, "id-bulk", Stream.fromIterable([
         flatEvent("id-bulk", 0, "Created", undefined, "s1", undefined),
@@ -212,7 +212,7 @@ globalThis.describe("ProjectionCheckpoint", () => {
         db: db
       };
       let Storage = EventLogStorage_Sqlite$ReventlessLocal.Make(TestBus)(DbProvider);
-      let s = Storage.make("agg", opts);
+      let s = Storage.make("agg", undefined, opts);
       let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
       await ops.append(0, "id-1", [flatEvent("id-1", 0, "Created", undefined, "m1", undefined)]);
       await ops.append(0, "id-2", [flatEvent("id-2", 0, "Created", undefined, "m2", undefined)]);
@@ -280,7 +280,7 @@ globalThis.describe("ProjectionCheckpoint", () => {
         db: db
       };
       let Storage = EventLogStorage_Sqlite$ReventlessLocal.Make(TestBus)(DbProvider);
-      let s = Storage.make("agg", opts);
+      let s = Storage.make("agg", undefined, opts);
       let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
       await ops.append(0, "id-1", [flatEvent("id-1", 0, "Created", undefined, "m1", undefined)]);
       let match = makeHandler();
@@ -368,7 +368,7 @@ globalThis.describe("ProjectionCheckpoint", () => {
         db: db
       };
       let AggStorage = EventLogStorage_Sqlite$ReventlessLocal.Make(TestBus)(DbProvider);
-      let aggS = AggStorage.make("agg", opts);
+      let aggS = AggStorage.make("agg", undefined, opts);
       let aggOps = await TestRunner$ReventlessLocal.resolve(aggS.operations);
       let dcbOps = await makeDcbStorage(db, "dcb-log");
       await aggOps.append(0, "id-1", [flatEvent("id-1", 0, "Created", undefined, "agg1", undefined)]);

package/tests/adapter/QueryDbGsiTtlTest.res

@@ -41,7 +41,7 @@ describe("QueryDbStorage_Sqlite — GSI", () => {
       ~indexes=[byOwnerIdx, byOwnerCreatedIdx],
       ~api=(),
       ~apiRole=(),
-      ~opts,
+      ~owner=None, ~opts,
     )
 
     // Verify the indexes were created in sqlite_master.
@@ -95,7 +95,7 @@ describe("QueryDbStorage_Sqlite — GSI", () => {
       ~indexes=[compositeIdx],
       ~api=(),
       ~apiRole=(),
-      ~opts,
+      ~owner=None, ~opts,
     )
 
     let listSql = DbProvider.db->SqliteDriver.prepare(
@@ -129,7 +129,7 @@ describe("QueryDbStorage_Sqlite — GSI", () => {
       ~indexes=[weirdIdx],
       ~api=(),
       ~apiRole=(),
-      ~opts,
+      ~owner=None, ~opts,
     )
     let listIndexes = DbProvider.db->SqliteDriver.prepare(
       "SELECT name FROM sqlite_master WHERE type='index' AND tbl_name='qdb_rm'",
@@ -166,7 +166,7 @@ describe("QueryDb — indexed equality lookup (B4 push-down)", () => {
       let db = openFreshDb()
     }
     module Storage = QueryDbStorage_Sqlite.Make(TestBus, DbProvider)
-    let s = Storage.make(~name="orders", ~indexes=[byOwner], ~api=(), ~apiRole=(), ~opts)
+    let s = Storage.make(~name="orders", ~indexes=[byOwner], ~api=(), ~apiRole=(), ~owner=None, ~opts)
     let ops = await s.operations->TestRunner.resolve
     let _ = await ops.save("k1", item("o1"), ReventlessCore.QueryDb.Any, None)
     let _ = await ops.save("k2", item("o2"), ReventlessCore.QueryDb.Any, None)
@@ -184,7 +184,7 @@ describe("QueryDb — indexed equality lookup (B4 push-down)", () => {
       let db = openFreshDb()
     }
     module Storage = QueryDbStorage_Sqlite.Make(TestBus, DbProvider)
-    let s = Storage.make(~name="orders", ~indexes=[byOwner], ~api=(), ~apiRole=(), ~opts)
+    let s = Storage.make(~name="orders", ~indexes=[byOwner], ~api=(), ~apiRole=(), ~owner=None, ~opts)
     let ops = await s.operations->TestRunner.resolve
     let aMinuteAgo = Float.toInt(Date.now() /. 1000.0) - 60
     let _ = await ops.save("k1", item("o1"), ReventlessCore.QueryDb.Any, None)
@@ -196,7 +196,7 @@ describe("QueryDb — indexed equality lookup (B4 push-down)", () => {
   testPromise("in-memory lookup matches the sqlite result (backend parity)", async () => {
     module TestBus = LocalBus.Make()
     module Storage = QueryDbStorage_InMemory.Make(TestBus)
-    let s = Storage.make(~name="orders", ~indexes=[byOwner], ~api=(), ~apiRole=(), ~opts)
+    let s = Storage.make(~name="orders", ~indexes=[byOwner], ~api=(), ~apiRole=(), ~owner=None, ~opts)
     let ops = await s.operations->TestRunner.resolve
     let _ = await ops.save("k1", item("o1"), ReventlessCore.QueryDb.Any, None)
     let _ = await ops.save("k2", item("o2"), ReventlessCore.QueryDb.Any, None)
@@ -212,7 +212,7 @@ describe("QueryDbStorage_InMemory — lazy scan snapshot (B4 dirty-flag)", () =>
   testPromise("interleaved save/scan reflects each write without stale reads", async () => {
     module TestBus = LocalBus.Make()
     module Storage = LocalQueryDbStorage.Make(TestBus)
-    let s = Storage.make(~name="lazy", ~indexes=[], ~api=(), ~apiRole=(), ~opts)
+    let s = Storage.make(~name="lazy", ~indexes=[], ~api=(), ~apiRole=(), ~owner=None, ~opts)
     let ops = await s.operations->TestRunner.resolve
     let scanFn = TestBus.getQueryDbScan("lazy")->Option.getOrThrow
     expect(scanFn()->Array.length)->toBe(0)
@@ -233,7 +233,7 @@ describe("QueryDbStorage_Sqlite — TTL", () => {
     }
     module Storage = QueryDbStorage_Sqlite.Make(TestBus, DbProvider)
 
-    let s = Storage.make(~name="rt-future", ~indexes=[], ~api=(), ~apiRole=(), ~opts)
+    let s = Storage.make(~name="rt-future", ~indexes=[], ~api=(), ~apiRole=(), ~owner=None, ~opts)
     let ops = await s.operations->TestRunner.resolve
 
     let oneHourFromNow = Float.toInt(Date.now() /. 1000.0) + 3600
@@ -255,7 +255,7 @@ describe("QueryDbStorage_Sqlite — TTL", () => {
     }
     module Storage = QueryDbStorage_Sqlite.Make(TestBus, DbProvider)
 
-    let s = Storage.make(~name="rt-past", ~indexes=[], ~api=(), ~apiRole=(), ~opts)
+    let s = Storage.make(~name="rt-past", ~indexes=[], ~api=(), ~apiRole=(), ~owner=None, ~opts)
     let ops = await s.operations->TestRunner.resolve
 
     let aMinuteAgo = Float.toInt(Date.now() /. 1000.0) - 60
@@ -277,7 +277,7 @@ describe("QueryDbStorage_Sqlite — TTL", () => {
     }
     module Storage = QueryDbStorage_Sqlite.Make(TestBus, DbProvider)
 
-    let s = Storage.make(~name="rt-none", ~indexes=[], ~api=(), ~apiRole=(), ~opts)
+    let s = Storage.make(~name="rt-none", ~indexes=[], ~api=(), ~apiRole=(), ~owner=None, ~opts)
     let ops = await s.operations->TestRunner.resolve
 
     let _ = await ops.save("k", JSON.Encode.string("forever"), ReventlessCore.QueryDb.Any, None)
@@ -293,7 +293,7 @@ describe("QueryDbStorage_Sqlite — TTL", () => {
     }
     module Storage = QueryDbStorage_Sqlite.Make(TestBus, DbProvider)
 
-    let s = Storage.make(~name="scan-ttl", ~indexes=[], ~api=(), ~apiRole=(), ~opts)
+    let s = Storage.make(~name="scan-ttl", ~indexes=[], ~api=(), ~apiRole=(), ~owner=None, ~opts)
     let ops = await s.operations->TestRunner.resolve
 
     let _ = await ops.save("alive", JSON.Encode.string("a"), ReventlessCore.QueryDb.Any, None)
@@ -319,7 +319,7 @@ describe("QueryDbStorage_Sqlite — TTL", () => {
     }
     module Storage = QueryDbStorage_Sqlite.Make(TestBus, DbProvider)
 
-    let s = Storage.make(~name="overwrite-ttl", ~indexes=[], ~api=(), ~apiRole=(), ~opts)
+    let s = Storage.make(~name="overwrite-ttl", ~indexes=[], ~api=(), ~apiRole=(), ~owner=None, ~opts)
     let ops = await s.operations->TestRunner.resolve
 
     let aMinuteAgo = Float.toInt(Date.now() /. 1000.0) - 60

package/tests/adapter/QueryDbGsiTtlTest.res.mjs

@@ -44,7 +44,7 @@ globalThis.describe("QueryDbStorage_Sqlite — GSI", () => {
         subIdField: "createdAt",
         projectionType: "KEYS_ONLY"
       }
-    ], undefined, undefined, undefined, undefined, opts);
+    ], undefined, undefined, undefined, undefined, undefined, opts);
     let listIndexes = SqliteDriver$ReventlessLocal.prepare(db, "SELECT name, sql FROM sqlite_master WHERE type='index' AND tbl_name='qdb_orders' ORDER BY name");
     let rows = SqliteDriver$ReventlessLocal.all(listIndexes, []);
     let names = rows.map(row => {
@@ -89,7 +89,7 @@ globalThis.describe("QueryDbStorage_Sqlite — GSI", () => {
       pkSep: compositeIdx_pkSep,
       projectionType: "ALL"
     };
-    Storage.make("composite", [compositeIdx], undefined, undefined, undefined, undefined, opts);
+    Storage.make("composite", [compositeIdx], undefined, undefined, undefined, undefined, undefined, opts);
     let listSql = SqliteDriver$ReventlessLocal.prepare(db, "SELECT sql FROM sqlite_master WHERE type='index' AND name='idx_qdb_composite_ByTenantOwner'");
     let row = Stdlib_Option.getOrThrow(SqliteDriver$ReventlessLocal.get(listSql, []), undefined);
     let match = row["sql"];
@@ -108,7 +108,7 @@ globalThis.describe("QueryDbStorage_Sqlite — GSI", () => {
         type_: "S",
         idField: "thing",
         projectionType: "ALL"
-      }], undefined, undefined, undefined, undefined, opts);
+      }], undefined, undefined, undefined, undefined, undefined, opts);
     let listIndexes = SqliteDriver$ReventlessLocal.prepare(db, "SELECT name FROM sqlite_master WHERE type='index' AND tbl_name='qdb_rm'");
     let names = SqliteDriver$ReventlessLocal.all(listIndexes, []).map(row => {
       let match = row["name"];
@@ -141,7 +141,7 @@ globalThis.describe("QueryDb — indexed equality lookup (B4 push-down)", () =>
       db: db
     };
     let Storage = QueryDbStorage_Sqlite$ReventlessLocal.Make(TestBus)(DbProvider);
-    let s = Storage.make("orders", [byOwner], undefined, undefined, undefined, undefined, opts);
+    let s = Storage.make("orders", [byOwner], undefined, undefined, undefined, undefined, undefined, opts);
     let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
     await ops.save("k1", item("o1"), "Any", undefined);
     await ops.save("k2", item("o2"), "Any", undefined);
@@ -158,7 +158,7 @@ globalThis.describe("QueryDb — indexed equality lookup (B4 push-down)", () =>
       db: db
     };
     let Storage = QueryDbStorage_Sqlite$ReventlessLocal.Make(TestBus)(DbProvider);
-    let s = Storage.make("orders", [byOwner], undefined, undefined, undefined, undefined, opts);
+    let s = Storage.make("orders", [byOwner], undefined, undefined, undefined, undefined, undefined, opts);
     let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
     let aMinuteAgo = (Date.now() / 1000.0 | 0) - 60 | 0;
     await ops.save("k1", item("o1"), "Any", undefined);
@@ -169,7 +169,7 @@ globalThis.describe("QueryDb — indexed equality lookup (B4 push-down)", () =>
   globalThis.test("in-memory lookup matches the sqlite result (backend parity)", async () => {
     let TestBus = LocalBus$ReventlessLocal.Make({});
     let Storage = QueryDbStorage_InMemory$ReventlessLocal.Make(TestBus);
-    let s = Storage.make("orders", [byOwner], undefined, undefined, undefined, undefined, opts);
+    let s = Storage.make("orders", [byOwner], undefined, undefined, undefined, undefined, undefined, opts);
     let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
     await ops.save("k1", item("o1"), "Any", undefined);
     await ops.save("k2", item("o2"), "Any", undefined);
@@ -185,7 +185,7 @@ globalThis.describe("QueryDbStorage_InMemory — lazy scan snapshot (B4 dirty-fl
   globalThis.test("interleaved save/scan reflects each write without stale reads", async () => {
     let TestBus = LocalBus$ReventlessLocal.Make({});
     let Storage = LocalQueryDbStorage$ReventlessLocal.Make(TestBus);
-    let s = Storage.make("lazy", [], undefined, undefined, undefined, undefined, opts);
+    let s = Storage.make("lazy", [], undefined, undefined, undefined, undefined, undefined, opts);
     let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
     let scanFn = Stdlib_Option.getOrThrow(TestBus.getQueryDbScan("lazy"), undefined);
     globalThis.expect(scanFn().length).toBe(0);
@@ -206,7 +206,7 @@ globalThis.describe("QueryDbStorage_Sqlite — TTL", () => {
       db: db
     };
     let Storage = QueryDbStorage_Sqlite$ReventlessLocal.Make(TestBus)(DbProvider);
-    let s = Storage.make("rt-future", [], undefined, undefined, undefined, undefined, opts);
+    let s = Storage.make("rt-future", [], undefined, undefined, undefined, undefined, undefined, opts);
     let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
     let oneHourFromNow = (Date.now() / 1000.0 | 0) + 3600 | 0;
     await ops.save("k", "alive", "Any", oneHourFromNow);
@@ -220,7 +220,7 @@ globalThis.describe("QueryDbStorage_Sqlite — TTL", () => {
       db: db
     };
     let Storage = QueryDbStorage_Sqlite$ReventlessLocal.Make(TestBus)(DbProvider);
-    let s = Storage.make("rt-past", [], undefined, undefined, undefined, undefined, opts);
+    let s = Storage.make("rt-past", [], undefined, undefined, undefined, undefined, undefined, opts);
     let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
     let aMinuteAgo = (Date.now() / 1000.0 | 0) - 60 | 0;
     await ops.save("k", "expired", "Any", aMinuteAgo);
@@ -234,7 +234,7 @@ globalThis.describe("QueryDbStorage_Sqlite — TTL", () => {
       db: db
     };
     let Storage = QueryDbStorage_Sqlite$ReventlessLocal.Make(TestBus)(DbProvider);
-    let s = Storage.make("rt-none", [], undefined, undefined, undefined, undefined, opts);
+    let s = Storage.make("rt-none", [], undefined, undefined, undefined, undefined, undefined, opts);
     let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
     await ops.save("k", "forever", "Any", undefined);
     let items = await collect(ops.loadStream("k"));
@@ -247,7 +247,7 @@ globalThis.describe("QueryDbStorage_Sqlite — TTL", () => {
       db: db
     };
     let Storage = QueryDbStorage_Sqlite$ReventlessLocal.Make(TestBus)(DbProvider);
-    let s = Storage.make("scan-ttl", [], undefined, undefined, undefined, undefined, opts);
+    let s = Storage.make("scan-ttl", [], undefined, undefined, undefined, undefined, undefined, opts);
     let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
     await ops.save("alive", "a", "Any", undefined);
     let aMinuteAgo = (Date.now() / 1000.0 | 0) - 60 | 0;
@@ -266,7 +266,7 @@ globalThis.describe("QueryDbStorage_Sqlite — TTL", () => {
       db: db
     };
     let Storage = QueryDbStorage_Sqlite$ReventlessLocal.Make(TestBus)(DbProvider);
-    let s = Storage.make("overwrite-ttl", [], undefined, undefined, undefined, undefined, opts);
+    let s = Storage.make("overwrite-ttl", [], undefined, undefined, undefined, undefined, undefined, opts);
     let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
     let aMinuteAgo = (Date.now() / 1000.0 | 0) - 60 | 0;
     await ops.save("k", "expired", "Any", aMinuteAgo);

package/tests/adapter/QueryDbListPushdownParityTest.res

@@ -55,7 +55,7 @@ let build = async (): setup => {
     let db = SqliteDriver.openDb(~path=":memory:")
   }
   module Storage = QueryDbStorage_Sqlite.Make(TestBus, DbProvider)
-  let s = Storage.make(~name="items", ~indexes=[], ~api=(), ~apiRole=(), ~opts)
+  let s = Storage.make(~name="items", ~indexes=[], ~api=(), ~apiRole=(), ~owner=None, ~opts)
   let ops = await s.operations->TestRunner.resolve
   for i in 0 to rows->Array.length - 1 {
     let (id, status, name, qty) = rows->Array.getUnsafe(i)

package/tests/adapter/QueryDbListPushdownParityTest.res.mjs

@@ -85,7 +85,7 @@ async function build() {
     db: db
   };
   let Storage = QueryDbStorage_Sqlite$ReventlessLocal.Make(TestBus)(DbProvider);
-  let s = Storage.make("items", [], undefined, undefined, undefined, undefined, opts);
+  let s = Storage.make("items", [], undefined, undefined, undefined, undefined, undefined, opts);
   let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
   for (let i = 0, i_finish = rows.length; i < i_finish; ++i) {
     let match = rows[i];

package/tests/adapter/QueryDbListResolverTest.res.mjs

@@ -145,7 +145,7 @@ async function buildFixture(name) {
     connectionSpec: true
   };
   Plugin_Helpers$ReventlessCore.stateSchemaRegistry[name] = rowStateSchemaWithAnnotations;
-  let queryDb = Maker.make(undefined, undefined, undefined, undefined);
+  let queryDb = Maker.make(undefined, undefined, undefined, undefined, undefined);
   let ops = await TestRunner$ReventlessLocal.resolve(Component$ReventlessCore.operations(queryDb));
   Resolvers.make(name, undefined, undefined, Pulumi.output(""), [], undefined, [], [], "AllowAuthenticated", {});
   let r = DomainGraphQL_Server$ReventlessLocal.getQueryResolver(listFieldName);

package/tests/adapter/QueryDbStorageSqliteTest.res

@@ -15,7 +15,7 @@ describe("QueryDbStorage_Sqlite", () => {
     }
     module Storage = QueryDbStorage_Sqlite.Make(TestBus, DbProvider)
 
-    let s = Storage.make(~name="rm1", ~indexes=[], ~api=(), ~apiRole=(), ~opts)
+    let s = Storage.make(~name="rm1", ~indexes=[], ~api=(), ~apiRole=(), ~owner=None, ~opts)
     let ops = await s.operations->TestRunner.resolve
 
     let _ = await ops.save(
@@ -42,7 +42,7 @@ describe("QueryDbStorage_Sqlite", () => {
     }
     module Storage = QueryDbStorage_Sqlite.Make(TestBus, DbProvider)
 
-    let s = Storage.make(~name="rm2", ~indexes=[], ~api=(), ~apiRole=(), ~opts)
+    let s = Storage.make(~name="rm2", ~indexes=[], ~api=(), ~apiRole=(), ~owner=None, ~opts)
     let ops = await s.operations->TestRunner.resolve
 
     let _ = await ops.save("k", JSON.Encode.string("a"), ReventlessCore.QueryDb.Any, None)
@@ -65,7 +65,7 @@ describe("QueryDbStorage_Sqlite", () => {
     }
     module Storage = QueryDbStorage_Sqlite.Make(TestBus, DbProvider)
 
-    let s = Storage.make(~name="rm3", ~indexes=[], ~api=(), ~apiRole=(), ~opts)
+    let s = Storage.make(~name="rm3", ~indexes=[], ~api=(), ~apiRole=(), ~owner=None, ~opts)
     let ops = await s.operations->TestRunner.resolve
 
     let _ = await ops.saveBatch([
@@ -102,7 +102,7 @@ describe("QueryDbStorage_Sqlite", () => {
     }
     module Storage = QueryDbStorage_Sqlite.Make(TestBus, DbProvider)
 
-    let s = Storage.make(~name="rm4", ~indexes=[], ~api=(), ~apiRole=(), ~opts)
+    let s = Storage.make(~name="rm4", ~indexes=[], ~api=(), ~apiRole=(), ~owner=None, ~opts)
     let ops = await s.operations->TestRunner.resolve
 
     let _ = await ops.save("k", JSON.Encode.string("a"), ReventlessCore.QueryDb.Any, None)
@@ -127,7 +127,7 @@ describe("QueryDbStorage_Sqlite", () => {
         let db = SqliteDriver.openDb(~path)
       }
       module Storage = QueryDbStorage_Sqlite.Make(TestBus, DbProvider)
-      let s = Storage.make(~name="persist", ~indexes=[], ~api=(), ~apiRole=(), ~opts)
+      let s = Storage.make(~name="persist", ~indexes=[], ~api=(), ~apiRole=(), ~owner=None, ~opts)
       let ops = await s.operations->TestRunner.resolve
       let _ = await ops.save(
         "k",
@@ -144,7 +144,7 @@ describe("QueryDbStorage_Sqlite", () => {
       let db = SqliteDriver.openDb(~path)
     }
     module Storage2 = QueryDbStorage_Sqlite.Make(TestBus2, DbProvider2)
-    let s2 = Storage2.make(~name="persist", ~indexes=[], ~api=(), ~apiRole=(), ~opts)
+    let s2 = Storage2.make(~name="persist", ~indexes=[], ~api=(), ~apiRole=(), ~owner=None, ~opts)
     let ops2 = await s2.operations->TestRunner.resolve
     let items =
       await ops2.loadStream("k")

package/tests/adapter/QueryDbStorageSqliteTest.res.mjs

@@ -23,7 +23,7 @@ globalThis.describe("QueryDbStorage_Sqlite", () => {
       db: db
     };
     let Storage = QueryDbStorage_Sqlite$ReventlessLocal.Make(TestBus)(DbProvider);
-    let s = Storage.make("rm1", [], undefined, undefined, undefined, undefined, opts);
+    let s = Storage.make("rm1", [], undefined, undefined, undefined, undefined, undefined, opts);
     let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
     await ops.save("id1", "value1", "Any", undefined);
     let items = await Effect.runPromise(Effect.catchAll(Stream.runCollect(ops.loadStream("id1")), param => Effect.succeed([])));
@@ -37,7 +37,7 @@ globalThis.describe("QueryDbStorage_Sqlite", () => {
       db: db
     };
     let Storage = QueryDbStorage_Sqlite$ReventlessLocal.Make(TestBus)(DbProvider);
-    let s = Storage.make("rm2", [], undefined, undefined, undefined, undefined, opts);
+    let s = Storage.make("rm2", [], undefined, undefined, undefined, undefined, undefined, opts);
     let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
     await ops.save("k", "a", "Any", undefined);
     await ops.save("k", "b", "Any", undefined);
@@ -52,7 +52,7 @@ globalThis.describe("QueryDbStorage_Sqlite", () => {
       db: db
     };
     let Storage = QueryDbStorage_Sqlite$ReventlessLocal.Make(TestBus)(DbProvider);
-    let s = Storage.make("rm3", [], undefined, undefined, undefined, undefined, opts);
+    let s = Storage.make("rm3", [], undefined, undefined, undefined, undefined, undefined, opts);
     let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
     await ops.saveBatch([
       [
@@ -85,7 +85,7 @@ globalThis.describe("QueryDbStorage_Sqlite", () => {
       db: db
     };
     let Storage = QueryDbStorage_Sqlite$ReventlessLocal.Make(TestBus)(DbProvider);
-    let s = Storage.make("rm4", [], undefined, undefined, undefined, undefined, opts);
+    let s = Storage.make("rm4", [], undefined, undefined, undefined, undefined, undefined, opts);
     let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
     await ops.save("k", "a", "Any", undefined);
     await ops.delete("k", undefined);
@@ -100,7 +100,7 @@ globalThis.describe("QueryDbStorage_Sqlite", () => {
       db: db
     };
     let Storage = QueryDbStorage_Sqlite$ReventlessLocal.Make(TestBus)(DbProvider);
-    let s = Storage.make("persist", [], undefined, undefined, undefined, undefined, opts);
+    let s = Storage.make("persist", [], undefined, undefined, undefined, undefined, undefined, opts);
     let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
     await ops.save("k", "hello", "Any", undefined);
     SqliteDriver$ReventlessLocal.close(db);
@@ -110,7 +110,7 @@ globalThis.describe("QueryDbStorage_Sqlite", () => {
       db: db$1
     };
     let Storage2 = QueryDbStorage_Sqlite$ReventlessLocal.Make(TestBus2)(DbProvider2);
-    let s2 = Storage2.make("persist", [], undefined, undefined, undefined, undefined, opts);
+    let s2 = Storage2.make("persist", [], undefined, undefined, undefined, undefined, undefined, opts);
     let ops2 = await TestRunner$ReventlessLocal.resolve(s2.operations);
     let items = await Effect.runPromise(Effect.catchAll(Stream.runCollect(ops2.loadStream("k")), param => Effect.succeed([])));
     globalThis.expect(items.length).toBe(1);