@reventlessdev/reventless-local 3.0.0-alpha.113

package/tests/components/outboundtranslationslice/OutboundTranslationSliceFixtures.res.mjs

@@ -0,0 +1,137 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.res.mjs";
+import * as DcbTag$Reventless from "@reventlessdev/reventless-spec/src/components/DcbTag.res.mjs";
+
+let moduleUrl = import.meta.url;
+
+let eventSchema = S.union([
+  S.schema(s => ({
+    TAG: "OrderShipped",
+    orderId: s.m(DcbTag$Reventless.string),
+    email: s.m(S.string)
+  })),
+  S.schema(s => ({
+    TAG: "PaymentReceived",
+    orderId: s.m(DcbTag$Reventless.string),
+    amount: s.m(S.float)
+  }))
+]);
+
+let OrderEventLog = {
+  moduleUrl: moduleUrl,
+  eventSchema: eventSchema
+};
+
+let moduleUrl$1 = import.meta.url;
+
+let consumedEventSchema = S.schema(s => ({
+  TAG: "OrderShipped",
+  orderId: s.m(S.string),
+  email: s.m(S.string)
+}));
+
+let outboundItemSchema = S.schema(s => ({
+  orderId: s.m(S.string),
+  email: s.m(S.string)
+}));
+
+function collect(event) {
+  let orderId = event.orderId;
+  return [[
+      orderId,
+      {
+        orderId: orderId,
+        email: event.email
+      }
+    ]];
+}
+
+async function translate(_id, _item) {
+  return {
+    TAG: "Ok",
+    _0: undefined
+  };
+}
+
+let SendTrackingEmailSpec = {
+  name: "SendTrackingEmail",
+  moduleUrl: moduleUrl$1,
+  consumedEventSchema: consumedEventSchema,
+  outboundItemSchema: outboundItemSchema,
+  inboundCommandSchema: S.unit,
+  collect: collect,
+  translate: translate,
+  maxRetries: 3,
+  heartbeatInterval: 60,
+  targetName: undefined
+};
+
+let moduleUrl$2 = import.meta.url;
+
+let consumedEventSchema$1 = S.schema(s => ({
+  TAG: "PaymentReceived",
+  orderId: s.m(S.string),
+  amount: s.m(S.float)
+}));
+
+let outboundItemSchema$1 = S.schema(s => ({
+  orderId: s.m(S.string),
+  amount: s.m(S.float)
+}));
+
+let inboundCommandSchema = S.schema(s => ({
+  TAG: "ConfirmPayment",
+  orderId: s.m(DcbTag$Reventless.string)
+}));
+
+function collect$1(event) {
+  let orderId = event.orderId;
+  return [[
+      orderId,
+      {
+        orderId: orderId,
+        amount: event.amount
+      }
+    ]];
+}
+
+let translateFn = {
+  contents: async (id, _item) => ({
+    TAG: "Ok",
+    _0: [
+      id,
+      {
+        TAG: "ConfirmPayment",
+        orderId: id
+      }
+    ]
+  })
+};
+
+function translate$1(id, item) {
+  return translateFn.contents(id, item);
+}
+
+let ProcessPaymentSpec_targetName = "ConfirmPayment";
+
+let ProcessPaymentSpec = {
+  name: "ProcessPayment",
+  moduleUrl: moduleUrl$2,
+  consumedEventSchema: consumedEventSchema$1,
+  outboundItemSchema: outboundItemSchema$1,
+  inboundCommandSchema: inboundCommandSchema,
+  collect: collect$1,
+  translateFn: translateFn,
+  translate: translate$1,
+  maxRetries: 2,
+  heartbeatInterval: 30,
+  targetName: ProcessPaymentSpec_targetName
+};
+
+export {
+  OrderEventLog,
+  SendTrackingEmailSpec,
+  ProcessPaymentSpec,
+}
+/* moduleUrl Not a pure module */

package/tests/components/querydb/QueryDbFixtures.res

