@reventlessdev/reventless-local 3.0.0-alpha.113

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

@@ -0,0 +1,149 @@
+// 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 Pulumi from "@pulumi/pulumi";
+import * as Message$Reventless from "@reventlessdev/reventless-spec/src/types/Message.res.mjs";
+import * as Adapter$ReventlessInfra from "@reventlessdev/reventless-infra/src/adapter/Adapter.res.mjs";
+import * as LocalBus$ReventlessLocal from "../../../src/adapter/LocalBus.res.mjs";
+import * as TestRunner$ReventlessLocal from "../../../src/test/TestRunner.res.mjs";
+import * as TestFixtures$ReventlessLocal from "../../TestFixtures.res.mjs";
+import * as EventCollector_Builder$ReventlessCore from "@reventlessdev/reventless-core/src/components/EventCollector/EventCollector_Builder.res.mjs";
+import * as LocalRuntimeEnvironment$ReventlessLocal from "../../../src/adapter/Runtime/LocalRuntimeEnvironment.res.mjs";
+import * as SideEffectHandler_Builder$ReventlessCore from "@reventlessdev/reventless-core/src/components/SideEffectHandler/SideEffectHandler_Builder.res.mjs";
+import * as LocalEventCollectorChannel$ReventlessLocal from "../../../src/adapter/EventCollector/LocalEventCollectorChannel.res.mjs";
+import * as LocalEventCollectorRuntime_Builder$ReventlessLocal from "../../../src/adapter/Runtime/LocalEventCollectorRuntime_Builder.res.mjs";
+
+S.enableJson();
+
+let Bus = LocalBus$ReventlessLocal.Make({});
+
+TestRunner$ReventlessLocal.setup();
+
+let name = "TestSEHSource";
+
+let eventSchema = S.schema(s => ({
+  TAG: "OrderPlaced",
+  orderId: s.m(S.string)
+}));
+
+let TestSEHSource = {
+  Id: undefined,
+  name: name,
+  eventSchema: eventSchema
+};
+
+let capturedOrders = {
+  contents: []
+};
+
+let moduleUrl = import.meta.url;
+
+async function execute(id, _meta, event, _queryEngine) {
+  capturedOrders.contents = capturedOrders.contents.concat([[
+      id,
+      event.orderId
+    ]]);
+}
+
+let TestSideEffect = {
+  Source: undefined,
+  moduleUrl: moduleUrl,
+  execute: execute
+};
+
+let EventCollectorCh = LocalEventCollectorChannel$ReventlessLocal.Make(Bus);
+
+let SpecificEventCollector = EventCollector_Builder$ReventlessCore.Make({
+  make: LocalRuntimeEnvironment$ReventlessLocal.make,
+  groupBySource: LocalRuntimeEnvironment$ReventlessLocal.groupBySource,
+  extractCorrelationId: LocalRuntimeEnvironment$ReventlessLocal.extractCorrelationId,
+  asEventHandler: prim => prim,
+  asEffectHandler: prim => prim
+})(EventCollectorCh);
+
+let ECRTBuilder = LocalEventCollectorRuntime_Builder$ReventlessLocal.Make(Bus)(EventCollectorCh);
+
+let SEHBuilder = SideEffectHandler_Builder$ReventlessCore.Make({
+  make: LocalRuntimeEnvironment$ReventlessLocal.make,
+  groupBySource: LocalRuntimeEnvironment$ReventlessLocal.groupBySource,
+  extractCorrelationId: LocalRuntimeEnvironment$ReventlessLocal.extractCorrelationId,
+  asEventHandler: prim => prim,
+  asEffectHandler: prim => prim
+})(EventCollectorCh)(SpecificEventCollector)(ECRTBuilder);
+
+let topicName = "TestSEHSource";
+
+let topicResource = Adapter$ReventlessInfra.make(Pulumi.output(topicName), Pulumi.output(topicName), Pulumi.output(topicName), Pulumi.output("memory:InMemory"), undefined, undefined, undefined, undefined, undefined, undefined);
+
+let allEventTopics = Object.fromEntries([[
+    "TestSEHSource",
+    {
+      resources: [topicResource]
+    }
+  ]]);
+
+let sideEffects = [{
+    Source: {
+      name: name,
+      Id: {
+        schema: Id$Reventless.StringPure.schema,
+        make: prim => prim,
+        makeFromString: prim => prim,
+        toString: prim => prim,
+        cmp: Id$Reventless.StringPure.cmp
+      },
+      eventSchema: eventSchema
+    },
+    moduleUrl: moduleUrl,
+    execute: execute
+  }];
+
+let seh = SEHBuilder.make("TestSEH", sideEffects, allEventTopics, Pulumi.output({}), undefined, TestFixtures$ReventlessLocal.mockQueryEngine, TestFixtures$ReventlessLocal.mockScheduler, TestFixtures$ReventlessLocal.mockResourceNaming, undefined, undefined, undefined);
+
+let testMeta = TestFixtures$ReventlessLocal.makeTestMeta("TestSEHSource");
+
+async function publishOrderPlaced(id, orderId) {
+  let eventJson = Object.fromEntries([
+    [
+      "id",
+      id
+    ],
+    [
+      "meta",
+      S.reverseConvertToJsonOrThrow(testMeta, Message$Reventless.metaSchema)
+    ],
+    [
+      "event",
+      S.reverseConvertToJsonOrThrow({
+        TAG: "OrderPlaced",
+        orderId: orderId
+      }, eventSchema)
+    ]
+  ]);
+  return await Bus.publishEvent(topicName, "TestSEHSource", testMeta, eventJson);
+}
+
+function resetMocks() {
+  capturedOrders.contents = [];
+}
+
+export {
+  Bus,
+  TestSEHSource,
+  capturedOrders,
+  TestSideEffect,
+  EventCollectorCh,
+  SpecificEventCollector,
+  ECRTBuilder,
+  SEHBuilder,
+  topicName,
+  topicResource,
+  allEventTopics,
+  sideEffects,
+  seh,
+  testMeta,
+  publishOrderPlaced,
+  resetMocks,
+}
+/*  Not a pure module */

