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

package/tests/adapter/QueryDbStorageTest.res

@@ -12,7 +12,7 @@ describe("QueryDbStorage_InMemory", () => {
     testPromise("save stores state; loadStream retrieves it by id", async () => {
       module TestBus = LocalBus.Make()
       module Storage = LocalQueryDbStorage.Make(TestBus)
-      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("id1", JSON.Encode.string("value1"), ReventlessCore.QueryDb.Any, None)
       let items =
@@ -27,7 +27,7 @@ describe("QueryDbStorage_InMemory", () => {
     testPromise("loadStream returns empty for unknown id", async () => {
       module TestBus = LocalBus.Make()
       module Storage = LocalQueryDbStorage.Make(TestBus)
-      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 items =
         await ops.loadStream("unknown")
@@ -40,7 +40,7 @@ describe("QueryDbStorage_InMemory", () => {
     testPromise("save overwrites previous state for same id", async () => {
       module TestBus = LocalBus.Make()
       module Storage = LocalQueryDbStorage.Make(TestBus)
-      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.save("id1", JSON.Encode.string("old"), ReventlessCore.QueryDb.Any, None)
       let _ = await ops.save("id1", JSON.Encode.string("new"), ReventlessCore.QueryDb.Any, None)
@@ -56,7 +56,7 @@ describe("QueryDbStorage_InMemory", () => {
     testPromise("load delegates to loadStream (backward-compat)", async () => {
       module TestBus = LocalBus.Make()
       module Storage = LocalQueryDbStorage.Make(TestBus)
-      let s = Storage.make(~name="load-compat", ~indexes=[], ~api=(), ~apiRole=(), ~opts)
+      let s = Storage.make(~name="load-compat", ~indexes=[], ~api=(), ~apiRole=(), ~owner=None, ~opts)
       let ops = await s.operations->TestRunner.resolve
       let _ = await ops.save("compat-id", JSON.Encode.string("compat-val"), ReventlessCore.QueryDb.Any, None)
       let streamed = await ops.loadStream("compat-id")->Stream.runCollect->Effect.runPromise
@@ -69,7 +69,7 @@ describe("QueryDbStorage_InMemory", () => {
     testPromise("stores multiple items; loadStream retrieves each by id", async () => {
       module TestBus = LocalBus.Make()
       module Storage = LocalQueryDbStorage.Make(TestBus)
-      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.saveBatch([
         ("a", JSON.Encode.string("val-a"), None),
@@ -94,7 +94,7 @@ describe("QueryDbStorage_InMemory", () => {
     testPromise("returns the increment value (no real counting semantics)", async () => {
       module TestBus = LocalBus.Make()
       module Storage = LocalQueryDbStorage.Make(TestBus)
-      let s = Storage.make(~name="rm5", ~indexes=[], ~api=(), ~apiRole=(), ~opts)
+      let s = Storage.make(~name="rm5", ~indexes=[], ~api=(), ~apiRole=(), ~owner=None, ~opts)
       let ops = await s.operations->TestRunner.resolve
       let result = await ops.count("id1", "field", 5)
       expect(result)->toEqual(Ok(5))
@@ -105,7 +105,7 @@ describe("QueryDbStorage_InMemory", () => {
     testPromise("removes item; loadStream returns empty", async () => {
       module TestBus = LocalBus.Make()
       module Storage = LocalQueryDbStorage.Make(TestBus)
-      let s = Storage.make(~name="rm6", ~indexes=[], ~api=(), ~apiRole=(), ~opts)
+      let s = Storage.make(~name="rm6", ~indexes=[], ~api=(), ~apiRole=(), ~owner=None, ~opts)
       let ops = await s.operations->TestRunner.resolve
       let _ = await ops.save("del-id", JSON.Encode.string("v"), ReventlessCore.QueryDb.Any, None)
       let _ = await ops.delete("del-id", None)
@@ -120,7 +120,7 @@ describe("QueryDbStorage_InMemory", () => {
     testPromise("deleteBatch removes multiple items", async () => {
       module TestBus = LocalBus.Make()
       module Storage = LocalQueryDbStorage.Make(TestBus)
-      let s = Storage.make(~name="rm7", ~indexes=[], ~api=(), ~apiRole=(), ~opts)
+      let s = Storage.make(~name="rm7", ~indexes=[], ~api=(), ~apiRole=(), ~owner=None, ~opts)
       let ops = await s.operations->TestRunner.resolve
       let _ = await ops.saveBatch([
         ("x", JSON.Encode.string("vx"), None),
@@ -146,7 +146,7 @@ describe("QueryDbStorage_InMemory", () => {
     testPromise("after save, scan function returns all stored items", async () => {
       module TestBus = LocalBus.Make()
       module Storage = LocalQueryDbStorage.Make(TestBus)
-      let s = Storage.make(~name="scan-rm", ~indexes=[], ~api=(), ~apiRole=(), ~opts)
+      let s = Storage.make(~name="scan-rm", ~indexes=[], ~api=(), ~apiRole=(), ~owner=None, ~opts)
       let ops = await s.operations->TestRunner.resolve
       let _ = await ops.save("s1", JSON.Encode.string("item1"), ReventlessCore.QueryDb.Any, None)
       let _ = await ops.save("s2", JSON.Encode.string("item2"), ReventlessCore.QueryDb.Any, None)
@@ -158,7 +158,7 @@ describe("QueryDbStorage_InMemory", () => {
     testPromise("after delete, scan function excludes deleted item", async () => {
       module TestBus = LocalBus.Make()
       module Storage = LocalQueryDbStorage.Make(TestBus)
-      let s = Storage.make(~name="scan-rm2", ~indexes=[], ~api=(), ~apiRole=(), ~opts)
+      let s = Storage.make(~name="scan-rm2", ~indexes=[], ~api=(), ~apiRole=(), ~owner=None, ~opts)
       let ops = await s.operations->TestRunner.resolve
       let _ = await ops.save("keep", JSON.Encode.string("keep"), ReventlessCore.QueryDb.Any, None)
       let _ = await ops.save("gone", JSON.Encode.string("gone"), ReventlessCore.QueryDb.Any, None)

package/tests/adapter/QueryDbStorageTest.res.mjs

@@ -16,7 +16,7 @@ globalThis.describe("QueryDbStorage_InMemory", () => {
     globalThis.test("save stores state; loadStream retrieves it by id", async () => {
       let TestBus = LocalBus$ReventlessLocal.Make({});
       let Storage = LocalQueryDbStorage$ReventlessLocal.Make(TestBus);
-      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([])));
@@ -26,7 +26,7 @@ globalThis.describe("QueryDbStorage_InMemory", () => {
     globalThis.test("loadStream returns empty for unknown id", async () => {
       let TestBus = LocalBus$ReventlessLocal.Make({});
       let Storage = LocalQueryDbStorage$ReventlessLocal.Make(TestBus);
-      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);
       let items = await Effect.runPromise(Effect.catchAll(Stream.runCollect(ops.loadStream("unknown")), param => Effect.succeed([])));
       globalThis.expect(items.length).toBe(0);
@@ -34,7 +34,7 @@ globalThis.describe("QueryDbStorage_InMemory", () => {
     globalThis.test("save overwrites previous state for same id", async () => {
       let TestBus = LocalBus$ReventlessLocal.Make({});
       let Storage = LocalQueryDbStorage$ReventlessLocal.Make(TestBus);
-      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.save("id1", "old", "Any", undefined);
       await ops.save("id1", "new", "Any", undefined);
@@ -45,7 +45,7 @@ globalThis.describe("QueryDbStorage_InMemory", () => {
     globalThis.test("load delegates to loadStream (backward-compat)", async () => {
       let TestBus = LocalBus$ReventlessLocal.Make({});
       let Storage = LocalQueryDbStorage$ReventlessLocal.Make(TestBus);
-      let s = Storage.make("load-compat", [], undefined, undefined, undefined, undefined, opts);
+      let s = Storage.make("load-compat", [], undefined, undefined, undefined, undefined, undefined, opts);
       let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
       await ops.save("compat-id", "compat-val", "Any", undefined);
       let streamed = await Effect.runPromise(Stream.runCollect(ops.loadStream("compat-id")));
@@ -60,7 +60,7 @@ globalThis.describe("QueryDbStorage_InMemory", () => {
     globalThis.test("stores multiple items; loadStream retrieves each by id", async () => {
       let TestBus = LocalBus$ReventlessLocal.Make({});
       let Storage = LocalQueryDbStorage$ReventlessLocal.Make(TestBus);
-      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.saveBatch([
         [
@@ -84,7 +84,7 @@ globalThis.describe("QueryDbStorage_InMemory", () => {
     globalThis.test("returns the increment value (no real counting semantics)", async () => {
       let TestBus = LocalBus$ReventlessLocal.Make({});
       let Storage = LocalQueryDbStorage$ReventlessLocal.Make(TestBus);
-      let s = Storage.make("rm5", [], undefined, undefined, undefined, undefined, opts);
+      let s = Storage.make("rm5", [], undefined, undefined, undefined, undefined, undefined, opts);
       let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
       let result = await ops.count("id1", "field", 5);
       globalThis.expect(result).toEqual({
@@ -97,7 +97,7 @@ globalThis.describe("QueryDbStorage_InMemory", () => {
     globalThis.test("removes item; loadStream returns empty", async () => {
       let TestBus = LocalBus$ReventlessLocal.Make({});
       let Storage = LocalQueryDbStorage$ReventlessLocal.Make(TestBus);
-      let s = Storage.make("rm6", [], undefined, undefined, undefined, undefined, opts);
+      let s = Storage.make("rm6", [], undefined, undefined, undefined, undefined, undefined, opts);
       let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
       await ops.save("del-id", "v", "Any", undefined);
       await ops.delete("del-id", undefined);
@@ -107,7 +107,7 @@ globalThis.describe("QueryDbStorage_InMemory", () => {
     globalThis.test("deleteBatch removes multiple items", async () => {
       let TestBus = LocalBus$ReventlessLocal.Make({});
       let Storage = LocalQueryDbStorage$ReventlessLocal.Make(TestBus);
-      let s = Storage.make("rm7", [], undefined, undefined, undefined, undefined, opts);
+      let s = Storage.make("rm7", [], undefined, undefined, undefined, undefined, undefined, opts);
       let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
       await ops.saveBatch([
         [
@@ -141,7 +141,7 @@ globalThis.describe("QueryDbStorage_InMemory", () => {
     globalThis.test("after save, scan function returns all stored items", async () => {
       let TestBus = LocalBus$ReventlessLocal.Make({});
       let Storage = LocalQueryDbStorage$ReventlessLocal.Make(TestBus);
-      let s = Storage.make("scan-rm", [], undefined, undefined, undefined, undefined, opts);
+      let s = Storage.make("scan-rm", [], undefined, undefined, undefined, undefined, undefined, opts);
       let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
       await ops.save("s1", "item1", "Any", undefined);
       await ops.save("s2", "item2", "Any", undefined);
@@ -152,7 +152,7 @@ globalThis.describe("QueryDbStorage_InMemory", () => {
     globalThis.test("after delete, scan function excludes deleted item", async () => {
       let TestBus = LocalBus$ReventlessLocal.Make({});
       let Storage = LocalQueryDbStorage$ReventlessLocal.Make(TestBus);
-      let s = Storage.make("scan-rm2", [], undefined, undefined, undefined, undefined, opts);
+      let s = Storage.make("scan-rm2", [], undefined, undefined, undefined, undefined, undefined, opts);
       let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
       await ops.save("keep", "keep", "Any", undefined);
       await ops.save("gone", "gone", "Any", undefined);

package/tests/adapter/QueryEngineTest.res

@@ -13,7 +13,7 @@ describe("LocalQueryEngine", () => {
       module TestBus = LocalBus.Make()
       module Storage = LocalQueryDbStorage.Make(TestBus)
       module QE = LocalQueryEngine.Make(TestBus)
-      let s = Storage.make(~name="users", ~indexes=[], ~api=(), ~apiRole=(), ~opts)
+      let s = Storage.make(~name="users", ~indexes=[], ~api=(), ~apiRole=(), ~owner=None, ~opts)
       let ops = await s.operations->TestRunner.resolve
       let _ = await ops.save("user-1", JSON.Encode.string("Alice"), ReventlessCore.QueryDb.Any, None)
       let engine = await QE.make(Dict.make())->TestRunner.resolve
@@ -29,7 +29,7 @@ describe("LocalQueryEngine", () => {
       module TestBus = LocalBus.Make()
       module Storage = LocalQueryDbStorage.Make(TestBus)
       module QE = LocalQueryEngine.Make(TestBus)
-      let s = Storage.make(~name="products", ~indexes=[], ~api=(), ~apiRole=(), ~opts)
+      let s = Storage.make(~name="products", ~indexes=[], ~api=(), ~apiRole=(), ~owner=None, ~opts)
       let ops = await s.operations->TestRunner.resolve
       let _ =
         await ops.save("prod-key", JSON.Encode.string("Widget"), ReventlessCore.QueryDb.Any, None)
@@ -58,7 +58,7 @@ describe("LocalQueryEngine", () => {
       module TestBus = LocalBus.Make()
       module Storage = LocalQueryDbStorage.Make(TestBus)
       module QE = LocalQueryEngine.Make(TestBus)
-      let s = Storage.make(~name="counters", ~indexes=[], ~api=(), ~apiRole=(), ~opts)
+      let s = Storage.make(~name="counters", ~indexes=[], ~api=(), ~apiRole=(), ~owner=None, ~opts)
       let ops = await s.operations->TestRunner.resolve
       let _ = await ops.save("42", JSON.Encode.int(100), ReventlessCore.QueryDb.Any, None)
       let engine = await QE.make(Dict.make())->TestRunner.resolve
@@ -75,7 +75,7 @@ describe("LocalQueryEngine", () => {
       module TestBus = LocalBus.Make()
       module Storage = LocalQueryDbStorage.Make(TestBus)
       module QE = LocalQueryEngine.Make(TestBus)
-      let s = Storage.make(~name="orders", ~indexes=[], ~api=(), ~apiRole=(), ~opts)
+      let s = Storage.make(~name="orders", ~indexes=[], ~api=(), ~apiRole=(), ~owner=None, ~opts)
       let ops = await s.operations->TestRunner.resolve
       let _ = await ops.save("o1", JSON.Encode.string("order1"), ReventlessCore.QueryDb.Any, None)
       let _ = await ops.save("o2", JSON.Encode.string("order2"), ReventlessCore.QueryDb.Any, None)
@@ -98,7 +98,7 @@ describe("LocalQueryEngine", () => {
       module TestBus = LocalBus.Make()
       module Storage = LocalQueryDbStorage.Make(TestBus)
       module QE = LocalQueryEngine.Make(TestBus)
-      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
       let _ = await ops.save("k1", JSON.Encode.string("a"), ReventlessCore.QueryDb.Any, None)
       let _ = await ops.save("k2", JSON.Encode.string("b"), ReventlessCore.QueryDb.Any, None)
@@ -114,7 +114,7 @@ describe("LocalQueryEngine", () => {
       module TestBus = LocalBus.Make()
       module Storage = LocalQueryDbStorage.Make(TestBus)
       module QE = LocalQueryEngine.Make(TestBus)
-      let s = Storage.make(~name="things", ~indexes=[], ~api=(), ~apiRole=(), ~opts)
+      let s = Storage.make(~name="things", ~indexes=[], ~api=(), ~apiRole=(), ~owner=None, ~opts)
       let ops = await s.operations->TestRunner.resolve
       let _ = await ops.save("t1", JSON.Encode.string("x"), ReventlessCore.QueryDb.Any, None)
       let _ = await ops.save("t2", JSON.Encode.string("y"), ReventlessCore.QueryDb.Any, None)
@@ -127,7 +127,7 @@ describe("LocalQueryEngine", () => {
       module TestBus = LocalBus.Make()
       module Storage = LocalQueryDbStorage.Make(TestBus)
       module QE = LocalQueryEngine.Make(TestBus)
-      let s = Storage.make(~name="stuff", ~indexes=[], ~api=(), ~apiRole=(), ~opts)
+      let s = Storage.make(~name="stuff", ~indexes=[], ~api=(), ~apiRole=(), ~owner=None, ~opts)
       let ops = await s.operations->TestRunner.resolve
       let _ = await ops.save("s1", JSON.Encode.string("z"), ReventlessCore.QueryDb.Any, None)
       let engine = await QE.make(Dict.make())->TestRunner.resolve
@@ -139,7 +139,7 @@ describe("LocalQueryEngine", () => {
       module TestBus = LocalBus.Make()
       module Storage = LocalQueryDbStorage.Make(TestBus)
       module QE = LocalQueryEngine.Make(TestBus)
-      let s = Storage.make(~name="widgets", ~indexes=[], ~api=(), ~apiRole=(), ~opts)
+      let s = Storage.make(~name="widgets", ~indexes=[], ~api=(), ~apiRole=(), ~owner=None, ~opts)
       let ops = await s.operations->TestRunner.resolve
       let _ = await ops.save("w1", JSON.Encode.string("p"), ReventlessCore.QueryDb.Any, None)
       let _ = await ops.save("w2", JSON.Encode.string("q"), ReventlessCore.QueryDb.Any, None)

package/tests/adapter/QueryEngineTest.res.mjs

@@ -15,7 +15,7 @@ globalThis.describe("LocalQueryEngine", () => {
       let TestBus = LocalBus$ReventlessLocal.Make({});
       let Storage = LocalQueryDbStorage$ReventlessLocal.Make(TestBus);
       let QE = LocalQueryEngine$ReventlessLocal.Make(TestBus);
-      let s = Storage.make("users", [], undefined, undefined, undefined, undefined, opts);
+      let s = Storage.make("users", [], undefined, undefined, undefined, undefined, undefined, opts);
       let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
       await ops.save("user-1", "Alice", "Any", undefined);
       let engine = await TestRunner$ReventlessLocal.resolve(QE.make({}));
@@ -30,7 +30,7 @@ globalThis.describe("LocalQueryEngine", () => {
       let TestBus = LocalBus$ReventlessLocal.Make({});
       let Storage = LocalQueryDbStorage$ReventlessLocal.Make(TestBus);
       let QE = LocalQueryEngine$ReventlessLocal.Make(TestBus);
-      let s = Storage.make("products", [], undefined, undefined, undefined, undefined, opts);
+      let s = Storage.make("products", [], undefined, undefined, undefined, undefined, undefined, opts);
       let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
       await ops.save("prod-key", "Widget", "Any", undefined);
       let engine = await TestRunner$ReventlessLocal.resolve(QE.make({}));
@@ -55,7 +55,7 @@ globalThis.describe("LocalQueryEngine", () => {
       let TestBus = LocalBus$ReventlessLocal.Make({});
       let Storage = LocalQueryDbStorage$ReventlessLocal.Make(TestBus);
       let QE = LocalQueryEngine$ReventlessLocal.Make(TestBus);
-      let s = Storage.make("counters", [], undefined, undefined, undefined, undefined, opts);
+      let s = Storage.make("counters", [], undefined, undefined, undefined, undefined, undefined, opts);
       let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
       await ops.save("42", 100, "Any", undefined);
       let engine = await TestRunner$ReventlessLocal.resolve(QE.make({}));
@@ -71,7 +71,7 @@ globalThis.describe("LocalQueryEngine", () => {
       let TestBus = LocalBus$ReventlessLocal.Make({});
       let Storage = LocalQueryDbStorage$ReventlessLocal.Make(TestBus);
       let QE = LocalQueryEngine$ReventlessLocal.Make(TestBus);
-      let s = Storage.make("orders", [], undefined, undefined, undefined, undefined, opts);
+      let s = Storage.make("orders", [], undefined, undefined, undefined, undefined, undefined, opts);
       let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
       await ops.save("o1", "order1", "Any", undefined);
       await ops.save("o2", "order2", "Any", undefined);
@@ -92,7 +92,7 @@ globalThis.describe("LocalQueryEngine", () => {
       let TestBus = LocalBus$ReventlessLocal.Make({});
       let Storage = LocalQueryDbStorage$ReventlessLocal.Make(TestBus);
       let QE = LocalQueryEngine$ReventlessLocal.Make(TestBus);
-      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);
       await ops.save("k1", "a", "Any", undefined);
       await ops.save("k2", "b", "Any", undefined);
@@ -107,7 +107,7 @@ globalThis.describe("LocalQueryEngine", () => {
       let TestBus = LocalBus$ReventlessLocal.Make({});
       let Storage = LocalQueryDbStorage$ReventlessLocal.Make(TestBus);
       let QE = LocalQueryEngine$ReventlessLocal.Make(TestBus);
-      let s = Storage.make("things", [], undefined, undefined, undefined, undefined, opts);
+      let s = Storage.make("things", [], undefined, undefined, undefined, undefined, undefined, opts);
       let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
       await ops.save("t1", "x", "Any", undefined);
       await ops.save("t2", "y", "Any", undefined);
@@ -119,7 +119,7 @@ globalThis.describe("LocalQueryEngine", () => {
       let TestBus = LocalBus$ReventlessLocal.Make({});
       let Storage = LocalQueryDbStorage$ReventlessLocal.Make(TestBus);
       let QE = LocalQueryEngine$ReventlessLocal.Make(TestBus);
-      let s = Storage.make("stuff", [], undefined, undefined, undefined, undefined, opts);
+      let s = Storage.make("stuff", [], undefined, undefined, undefined, undefined, undefined, opts);
       let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
       await ops.save("s1", "z", "Any", undefined);
       let engine = await TestRunner$ReventlessLocal.resolve(QE.make({}));
@@ -130,7 +130,7 @@ globalThis.describe("LocalQueryEngine", () => {
       let TestBus = LocalBus$ReventlessLocal.Make({});
       let Storage = LocalQueryDbStorage$ReventlessLocal.Make(TestBus);
       let QE = LocalQueryEngine$ReventlessLocal.Make(TestBus);
-      let s = Storage.make("widgets", [], undefined, undefined, undefined, undefined, opts);
+      let s = Storage.make("widgets", [], undefined, undefined, undefined, undefined, undefined, opts);
       let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
       await ops.save("w1", "p", "Any", undefined);
       await ops.save("w2", "q", "Any", undefined);

package/tests/components/aggregate/AggregateTest.res

@@ -47,7 +47,7 @@ describe("LocalBus", () => {
 describe("EventLogStorage_InMemory", () => {
   testPromise("append stores events and replay returns them", async () => {
     let opts: Pulumi.CustomResourceOptions.t = {}
-    let storage = EventLogStorage_InMemory.make(~name="test-log", ~opts)
+    let storage = EventLogStorage_InMemory.make(~name="test-log", ~owner=None, ~opts)
     let ops = await storage.operations->TestRunner.resolve
     let _ = await ops.append(0, "agg-1", [JSON.Encode.string("e1"), JSON.Encode.string("e2")])
     let events = await ops.replay("agg-1")
@@ -56,7 +56,7 @@ describe("EventLogStorage_InMemory", () => {
 
   testPromise("replay returns empty array for unknown aggregate id", async () => {
     let opts: Pulumi.CustomResourceOptions.t = {}
-    let storage = EventLogStorage_InMemory.make(~name="test-log-2", ~opts)
+    let storage = EventLogStorage_InMemory.make(~name="test-log-2", ~owner=None, ~opts)
     let ops = await storage.operations->TestRunner.resolve
     let events = await ops.replay("unknown-id")
     expect(events->Array.length)->toBe(0)
@@ -64,7 +64,7 @@ describe("EventLogStorage_InMemory", () => {
 
   testPromise("multiple appends accumulate events", async () => {
     let opts: Pulumi.CustomResourceOptions.t = {}
-    let storage = EventLogStorage_InMemory.make(~name="test-log-3", ~opts)
+    let storage = EventLogStorage_InMemory.make(~name="test-log-3", ~owner=None, ~opts)
     let ops = await storage.operations->TestRunner.resolve
     let _ = await ops.append(0, "agg-2", [JSON.Encode.string("e1")])
     let _ = await ops.append(1, "agg-2", [JSON.Encode.string("e2"), JSON.Encode.string("e3")])

package/tests/components/aggregate/AggregateTest.res.mjs

@@ -50,7 +50,7 @@ globalThis.describe("LocalBus", () => {
 
 globalThis.describe("EventLogStorage_InMemory", () => {
   globalThis.test("append stores events and replay returns them", async () => {
-    let storage = EventLogStorage_InMemory$ReventlessLocal.make("test-log", {});
+    let storage = EventLogStorage_InMemory$ReventlessLocal.make("test-log", undefined, {});
     let ops = await TestRunner$ReventlessLocal.resolve(storage.operations);
     await ops.append(0, "agg-1", [
       "e1",
@@ -60,13 +60,13 @@ globalThis.describe("EventLogStorage_InMemory", () => {
     globalThis.expect(events.length).toBe(2);
   });
   globalThis.test("replay returns empty array for unknown aggregate id", async () => {
-    let storage = EventLogStorage_InMemory$ReventlessLocal.make("test-log-2", {});
+    let storage = EventLogStorage_InMemory$ReventlessLocal.make("test-log-2", undefined, {});
     let ops = await TestRunner$ReventlessLocal.resolve(storage.operations);
     let events = await ops.replay("unknown-id");
     globalThis.expect(events.length).toBe(0);
   });
   globalThis.test("multiple appends accumulate events", async () => {
-    let storage = EventLogStorage_InMemory$ReventlessLocal.make("test-log-3", {});
+    let storage = EventLogStorage_InMemory$ReventlessLocal.make("test-log-3", undefined, {});
     let ops = await TestRunner$ReventlessLocal.resolve(storage.operations);
     await ops.append(0, "agg-2", ["e1"]);
     await ops.append(1, "agg-2", [

package/tests/components/commandtopic/CommandTopicFixtures.res.mjs

@@ -57,7 +57,7 @@ let CommandTopicMaker = CommandTopic_Builder$ReventlessCore.Make({
   make: $$let.make
 });
 
-let cmdTopic = CommandTopicMaker.make("TestCommandTopic", undefined);
+let cmdTopic = CommandTopicMaker.make("TestCommandTopic", undefined, undefined);
 
 export {
   ItemSpec,

package/tests/components/commandtopic/CommandTopicStreamFixtures.res.mjs

@@ -59,7 +59,7 @@ let StreamCmdTopicMaker = CommandTopic_Builder$ReventlessCore.Make({
   make: $$let.make
 });
 
-let cmdTopic = StreamCmdTopicMaker.make("StreamCmdTopic", undefined);
+let cmdTopic = StreamCmdTopicMaker.make("StreamCmdTopic", undefined, undefined);
 
 let captured = {
   contents: []

package/tests/components/eventcollector/EventCollectorFixtures.res.mjs

@@ -32,11 +32,13 @@ let EventCollectorMaker = EventCollector_Builder$ReventlessCore.Make({
   groupBySource: LocalRuntimeEnvironment$ReventlessLocal.groupBySource,
   extractCorrelationId: LocalRuntimeEnvironment$ReventlessLocal.extractCorrelationId,
   extractCausationId: LocalRuntimeEnvironment$ReventlessLocal.extractCausationId,
+  extractSentTimestamp: LocalRuntimeEnvironment$ReventlessLocal.extractSentTimestamp,
+  extractRetryCount: LocalRuntimeEnvironment$ReventlessLocal.extractRetryCount,
   asEventHandler: prim => prim,
   asEffectHandler: prim => prim
 })(LocalEventCollectorChannel$ReventlessLocal.Make(Bus));
 
-let eventCollector = EventCollectorMaker.make("TestEC", allEventTopics, {});
+let eventCollector = EventCollectorMaker.make("TestEC", allEventTopics, undefined, {});
 
 export {
   Bus,

package/tests/components/eventlog/EventLogFixtures.res.mjs

@@ -54,7 +54,7 @@ let EventLogMaker = EventLog_Builder$ReventlessCore.Make({
   make: EventLogStorage_InMemory$ReventlessLocal.make
 })(LocalEventTopicPublisher$ReventlessLocal.Make(Bus));
 
-let eventLog = EventLogMaker.make("TestItemEventLog", undefined);
+let eventLog = EventLogMaker.make("TestItemEventLog", undefined, undefined);
 
 function makeEvent$p(id, event) {
   return {

package/tests/components/eventtopic/EventTopicFixtures.res.mjs

@@ -51,7 +51,7 @@ let EventTopicMaker = EventTopic_Builder$ReventlessCore.Make({
   eventSchema: eventSchema
 })(LocalEventTopicPublisher$ReventlessLocal.Make(Bus));
 
-let eventTopic = EventTopicMaker.make("TestItemEventTopic", [], undefined);
+let eventTopic = EventTopicMaker.make("TestItemEventTopic", [], undefined, undefined);
 
 function makeEvent$p(id, event) {
   return {

package/tests/components/eventtopic/EventTopicStreamFixtures.res.mjs

@@ -50,7 +50,7 @@ let StreamEvtTopicMaker = EventTopic_Builder$ReventlessCore.Make({
   eventSchema: eventSchema
 })(LocalEventTopicPublisher$ReventlessLocal.Make(StreamEvtBus));
 
-let evtTopic = StreamEvtTopicMaker.make("StreamEvtTopic", [], undefined);
+let evtTopic = StreamEvtTopicMaker.make("StreamEvtTopic", [], undefined, undefined);
 
 export {
   ItemStreamSpec,

package/tests/components/querydb/QueryDbFixtures.res.mjs

@@ -60,7 +60,7 @@ let QueryDbMaker = QueryDb_Builder$ReventlessCore.Make({
   make: QDbStorage.make
 })(QDbResolvers);
 
-let queryDb = QueryDbMaker.make(undefined, undefined, undefined, undefined);
+let queryDb = QueryDbMaker.make(undefined, undefined, undefined, undefined, undefined);
 
 export {
   ItemQueryDbSpec,

package/tests/components/querydb/QueryDbSubIdFixtures.res.mjs

@@ -67,7 +67,7 @@ let MetricQueryDbMaker = QueryDb_Builder$ReventlessCore.Make({
   make: QDbStorage.make
 })(QDbResolvers);
 
-let metricQueryDb = MetricQueryDbMaker.make(undefined, undefined, undefined, undefined);
+let metricQueryDb = MetricQueryDbMaker.make(undefined, undefined, undefined, undefined, undefined);
 
 export {
   MetricSpec,

package/tests/components/sideeffecthandler/SideEffectHandlerFixtures.res.mjs

@@ -59,6 +59,8 @@ let SpecificEventCollector = EventCollector_Builder$ReventlessCore.Make({
   groupBySource: LocalRuntimeEnvironment$ReventlessLocal.groupBySource,
   extractCorrelationId: LocalRuntimeEnvironment$ReventlessLocal.extractCorrelationId,
   extractCausationId: LocalRuntimeEnvironment$ReventlessLocal.extractCausationId,
+  extractSentTimestamp: LocalRuntimeEnvironment$ReventlessLocal.extractSentTimestamp,
+  extractRetryCount: LocalRuntimeEnvironment$ReventlessLocal.extractRetryCount,
   asEventHandler: prim => prim,
   asEffectHandler: prim => prim
 })(EventCollectorCh);
@@ -70,6 +72,8 @@ let SEHBuilder = SideEffectHandler_Builder$ReventlessCore.Make({
   groupBySource: LocalRuntimeEnvironment$ReventlessLocal.groupBySource,
   extractCorrelationId: LocalRuntimeEnvironment$ReventlessLocal.extractCorrelationId,
   extractCausationId: LocalRuntimeEnvironment$ReventlessLocal.extractCausationId,
+  extractSentTimestamp: LocalRuntimeEnvironment$ReventlessLocal.extractSentTimestamp,
+  extractRetryCount: LocalRuntimeEnvironment$ReventlessLocal.extractRetryCount,
   asEventHandler: prim => prim,
   asEffectHandler: prim => prim
 })(EventCollectorCh)(SpecificEventCollector)(ECRTBuilder);