@@ -0,0 +1,39 @@
+// Integration test fixtures for QueryDb builder (in-memory).
+
+// ─────────────────────────────────────────────────────────────
+// Test state spec
+// ─────────────────────────────────────────────────────────────
+
+module ItemQueryDbSpec = {
+  module Id = Reventless.Id.StringPure
+  let name = "TestItemQueryDb"
+  let moduleUrl: string = %raw(`import.meta.url`)
+
+  @schema
+  type state = {name: string, count: int}
+
+  let config = Reventless.ReadModel.config()
+  let subIdConfig = None
+}
+
+// ─────────────────────────────────────────────────────────────
+// Bus and Pulumi setup
+// ─────────────────────────────────────────────────────────────
+
+module Bus = LocalBus.Make()
+
+let _ = TestRunner.setup()
+
+// ─────────────────────────────────────────────────────────────
+// Build QueryDb using in-memory adapters
+// ─────────────────────────────────────────────────────────────
+
+module QDbStorage = QueryDbStorage_InMemory.Make(Bus)
+module QDbResolvers = ReventlessCore.QueryDb_Adapter.NoResolvers(QDbStorage)
+module QueryDbMaker = ReventlessCore.QueryDb_Builder.Make(
+  ItemQueryDbSpec,
+  QDbStorage,
+  QDbResolvers,
+)
+
+let queryDb = QueryDbMaker.make(~api=(), ~apiRole=())

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

@@ -0,0 +1,73 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.res.mjs";
+import * as Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
+import * as ReadModel$Reventless from "@reventlessdev/reventless-spec/src/components/ReadModel.res.mjs";
+import * as LocalBus$ReventlessLocal from "../../../src/adapter/LocalBus.res.mjs";
+import * as TestRunner$ReventlessLocal from "../../../src/test/TestRunner.res.mjs";
+import * as QueryDb_Adapter$ReventlessCore from "@reventlessdev/reventless-core/src/components/QueryDb/QueryDb_Adapter.res.mjs";
+import * as QueryDb_Builder$ReventlessCore from "@reventlessdev/reventless-core/src/components/QueryDb/QueryDb_Builder.res.mjs";
+import * as QueryDbStorage_InMemory$ReventlessLocal from "../../../src/adapter/QueryDb/QueryDbStorage_InMemory.res.mjs";
+
+let name = "TestItemQueryDb";
+
+let moduleUrl = import.meta.url;
+
+let stateSchema = S.schema(s => ({
+  name: s.m(S.string),
+  count: s.m(S.int)
+}));
+
+let config = ReadModel$Reventless.config(undefined, undefined, undefined);
+
+let ItemQueryDbSpec = {
+  Id: undefined,
+  name: name,
+  moduleUrl: moduleUrl,
+  stateSchema: stateSchema,
+  config: config,
+  subIdConfig: undefined,
+  authorization: "AllowAuthenticated",
+  visibility: "Public"
+};
+
+let Bus = LocalBus$ReventlessLocal.Make({});
+
+TestRunner$ReventlessLocal.setup();
+
+let QDbStorage = QueryDbStorage_InMemory$ReventlessLocal.Make(Bus);
+
+let QDbResolvers = QueryDb_Adapter$ReventlessCore.NoResolvers({
+  make: QDbStorage.make
+});
+
+let QueryDbMaker = QueryDb_Builder$ReventlessCore.Make({
+  Id: {
+    schema: Id$Reventless.StringPure.schema,
+    make: prim => prim,
+    makeFromString: prim => prim,
+    toString: prim => prim,
+    cmp: Id$Reventless.StringPure.cmp
+  },
+  name: name,
+  moduleUrl: moduleUrl,
+  stateSchema: stateSchema,
+  config: config,
+  subIdConfig: undefined,
+  authorization: "AllowAuthenticated",
+  visibility: "Public"
+})({
+  make: QDbStorage.make
+})(QDbResolvers);
+
+let queryDb = QueryDbMaker.make(undefined, undefined, undefined, undefined);
+
+export {
+  ItemQueryDbSpec,
+  Bus,
+  QDbStorage,
+  QDbResolvers,
+  QueryDbMaker,
+  queryDb,
+}
+/* moduleUrl Not a pure module */

package/tests/components/querydb/QueryDbSubIdFixtures.res