package/tests/components/sideeffecthandler/SideEffectHandlerTest.res

@@ -0,0 +1,39 @@
+// Integration tests for SideEffectHandler builder (in-memory).
+// Publishes events to the bus and verifies side effect execute is called.
+
+open JestGlobals
+open SideEffectHandlerFixtures
+
+// ─────────────────────────────────────────────────────────────
+// Resolve Output chain before tests run (same pattern as ReadModelTest).
+//
+// Two resolves:
+//   1. seh operations — triggers EventCollector.make → EventCollectorRuntimeBuilder.forEventCollector
+//      → LocalEventCollectorChannel.connect (starts resource.name.apply subscription chain).
+//   2. topicResource.name — resolves the inner resource.name Output, registering
+//      Bus.subscribeToEvents for the side effect handler.
+// ─────────────────────────────────────────────────────────────
+
+let _ = beforeAllAsync(async () => {
+  let _ = await seh->ReventlessCore.Component.operations->TestRunner.resolve
+  let _ = await topicResource.name->TestRunner.resolve
+})
+
+describe("SideEffectHandler (in-memory)", () => {
+  let _ = beforeEach(() => resetMocks())
+
+  testPromise("OrderPlaced event triggers execute with correct id and orderId", async () => {
+    await publishOrderPlaced("order-1", "ord-abc")
+    expect(capturedOrders.contents->Array.length)->toBe(1)
+    let entry = capturedOrders.contents->Array.getUnsafe(0)
+    let (aggId, orderId) = entry
+    expect(aggId)->toBe("order-1")
+    expect(orderId)->toBe("ord-abc")
+  })
+
+  testPromise("multiple events trigger execute for each", async () => {
+    await publishOrderPlaced("order-2", "ord-def")
+    await publishOrderPlaced("order-3", "ord-ghi")
+    expect(capturedOrders.contents->Array.length)->toBe(2)
+  })
+})

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

@@ -0,0 +1,28 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+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 SideEffectHandlerFixtures$ReventlessLocal from "./SideEffectHandlerFixtures.res.mjs";
+
+globalThis.beforeAll(async () => {
+  await TestRunner$ReventlessLocal.resolve(Component$ReventlessCore.operations(SideEffectHandlerFixtures$ReventlessLocal.seh));
+  await TestRunner$ReventlessLocal.resolve(SideEffectHandlerFixtures$ReventlessLocal.topicResource.name);
+});
+
+globalThis.describe("SideEffectHandler (in-memory)", () => {
+  globalThis.beforeEach(() => SideEffectHandlerFixtures$ReventlessLocal.resetMocks());
+  globalThis.test("OrderPlaced event triggers execute with correct id and orderId", async () => {
+    await SideEffectHandlerFixtures$ReventlessLocal.publishOrderPlaced("order-1", "ord-abc");
+    globalThis.expect(SideEffectHandlerFixtures$ReventlessLocal.capturedOrders.contents.length).toBe(1);
+    let entry = SideEffectHandlerFixtures$ReventlessLocal.capturedOrders.contents[0];
+    globalThis.expect(entry[0]).toBe("order-1");
+    globalThis.expect(entry[1]).toBe("ord-abc");
+  });
+  globalThis.test("multiple events trigger execute for each", async () => {
+    await SideEffectHandlerFixtures$ReventlessLocal.publishOrderPlaced("order-2", "ord-def");
+    await SideEffectHandlerFixtures$ReventlessLocal.publishOrderPlaced("order-3", "ord-ghi");
+    globalThis.expect(SideEffectHandlerFixtures$ReventlessLocal.capturedOrders.contents.length).toBe(2);
+  });
+});
+
+/*  Not a pure module */

package/tests/components/stateviewslice/StateViewSliceFixtures.res

@@ -0,0 +1,117 @@
+// E2E test fixtures for StateViewSlice builder.
+// Builds a StateViewSlice on top of a DcbEventLog and verifies projection into QueryDb.
+
+open Reventless.Projection
+
+// ─────────────────────────────────────────────────────────────
+// Event type definition for the DcbEventLog
+// ─────────────────────────────────────────────────────────────
+
+module ItemEventLog = {
+  @schema
+  type event =
+    | ItemAdded({id: @s.matches(Reventless.DcbTag.string) string, name: string})
+    | ItemRenamed({id: @s.matches(Reventless.DcbTag.string) string, name: string})
+    | ItemRemoved({id: @s.matches(Reventless.DcbTag.string) string})
+}
+
+// ─────────────────────────────────────────────────────────────
+// StateViewSlice spec: project ItemEventLog events to {id, name} state
+// ─────────────────────────────────────────────────────────────
+
+module ItemsViewSpec = {
+  let name = "ItemsView"
+  let moduleUrl: string = %raw(`import.meta.url`)
+
+  @schema
+  type consumedEvent =
+    | ItemAdded({id: string, name: string})
+    | ItemRenamed({id: string, name: string})
+    | ItemRemoved({id: string})
+
+  @schema
+  type state = {id: string, name: string}
+
+  let config = Reventless.ReadModel.config()
+  let subIdConfig = None
+}
+
+module ItemsViewProjection = {
+  module Spec = ItemsViewSpec
+  open ItemsViewSpec
+
+  let moduleUrl: string = %raw(`import.meta.url`)
+
+  let project = (event: consumedEvent) =>
+    switch event {
+    | ItemAdded({id, name}) => [Set(id, {id, name})]
+    | ItemRenamed({id, name}) => [Update(id, s => {...s, name})]
+    | ItemRemoved({id}) => [Delete(id)]
+    }
+}
+
+// ─────────────────────────────────────────────────────────────
+// Isolated bus for this test suite
+// ─────────────────────────────────────────────────────────────
+
+module Bus = LocalBus.Make()
+
+// ─────────────────────────────────────────────────────────────
+// Activate Pulumi mock mode (must be before any Component.make)
+// ─────────────────────────────────────────────────────────────
+
+let _ = TestRunner.setup()
+
+// ─────────────────────────────────────────────────────────────
+// Build DcbEventLog
+// ─────────────────────────────────────────────────────────────
+
+module ItemEventLogMaker = DcbEventLog_Builder.Make(Bus)
+let eventLog = ItemEventLogMaker.make(~name="ItemEventLog", ~partitionTag=Reventless.DcbTag.Simple({key: "id"}))
+
+// ─────────────────────────────────────────────────────────────
+// Build StateViewSlice
+// ─────────────────────────────────────────────────────────────
+
+module SVMaker = StateViewSlice_Builder.Make(Bus)
+module ItemsViewMaker = SVMaker.Make(ItemsViewSpec, ItemsViewProjection)
+let sv = ItemsViewMaker.make(~dcbEventLog=eventLog)
+
+// DcbEventLog eventTopic resource — needed for 2nd beforeAllAsync resolve to
+// trigger EventCollectorChannel.connect registration.
+let dcbEventTopicResource =
+  (eventLog->ReventlessCore.Component.outputs).eventTopic.resources->Array.getUnsafe(0)
+
+// ─────────────────────────────────────────────────────────────
+// Test helpers
+// ─────────────────────────────────────────────────────────────
+
+// Encode a typed event into a raw event for appending to the DcbEventLog
+let encodeEvent = (event: ItemEventLog.event): ReventlessInfra.DcbEventLog.rawEvent => {
+  let json = event->S.reverseConvertToJsonOrThrow(ItemEventLog.eventSchema)
+  let (eventType, data) = json->ReventlessCore.Message.splitMessage
+  let tags = Reventless.DcbTag.extractTags(ItemEventLog.eventSchema, event)
+  let meta = ReventlessCore.Message.generateMeta(~service="test")
+  {eventType, data: JSON.Object(data), tags, meta}
+}
+
+// Append an event to the DcbEventLog (publishes to event topic automatically)
+let appendEvent = async event => {
+  let ops = await eventLog->ItemEventLogMaker.operations->TestRunner.resolve
+  let _ = await ops.append([encodeEvent(event)])
+}
+
+// Load projected state from the in-memory QueryDb.
+// QueryDb is registered with the base Spec.name = "ItemsView".
+let loadState = async id => {
+  switch Bus.getQueryDb("ItemsView") {
+  | None => []
+  | Some(ops) =>
+    let states =
+      await ops.loadStream(id)
+      ->Stream.runCollect
+      ->Effect.catchAll(_ => Effect.succeed([]))
+      ->Effect.runPromise
+    states->Array.map(json => json->S.parseJsonOrThrow(ItemsViewSpec.stateSchema))
+  }
+}