@@ -0,0 +1,44 @@
+// Fixtures for QueryDb sub-ID tests.
+// Uses a spec with composite sub-key (_subId = region + "/" + date).
+
+// ─────────────────────────────────────────────────────────────
+// Test state spec with subIdConfig
+// ─────────────────────────────────────────────────────────────
+
+module MetricSpec = {
+  module Id = Reventless.Id.StringPure
+  let name = "TestMetricQueryDb"
+  let moduleUrl: string = %raw(`import.meta.url`)
+
+  @schema
+  type state = {userId: string, region: string, date: string, value: float}
+
+  let config = Reventless.ReadModel.config()
+
+  let subIdConfig: option<Reventless.ReadModel.subIdConfig<state>> = Some({
+    subIdField: "_subId",
+    getSubId: (state: state) => state.region ++ "/" ++ state.date,
+  })
+}
+
+// ─────────────────────────────────────────────────────────────
+// Bus and Pulumi setup
+// ─────────────────────────────────────────────────────────────
+
+module Bus = LocalBus.Make()
+
+let _ = TestRunner.setup()
+
+// ─────────────────────────────────────────────────────────────
+// Build QueryDb using in-memory adapters
+// ─────────────────────────────────────────────────────────────
+
+module QDbStorage = QueryDbStorage_InMemory.Make(Bus)
+module QDbResolvers = ReventlessCore.QueryDb_Adapter.NoResolvers(QDbStorage)
+module MetricQueryDbMaker = ReventlessCore.QueryDb_Builder.Make(
+  MetricSpec,
+  QDbStorage,
+  QDbResolvers,
+)
+
+let metricQueryDb = MetricQueryDbMaker.make(~api=(), ~apiRole=())

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

@@ -0,0 +1,80 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.res.mjs";
+import * as Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
+import * as ReadModel$Reventless from "@reventlessdev/reventless-spec/src/components/ReadModel.res.mjs";
+import * as LocalBus$ReventlessLocal from "../../../src/adapter/LocalBus.res.mjs";
+import * as TestRunner$ReventlessLocal from "../../../src/test/TestRunner.res.mjs";
+import * as QueryDb_Adapter$ReventlessCore from "@reventlessdev/reventless-core/src/components/QueryDb/QueryDb_Adapter.res.mjs";
+import * as QueryDb_Builder$ReventlessCore from "@reventlessdev/reventless-core/src/components/QueryDb/QueryDb_Builder.res.mjs";
+import * as QueryDbStorage_InMemory$ReventlessLocal from "../../../src/adapter/QueryDb/QueryDbStorage_InMemory.res.mjs";
+
+let name = "TestMetricQueryDb";
+
+let moduleUrl = import.meta.url;
+
+let stateSchema = S.schema(s => ({
+  userId: s.m(S.string),
+  region: s.m(S.string),
+  date: s.m(S.string),
+  value: s.m(S.float)
+}));
+
+let config = ReadModel$Reventless.config(undefined, undefined, undefined);
+
+let subIdConfig = {
+  subIdField: "_subId",
+  getSubId: state => state.region + "/" + state.date
+};
+
+let MetricSpec = {
+  Id: undefined,
+  name: name,
+  moduleUrl: moduleUrl,
+  stateSchema: stateSchema,
+  config: config,
+  subIdConfig: subIdConfig,
+  authorization: "AllowAuthenticated",
+  visibility: "Public"
+};
+
+let Bus = LocalBus$ReventlessLocal.Make({});
+
+TestRunner$ReventlessLocal.setup();
+
+let QDbStorage = QueryDbStorage_InMemory$ReventlessLocal.Make(Bus);
+
+let QDbResolvers = QueryDb_Adapter$ReventlessCore.NoResolvers({
+  make: QDbStorage.make
+});
+
+let MetricQueryDbMaker = QueryDb_Builder$ReventlessCore.Make({
+  Id: {
+    schema: Id$Reventless.StringPure.schema,
+    make: prim => prim,
+    makeFromString: prim => prim,
+    toString: prim => prim,
+    cmp: Id$Reventless.StringPure.cmp
+  },
+  name: name,
+  moduleUrl: moduleUrl,
+  stateSchema: stateSchema,
+  config: config,
+  subIdConfig: subIdConfig,
+  authorization: "AllowAuthenticated",
+  visibility: "Public"
+})({
+  make: QDbStorage.make
+})(QDbResolvers);
+
+let metricQueryDb = MetricQueryDbMaker.make(undefined, undefined, undefined, undefined);
+
+export {
+  MetricSpec,
+  Bus,
+  QDbStorage,
+  QDbResolvers,
+  MetricQueryDbMaker,
+  metricQueryDb,
+}
+/* moduleUrl Not a pure module */

package/tests/components/querydb/QueryDbSubIdTest.res