package/tests/components/stateviewslice/StateViewSliceFixtures.res.mjs

@@ -0,0 +1,188 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.res.mjs";
+import * as Stream from "@reventlessdev/rescript-effect/src/Stream.res.mjs";
+import * as Effect from "effect/Effect";
+import * as DcbTag$Reventless from "@reventlessdev/reventless-spec/src/components/DcbTag.res.mjs";
+import * as ReadModel$Reventless from "@reventlessdev/reventless-spec/src/components/ReadModel.res.mjs";
+import * as Message$ReventlessCore from "@reventlessdev/reventless-core/src/Message.res.mjs";
+import * as Component$ReventlessCore from "@reventlessdev/reventless-core/src/components/Component.res.mjs";
+import * as LocalBus$ReventlessLocal from "../../../src/adapter/LocalBus.res.mjs";
+import * as TestRunner$ReventlessLocal from "../../../src/test/TestRunner.res.mjs";
+import * as DcbEventLog_Builder$ReventlessLocal from "../../../src/components/DcbEventLog_Builder.res.mjs";
+import * as StateViewSlice_Builder$ReventlessLocal from "../../../src/components/StateViewSlice_Builder.res.mjs";
+
+let eventSchema = S.union([
+  S.schema(s => ({
+    TAG: "ItemAdded",
+    id: s.m(DcbTag$Reventless.string),
+    name: s.m(S.string)
+  })),
+  S.schema(s => ({
+    TAG: "ItemRenamed",
+    id: s.m(DcbTag$Reventless.string),
+    name: s.m(S.string)
+  })),
+  S.schema(s => ({
+    TAG: "ItemRemoved",
+    id: s.m(DcbTag$Reventless.string)
+  }))
+]);
+
+let ItemEventLog = {
+  eventSchema: eventSchema
+};
+
+let name = "ItemsView";
+
+let moduleUrl = import.meta.url;
+
+let consumedEventSchema = S.union([
+  S.schema(s => ({
+    TAG: "ItemAdded",
+    id: s.m(S.string),
+    name: s.m(S.string)
+  })),
+  S.schema(s => ({
+    TAG: "ItemRenamed",
+    id: s.m(S.string),
+    name: s.m(S.string)
+  })),
+  S.schema(s => ({
+    TAG: "ItemRemoved",
+    id: s.m(S.string)
+  }))
+]);
+
+let stateSchema = S.schema(s => ({
+  id: s.m(S.string),
+  name: s.m(S.string)
+}));
+
+let config = ReadModel$Reventless.config(undefined, undefined, undefined);
+
+let ItemsViewSpec = {
+  name: name,
+  moduleUrl: moduleUrl,
+  consumedEventSchema: consumedEventSchema,
+  stateSchema: stateSchema,
+  config: config,
+  subIdConfig: undefined,
+  authorization: "AllowAuthenticated",
+  visibility: "Public"
+};
+
+let moduleUrl$1 = import.meta.url;
+
+function project(event) {
+  switch (event.TAG) {
+    case "ItemAdded" :
+      let id = event.id;
+      return [{
+          TAG: "Set",
+          _0: id,
+          _1: {
+            id: id,
+            name: event.name
+          }
+        }];
+    case "ItemRenamed" :
+      let name = event.name;
+      return [{
+          TAG: "Update",
+          _0: event.id,
+          _1: s => ({
+            id: s.id,
+            name: name
+          })
+        }];
+    case "ItemRemoved" :
+      return [{
+          TAG: "Delete",
+          _0: event.id
+        }];
+  }
+}
+
+let ItemsViewProjection = {
+  Spec: undefined,
+  moduleUrl: moduleUrl$1,
+  project: project
+};
+
+let Bus = LocalBus$ReventlessLocal.Make({});
+
+TestRunner$ReventlessLocal.setup();
+
+let ItemEventLogMaker = DcbEventLog_Builder$ReventlessLocal.Make(Bus);
+
+let eventLog = ItemEventLogMaker.make("ItemEventLog", undefined, {
+  TAG: "Simple",
+  _0: {
+    key: "id"
+  }
+}, undefined);
+
+let SVMaker = StateViewSlice_Builder$ReventlessLocal.Make(Bus);
+
+let ItemsViewMaker = SVMaker.Make({
+  name: name,
+  moduleUrl: moduleUrl,
+  stateSchema: stateSchema,
+  consumedEventSchema: consumedEventSchema,
+  config: config,
+  subIdConfig: undefined,
+  authorization: "AllowAuthenticated",
+  visibility: "Public"
+})({
+  project: project,
+  moduleUrl: moduleUrl$1
+});
+
+let sv = ItemsViewMaker.make(eventLog, undefined);
+
+let dcbEventTopicResource = Component$ReventlessCore.outputs(eventLog).eventTopic.resources[0];
+
+function encodeEvent(event) {
+  let json = S.reverseConvertToJsonOrThrow(event, eventSchema);
+  let match = Message$ReventlessCore.splitMessage(json);
+  let tags = DcbTag$Reventless.extractTags(eventSchema, event);
+  let meta = Message$ReventlessCore.generateMeta("test", undefined, undefined, undefined, undefined, undefined, undefined, undefined);
+  return {
+    eventType: match[0],
+    data: match[1],
+    tags: tags,
+    meta: meta
+  };
+}
+
+async function appendEvent(event) {
+  let ops = await TestRunner$ReventlessLocal.resolve(ItemEventLogMaker.operations(eventLog));
+  await ops.append([encodeEvent(event)], undefined);
+}
+
+async function loadState(id) {
+  let ops = Bus.getQueryDb("ItemsView");
+  if (ops === undefined) {
+    return [];
+  }
+  let states = await Effect.runPromise(Effect.catchAll(Stream.runCollect(ops.loadStream(id)), param => Effect.succeed([])));
+  return states.map(json => S.parseJsonOrThrow(json, stateSchema));
+}
+
+export {
+  ItemEventLog,
+  ItemsViewSpec,
+  ItemsViewProjection,
+  Bus,
+  ItemEventLogMaker,
+  eventLog,
+  SVMaker,
+  ItemsViewMaker,
+  sv,
+  dcbEventTopicResource,
+  encodeEvent,
+  appendEvent,
+  loadState,
+}
+/* eventSchema Not a pure module */

package/tests/components/stateviewslice/StateViewSliceSubIdFixtures.res

@@ -0,0 +1,117 @@
+// E2E test fixtures for StateViewSlice with sub-ID (composite sort key).
+// Verifies that projection stores items with composite sub-keys and that
+// loadStream returns them sorted.
+
+open Reventless.Projection
+
+// ─────────────────────────────────────────────────────────────
+// Event type definition for the DcbEventLog
+// ─────────────────────────────────────────────────────────────
+
+module ScoreEventLog = {
+  @schema
+  type event =
+    | ScoreRecorded({id: @s.matches(Reventless.DcbTag.string) string, category: string, date: string, score: int})
+    | ScoreRemoved({id: @s.matches(Reventless.DcbTag.string) string, category: string, date: string})
+}
+
+// ─────────────────────────────────────────────────────────────
+// StateViewSlice spec with composite sub-key (category + "/" + date)
+// ─────────────────────────────────────────────────────────────
+
+module ScoresViewSpec = {
+  let name = "ScoresView"
+  let moduleUrl: string = %raw(`import.meta.url`)
+
+  @schema
+  type consumedEvent =
+    | ScoreRecorded({id: string, category: string, date: string, score: int})
+    | ScoreRemoved({id: string, category: string, date: string})
+
+  @schema
+  type state = {id: string, category: string, date: string, score: int}
+
+  let config = Reventless.ReadModel.config()
+  let subIdConfig: option<Reventless.ReadModel.subIdConfig<state>> = Some({
+    subIdField: "_subId",
+    getSubId: (state: state) => state.category ++ "/" ++ state.date,
+  })
+}
+
+module ScoresViewProjection = {
+  module Spec = ScoresViewSpec
+  open ScoresViewSpec
+
+  let moduleUrl: string = %raw(`import.meta.url`)
+
+  let project = (event: consumedEvent) =>
+    switch event {
+    | ScoreRecorded({id, category, date, score}) =>
+      [Set(id, {id, category, date, score})]
+    | ScoreRemoved({id, category: _, date: _}) =>
+      [Delete(id)]
+    }
+}
+
+// ─────────────────────────────────────────────────────────────
+// Isolated bus for this test suite
+// ─────────────────────────────────────────────────────────────
+
+module Bus = LocalBus.Make()
+
+// ─────────────────────────────────────────────────────────────
+// Activate Pulumi mock mode (must be before any Component.make)
+// ─────────────────────────────────────────────────────────────
+
+let _ = TestRunner.setup()
+
+// ─────────────────────────────────────────────────────────────
+// Build DcbEventLog
+// ─────────────────────────────────────────────────────────────
+
+module ScoreEventLogMaker = DcbEventLog_Builder.Make(Bus)
+let eventLog = ScoreEventLogMaker.make(
+  ~name="ScoreEventLog",
+  ~partitionTag=Reventless.DcbTag.Simple({key: "id"}),
+)
+
+// ─────────────────────────────────────────────────────────────
+// Build StateViewSlice
+// ─────────────────────────────────────────────────────────────
+
+module SVMaker = StateViewSlice_Builder.Make(Bus)
+module ScoresViewMaker = SVMaker.Make(ScoresViewSpec, ScoresViewProjection)
+let sv = ScoresViewMaker.make(~dcbEventLog=eventLog)
+
+let dcbEventTopicResource =
+  (eventLog->ReventlessCore.Component.outputs).eventTopic.resources->Array.getUnsafe(0)
+
+// ─────────────────────────────────────────────────────────────
+// Test helpers
+// ─────────────────────────────────────────────────────────────
+
+let encodeEvent = (event: ScoreEventLog.event): ReventlessInfra.DcbEventLog.rawEvent => {
+  let json = event->S.reverseConvertToJsonOrThrow(ScoreEventLog.eventSchema)
+  let (eventType, data) = json->ReventlessCore.Message.splitMessage
+  let tags = Reventless.DcbTag.extractTags(ScoreEventLog.eventSchema, event)
+  let meta = ReventlessCore.Message.generateMeta(~service="test")
+  {eventType, data: JSON.Object(data), tags, meta}
+}
+
+let appendEvent = async event => {
+  let ops = await eventLog->ScoreEventLogMaker.operations->TestRunner.resolve
+  let _ = await ops.append([encodeEvent(event)])
+}
+
+let loadScores = async id => {
+  switch Bus.getQueryDb("ScoresView") {
+  | None => []
+  | Some(ops) =>
+    let states =
+      await ops.loadStream(id)
+      ->Stream.runCollect
+      ->Effect.catchAll(_ => Effect.succeed([]))
+      ->Effect.runPromise
+    states->Array.map(json => json->S.parseJsonOrThrow(ScoresViewSpec.stateSchema))
+  }
+}