@@ -0,0 +1,104 @@
+// Tests for QueryDb in-memory storage with sub-ID (composite sort key) semantics.
+// Verifies that loadStream returns items sorted by sub-key and that
+// delete(id, Some((field, value))) removes only the targeted sub-key item.
+
+open JestGlobals
+open QueryDbSubIdFixtures
+
+describe("QueryDb sub-ID (in-memory)", () => {
+  let _ = beforeAllAsync(async () => {
+    let _ = await metricQueryDb->ReventlessCore.Component.operations->TestRunner.resolve
+  })
+
+  testPromise("loadStream returns items sorted by sub-key", async () => {
+    let ops = await metricQueryDb->ReventlessCore.Component.operations->TestRunner.resolve
+    let _ = await ops.save(
+      "user-sort",
+      {userId: "user-sort", region: "us-east", date: "2026-03", value: 1.0},
+      Init,
+      None,
+    )
+    let _ = await ops.save(
+      "user-sort",
+      {userId: "user-sort", region: "us-east", date: "2026-01", value: 2.0},
+      Init,
+      None,
+    )
+    let _ = await ops.save(
+      "user-sort",
+      {userId: "user-sort", region: "eu-west", date: "2026-02", value: 3.0},
+      Init,
+      None,
+    )
+    let result = await ops.loadStream("user-sort")->Stream.runCollect->Effect.runPromise
+    // Sub-keys: "eu-west/2026-02", "us-east/2026-01", "us-east/2026-03" — alphabetical order
+    expect(result->Array.length)->toBe(3)
+    let s0 = result->Array.getUnsafe(0)
+    let s1 = result->Array.getUnsafe(1)
+    let s2 = result->Array.getUnsafe(2)
+    expect(s0.region ++ "/" ++ s0.date)->toBe("eu-west/2026-02")
+    expect(s1.region ++ "/" ++ s1.date)->toBe("us-east/2026-01")
+    expect(s2.region ++ "/" ++ s2.date)->toBe("us-east/2026-03")
+  })
+
+  testPromise("delete with subId removes only the targeted item", async () => {
+    let ops = await metricQueryDb->ReventlessCore.Component.operations->TestRunner.resolve
+    let _ = await ops.save(
+      "user-del",
+      {userId: "user-del", region: "us-east", date: "2026-01", value: 10.0},
+      Init,
+      None,
+    )
+    let _ = await ops.save(
+      "user-del",
+      {userId: "user-del", region: "us-east", date: "2026-02", value: 20.0},
+      Init,
+      None,
+    )
+    // Delete only the 2026-01 entry
+    let _ = await ops.delete("user-del", Some(("_subId", "us-east/2026-01")))
+    let result = await ops.loadStream("user-del")->Stream.runCollect->Effect.runPromise
+    expect(result->Array.length)->toBe(1)
+    let remaining = result->Array.getUnsafe(0)
+    expect(remaining.date)->toBe("2026-02")
+  })
+
+  testPromise("delete without subId removes entire partition", async () => {
+    let ops = await metricQueryDb->ReventlessCore.Component.operations->TestRunner.resolve
+    let _ = await ops.save(
+      "user-delall",
+      {userId: "user-delall", region: "us-east", date: "2026-01", value: 5.0},
+      Init,
+      None,
+    )
+    let _ = await ops.save(
+      "user-delall",
+      {userId: "user-delall", region: "eu-west", date: "2026-01", value: 7.0},
+      Init,
+      None,
+    )
+    let _ = await ops.delete("user-delall", None)
+    let result = await ops.loadStream("user-delall")->Stream.runCollect->Effect.runPromise
+    expect(result->Array.length)->toBe(0)
+  })
+
+  testPromise("save overwrites item with same sub-key", async () => {
+    let ops = await metricQueryDb->ReventlessCore.Component.operations->TestRunner.resolve
+    let _ = await ops.save(
+      "user-overwrite",
+      {userId: "user-overwrite", region: "us-east", date: "2026-01", value: 1.0},
+      Init,
+      None,
+    )
+    let _ = await ops.save(
+      "user-overwrite",
+      {userId: "user-overwrite", region: "us-east", date: "2026-01", value: 99.0},
+      Overwrite,
+      None,
+    )
+    let result = await ops.loadStream("user-overwrite")->Stream.runCollect->Effect.runPromise
+    expect(result->Array.length)->toBe(1)
+    let s = result->Array.getUnsafe(0)
+    expect(s.value)->toBe(99.0)
+  })
+})

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

@@ -0,0 +1,104 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Stream from "@reventlessdev/rescript-effect/src/Stream.res.mjs";
+import * as Effect from "effect/Effect";
+import * as Component$ReventlessCore from "@reventlessdev/reventless-core/src/components/Component.res.mjs";
+import * as TestRunner$ReventlessLocal from "../../../src/test/TestRunner.res.mjs";
+import * as QueryDbSubIdFixtures$ReventlessLocal from "./QueryDbSubIdFixtures.res.mjs";
+
+globalThis.describe("QueryDb sub-ID (in-memory)", () => {
+  globalThis.beforeAll(async () => {
+    await TestRunner$ReventlessLocal.resolve(Component$ReventlessCore.operations(QueryDbSubIdFixtures$ReventlessLocal.metricQueryDb));
+  });
+  globalThis.test("loadStream returns items sorted by sub-key", async () => {
+    let ops = await TestRunner$ReventlessLocal.resolve(Component$ReventlessCore.operations(QueryDbSubIdFixtures$ReventlessLocal.metricQueryDb));
+    await ops.save("user-sort", {
+      userId: "user-sort",
+      region: "us-east",
+      date: "2026-03",
+      value: 1.0
+    }, "Init", undefined);
+    await ops.save("user-sort", {
+      userId: "user-sort",
+      region: "us-east",
+      date: "2026-01",
+      value: 2.0
+    }, "Init", undefined);
+    await ops.save("user-sort", {
+      userId: "user-sort",
+      region: "eu-west",
+      date: "2026-02",
+      value: 3.0
+    }, "Init", undefined);
+    let result = await Effect.runPromise(Stream.runCollect(ops.loadStream("user-sort")));
+    globalThis.expect(result.length).toBe(3);
+    let s0 = result[0];
+    let s1 = result[1];
+    let s2 = result[2];
+    globalThis.expect(s0.region + "/" + s0.date).toBe("eu-west/2026-02");
+    globalThis.expect(s1.region + "/" + s1.date).toBe("us-east/2026-01");
+    globalThis.expect(s2.region + "/" + s2.date).toBe("us-east/2026-03");
+  });
+  globalThis.test("delete with subId removes only the targeted item", async () => {
+    let ops = await TestRunner$ReventlessLocal.resolve(Component$ReventlessCore.operations(QueryDbSubIdFixtures$ReventlessLocal.metricQueryDb));
+    await ops.save("user-del", {
+      userId: "user-del",
+      region: "us-east",
+      date: "2026-01",
+      value: 10.0
+    }, "Init", undefined);
+    await ops.save("user-del", {
+      userId: "user-del",
+      region: "us-east",
+      date: "2026-02",
+      value: 20.0
+    }, "Init", undefined);
+    await ops.delete("user-del", [
+      "_subId",
+      "us-east/2026-01"
+    ]);
+    let result = await Effect.runPromise(Stream.runCollect(ops.loadStream("user-del")));
+    globalThis.expect(result.length).toBe(1);
+    let remaining = result[0];
+    globalThis.expect(remaining.date).toBe("2026-02");
+  });
+  globalThis.test("delete without subId removes entire partition", async () => {
+    let ops = await TestRunner$ReventlessLocal.resolve(Component$ReventlessCore.operations(QueryDbSubIdFixtures$ReventlessLocal.metricQueryDb));
+    await ops.save("user-delall", {
+      userId: "user-delall",
+      region: "us-east",
+      date: "2026-01",
+      value: 5.0
+    }, "Init", undefined);
+    await ops.save("user-delall", {
+      userId: "user-delall",
+      region: "eu-west",
+      date: "2026-01",
+      value: 7.0
+    }, "Init", undefined);
+    await ops.delete("user-delall", undefined);
+    let result = await Effect.runPromise(Stream.runCollect(ops.loadStream("user-delall")));
+    globalThis.expect(result.length).toBe(0);
+  });
+  globalThis.test("save overwrites item with same sub-key", async () => {
+    let ops = await TestRunner$ReventlessLocal.resolve(Component$ReventlessCore.operations(QueryDbSubIdFixtures$ReventlessLocal.metricQueryDb));
+    await ops.save("user-overwrite", {
+      userId: "user-overwrite",
+      region: "us-east",
+      date: "2026-01",
+      value: 1.0
+    }, "Init", undefined);
+    await ops.save("user-overwrite", {
+      userId: "user-overwrite",
+      region: "us-east",
+      date: "2026-01",
+      value: 99.0
+    }, "Overwrite", undefined);
+    let result = await Effect.runPromise(Stream.runCollect(ops.loadStream("user-overwrite")));
+    globalThis.expect(result.length).toBe(1);
+    let s = result[0];
+    globalThis.expect(s.value).toBe(99.0);
+  });
+});
+
+/*  Not a pure module */

package/tests/components/querydb/QueryDbTest.res

@@ -0,0 +1,81 @@
+// Integration tests for QueryDb_Builder with in-memory adapters.
+
+open JestGlobals
+open QueryDbFixtures
+
+describe("QueryDb (in-memory)", () => {
+  let _ = beforeAllAsync(async () => {
+    let _ = await queryDb->ReventlessCore.Component.operations->TestRunner.resolve
+  })
+
+  testPromise("loadStream returns empty for unknown id", async () => {
+    let ops = await queryDb->ReventlessCore.Component.operations->TestRunner.resolve
+    let result = await ops.loadStream("unknown-id")->Stream.runCollect->Effect.runPromise
+    expect(result)->toEqual([])
+  })
+
+  testPromise("save and loadStream round-trip", async () => {
+    let ops = await queryDb->ReventlessCore.Component.operations->TestRunner.resolve
+    let state: ItemQueryDbSpec.state = {name: "Widget", count: 5}
+    let _ = await ops.save("item-1", state, Init, None)
+    let result = await ops.loadStream("item-1")->Stream.runCollect->Effect.runPromise
+    switch result {
+    | [s] => expect((s.name, s.count))->toEqual(("Widget", 5))
+    | _ => expect("Expected [state]")->toEqual("but got different result")
+    }
+  })
+
+  testPromise("save overwrites previous state", async () => {
+    let ops = await queryDb->ReventlessCore.Component.operations->TestRunner.resolve
+    let _ = await ops.save("item-2", {name: "Old", count: 1}, Init, None)
+    let _ = await ops.save("item-2", {name: "New", count: 2}, Overwrite, None)
+    let result = await ops.loadStream("item-2")->Stream.runCollect->Effect.runPromise
+    switch result {
+    | [s] => expect(s.name)->toBe("New")
+    | _ => expect("Expected [state]")->toEqual("but got different result")
+    }
+  })
+
+  testPromise("saveBatch saves multiple states", async () => {
+    let ops = await queryDb->ReventlessCore.Component.operations->TestRunner.resolve
+    let batch = [
+      ("batch-1", ({name: "Alpha", count: 1}: ItemQueryDbSpec.state), None),
+      ("batch-2", ({name: "Beta", count: 2}: ItemQueryDbSpec.state), None),
+    ]
+    let _ = await ops.saveBatch(batch)
+    let r1 = await ops.loadStream("batch-1")->Stream.runCollect->Effect.runPromise
+    let r2 = await ops.loadStream("batch-2")->Stream.runCollect->Effect.runPromise
+    expect((r1->Array.length > 0, r2->Array.length > 0))->toEqual((true, true))
+  })
+
+  testPromise("delete removes state", async () => {
+    let ops = await queryDb->ReventlessCore.Component.operations->TestRunner.resolve
+    let _ = await ops.save("item-del", {name: "ToDelete", count: 0}, Init, None)
+    let _ = await ops.delete("item-del", None)
+    let result = await ops.loadStream("item-del")->Stream.runCollect->Effect.runPromise
+    expect(result)->toEqual([])
+  })
+
+  testPromise("loadStream emits saved states", async () => {
+    let ops = await queryDb->ReventlessCore.Component.operations->TestRunner.resolve
+    let _ = await ops.save("stream-item", {name: "Streamed", count: 42}, Init, None)
+    let arr =
+      await ops.loadStream("stream-item")->Stream.runCollect->Effect.runPromise
+    expect(arr->Array.length)->toBe(1)
+    let s = arr->Array.getUnsafe(0)
+    expect((s.name, s.count))->toEqual(("Streamed", 42))
+  })
+
+  testPromise("loadStream returns empty for unknown id", async () => {
+    let ops = await queryDb->ReventlessCore.Component.operations->TestRunner.resolve
+    let arr =
+      await ops.loadStream("no-such-id")->Stream.runCollect->Effect.runPromise
+    expect(arr->Array.length)->toBe(0)
+  })
+
+  testPromise("registered in bus by component name", async () => {
+    // QueryDb registers itself in the bus with the base Spec.name
+    let db = Bus.getQueryDb("TestItemQueryDb")
+    expect(db->Option.isSome)->toBe(true)
+  })
+})