@reventlessdev/reventless-core 3.0.0-alpha.169 → 3.0.0-alpha.171

package/tests/plugin/StateChangeSlice/PsShipOrder.res.mjs

@@ -1,69 +0,0 @@
-// 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 consumedEventSchema = S.union([
-  S.literal("OrderPlaced"),
-  S.literal("OrderShipped"),
-  S.literal("OrderCancelled")
-]);
-
-function evolve(_state, _event) {
-  return true;
-}
-
-let commandSchema = S.union([
-  S.schema(s => ({
-    TAG: "ShipOrder",
-    orderId: s.m(DcbTag$Reventless.string)
-  })),
-  S.literal("CancelShipment")
-]);
-
-let errorSchema = S.literal("OrderNotFound");
-
-let eventSchema = S.union([
-  S.schema(s => ({
-    TAG: "OrderShipped",
-    orderId: s.m(DcbTag$Reventless.string)
-  })),
-  S.literal("ShipmentVoided")
-]);
-
-function decide(_state, _command) {
-  return {
-    TAG: "Ok",
-    _0: []
-  };
-}
-
-function commandAuthorization(param) {
-  return "AllowAuthenticated";
-}
-
-let name = "ShipOrder";
-
-let Id;
-
-let initialState = false;
-
-let moduleUrl = "@reventlessdev/reventless-core/tests/plugin/StateChangeSlice/PsShipOrder.res.mjs";
-
-let readConsistency = "EscalateOnRetry";
-
-export {
-  name,
-  Id,
-  initialState,
-  consumedEventSchema,
-  evolve,
-  commandSchema,
-  errorSchema,
-  eventSchema,
-  decide,
-  moduleUrl,
-  commandAuthorization,
-  readConsistency,
-}
-/* consumedEventSchema Not a pure module */

package/tests/plugin/StateViewSlice/PsAnnotatedView.res.mjs

@@ -1,95 +0,0 @@
-// 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";
-import * as ReadModel$Reventless from "@reventlessdev/reventless-spec/src/components/ReadModel.res.mjs";
-import * as StateAnnotations$Reventless from "@reventlessdev/reventless-spec/src/components/StateAnnotations.res.mjs";
-
-let consumedEventSchema = S.schema(s => ({
-  TAG: "ItemRecorded",
-  itemId: s.m(DcbTag$Reventless.string),
-  ownerId: s.m(DcbTag$Reventless.string),
-  version: s.m(S.string),
-  name: s.m(S.string)
-}));
-
-let stateSchema = S.schema(s => ({
-  itemId: s.m(S.string),
-  version: s.m(S.string),
-  ownerId: s.m(S.string),
-  name: s.m(S.string)
-}));
-
-function project(event) {
-  let itemId = event.itemId;
-  return [{
-      TAG: "Set",
-      _0: itemId,
-      _1: {
-        itemId: itemId,
-        version: event.version,
-        ownerId: event.ownerId,
-        name: event.name
-      }
-    }];
-}
-
-let config = ReadModel$Reventless.config(undefined, undefined, [{
-    index: "byOwner",
-    type_: "S",
-    idField: "ownerId",
-    projectionType: "ALL"
-  }]);
-
-let subIdConfig = {
-  subIdField: "version",
-  getSubId: (state => state.version)
-};
-
-let makeId = (state => state.itemId);
-
-let stateSchema$1 = S.Metadata.set(stateSchema, StateAnnotations$Reventless.stateAnnotationsId, {
-  ids: ["itemId"],
-  compositeIds: [],
-  subIds: ["version"],
-  compositeSubIds: [],
-  indexes: [[
-      "ownerId",
-      "byOwner"
-    ]],
-  hidden: [],
-  summary: [],
-  drillTargets: [],
-  drillTargetKeys: [],
-  collapsed: [],
-  scan: [],
-  scanSort: [],
-  status: undefined,
-  groupBy: undefined,
-  visibility: undefined
-});
-
-let name = "AnnotatedView";
-
-let Id;
-
-let moduleUrl = "@reventlessdev/reventless-core/tests/plugin/StateViewSlice/PsAnnotatedView.res.mjs";
-
-let authorization = "AllowAuthenticated";
-
-let visibility = "Public";
-
-export {
-  name,
-  Id,
-  consumedEventSchema,
-  project,
-  config,
-  subIdConfig,
-  makeId,
-  stateSchema$1 as stateSchema,
-  moduleUrl,
-  authorization,
-  visibility,
-}
-/* consumedEventSchema Not a pure module */

package/tests/plugin/StateViewSlice/PsAvailableProductsView.res.mjs

@@ -1,69 +0,0 @@
-// 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";
-import * as ReadModel$Reventless from "@reventlessdev/reventless-spec/src/components/ReadModel.res.mjs";
-
-let consumedEventSchema = S.union([
-  S.schema(s => ({
-    TAG: "CatalogProductSynced",
-    productId: s.m(DcbTag$Reventless.string),
-    name: s.m(S.string)
-  })),
-  S.schema(s => ({
-    TAG: "CatalogProductPriceChanged",
-    productId: s.m(DcbTag$Reventless.string)
-  }))
-]);
-
-let stateSchema = S.schema(s => ({
-  productId: s.m(S.string),
-  name: s.m(S.string)
-}));
-
-function project(event) {
-  if (event.TAG !== "CatalogProductSynced") {
-    return [{
-        TAG: "Update",
-        _0: event.productId,
-        _1: s => s
-      }];
-  }
-  let productId = event.productId;
-  return [{
-      TAG: "Set",
-      _0: productId,
-      _1: {
-        productId: productId,
-        name: event.name
-      }
-    }];
-}
-
-let config = ReadModel$Reventless.config(undefined, undefined, undefined);
-
-let name = "AvailableProducts";
-
-let Id;
-
-let subIdConfig;
-
-let moduleUrl = "@reventlessdev/reventless-core/tests/plugin/StateViewSlice/PsAvailableProductsView.res.mjs";
-
-let authorization = "AllowAuthenticated";
-
-let visibility = "Public";
-
-export {
-  name,
-  Id,
-  consumedEventSchema,
-  stateSchema,
-  project,
-  config,
-  subIdConfig,
-  moduleUrl,
-  authorization,
-  visibility,
-}
-/* consumedEventSchema Not a pure module */

package/tests/plugin/StateViewSlice/PsCustomersView.res.mjs

@@ -1,69 +0,0 @@
-// 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";
-import * as ReadModel$Reventless from "@reventlessdev/reventless-spec/src/components/ReadModel.res.mjs";
-import * as DisplayName$Reventless from "@reventlessdev/reventless-spec/src/components/DisplayName.res.mjs";
-
-let consumedEventSchema = S.schema(s => ({
-  TAG: "CustomerAdded",
-  customerId: s.m(DcbTag$Reventless.string),
-  firstName: s.m(S.string),
-  lastName: s.m(S.string)
-}));
-
-let stateSchema = S.schema(s => ({
-  customerId: s.m(S.string),
-  firstName: s.m(S.string),
-  lastName: s.m(S.string),
-  displayName: s.m(S.option(S.string))
-}));
-
-let stateSchema$1 = S.Metadata.set(stateSchema, DisplayName$Reventless.displayNameId, {
-  fields: [
-    "firstName",
-    "lastName"
-  ],
-  separator: " "
-});
-
-function project(event) {
-  let customerId = event.customerId;
-  return [{
-      TAG: "Set",
-      _0: customerId,
-      _1: {
-        customerId: customerId,
-        firstName: event.firstName,
-        lastName: event.lastName
-      }
-    }];
-}
-
-let config = ReadModel$Reventless.config(undefined, undefined, undefined);
-
-let name = "Customers";
-
-let Id;
-
-let subIdConfig;
-
-let moduleUrl = "@reventlessdev/reventless-core/tests/plugin/StateViewSlice/PsCustomersView.res.mjs";
-
-let authorization = "AllowAuthenticated";
-
-let visibility = "Public";
-
-export {
-  name,
-  Id,
-  consumedEventSchema,
-  stateSchema$1 as stateSchema,
-  project,
-  config,
-  subIdConfig,
-  moduleUrl,
-  authorization,
-  visibility,
-}
-/* consumedEventSchema Not a pure module */

package/tests/plugin/StateViewSlice/PsOrdersView.res.mjs

@@ -1,81 +0,0 @@
-// 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";
-import * as ReadModel$Reventless from "@reventlessdev/reventless-spec/src/components/ReadModel.res.mjs";
-
-let consumedEventSchema = S.union([
-  S.schema(s => ({
-    TAG: "OrderPlaced",
-    orderId: s.m(DcbTag$Reventless.string),
-    customerName: s.m(S.string)
-  })),
-  S.schema(s => ({
-    TAG: "OrderShipped",
-    orderId: s.m(DcbTag$Reventless.string)
-  })),
-  S.schema(s => ({
-    TAG: "OrderCancelled",
-    orderId: s.m(DcbTag$Reventless.string)
-  }))
-]);
-
-let stateSchema = S.schema(s => ({
-  orderId: s.m(S.string),
-  customerName: s.m(S.string)
-}));
-
-function project(event) {
-  switch (event.TAG) {
-    case "OrderPlaced" :
-      let orderId = event.orderId;
-      return [{
-          TAG: "Set",
-          _0: orderId,
-          _1: {
-            orderId: orderId,
-            customerName: event.customerName
-          }
-        }];
-    case "OrderShipped" :
-      return [{
-          TAG: "Update",
-          _0: event.orderId,
-          _1: s => s
-        }];
-    case "OrderCancelled" :
-      return [{
-          TAG: "Update",
-          _0: event.orderId,
-          _1: s => s
-        }];
-  }
-}
-
-let config = ReadModel$Reventless.config(undefined, undefined, undefined);
-
-let name = "Orders";
-
-let Id;
-
-let subIdConfig;
-
-let moduleUrl = "@reventlessdev/reventless-core/tests/plugin/StateViewSlice/PsOrdersView.res.mjs";
-
-let authorization = "AllowAuthenticated";
-
-let visibility = "Public";
-
-export {
-  name,
-  Id,
-  consumedEventSchema,
-  stateSchema,
-  project,
-  config,
-  subIdConfig,
-  moduleUrl,
-  authorization,
-  visibility,
-}
-/* consumedEventSchema Not a pure module */

package/tests/poc/StructuralSubtypingPoc.res.mjs

@@ -1,61 +0,0 @@
-// Generated by ReScript, PLEASE EDIT WITH CARE
-
-
-function acceptSubset(M) {
-  return M.Spec.name;
-}
-
-function coerceSuperset(M) {
-  return M;
-}
-
-function passSupersetsAsSubsets(aggregates) {
-  return aggregates.map(M => M);
-}
-
-function finishAggregates(aggregates) {
-  aggregates.forEach(M => M.AggregateRuntimeBuilder.finish());
-}
-
-function platformImplSatisfiesSpec(P) {
-  let $$let = P.Aggregate.Make;
-  return {
-    Aggregate: {
-      Make: funarg => $$let(funarg)
-    }
-  };
-}
-
-function coerceReadModelSuperset(M) {
-  return M;
-}
-
-function coerceSupersetV2(M) {
-  return M;
-}
-
-function passSupersetsAsSubsetsV2(aggregates) {
-  return aggregates.map(M => M);
-}
-
-function platformImplSatisfiesSpecV2(P) {
-  let $$let = P.Aggregate.Make;
-  return {
-    Aggregate: {
-      Make: funarg => $$let(funarg)
-    }
-  };
-}
-
-export {
-  acceptSubset,
-  coerceSuperset,
-  passSupersetsAsSubsets,
-  finishAggregates,
-  platformImplSatisfiesSpec,
-  coerceReadModelSuperset,
-  coerceSupersetV2,
-  passSupersetsAsSubsetsV2,
-  platformImplSatisfiesSpecV2,
-}
-/* No side effect */

package/tests/projection/ProjectionOptimizeTest.res.mjs

@@ -1,75 +0,0 @@
-// Generated by ReScript, PLEASE EDIT WITH CARE
-
-import * as Stdlib_Array from "@rescript/runtime/lib/es6/Stdlib_Array.js";
-import * as Projection$ReventlessCore from "../../src/Projection.res.mjs";
-
-globalThis.describe("Projection.optimizeActions", () => {
-  globalThis.test("does not duplicate the pre-merge action (off-by-one regression)", () => {
-    let optimized = Projection$ReventlessCore.optimizeActions([
-      {
-        TAG: "Delete",
-        _0: "a"
-      },
-      {
-        TAG: "Update",
-        _0: "a",
-        _1: x => x + 1 | 0
-      },
-      {
-        TAG: "Set",
-        _0: "a",
-        _1: 99
-      }
-    ]);
-    globalThis.expect(optimized.length).toBe(2);
-    let sets = Stdlib_Array.filterMap(optimized, a => {
-      if (typeof a !== "object" || a.TAG !== "Set") {
-        return;
-      } else {
-        return [
-          a._0,
-          a._1
-        ];
-      }
-    });
-    globalThis.expect(sets).toEqual([[
-        "a",
-        99
-      ]]);
-  });
-  globalThis.test("merges a same-id Create+Update chain into a single Create", () => {
-    let optimized = Projection$ReventlessCore.optimizeActions([
-      {
-        TAG: "Create",
-        _0: "a",
-        _1: 0
-      },
-      {
-        TAG: "Update",
-        _0: "a",
-        _1: x => x + 1 | 0
-      },
-      {
-        TAG: "Update",
-        _0: "a",
-        _1: x => x + 10 | 0
-      }
-    ]);
-    let creates = Stdlib_Array.filterMap(optimized, a => {
-      if (typeof a !== "object" || a.TAG !== "Create") {
-        return;
-      } else {
-        return [
-          a._0,
-          a._1
-        ];
-      }
-    });
-    globalThis.expect(creates).toEqual([[
-        "a",
-        11
-      ]]);
-  });
-});
-
-/*  Not a pure module */

package/tests/querydb/QueryDbFixtures.res.mjs

@@ -1,135 +0,0 @@
-// Generated by ReScript, PLEASE EDIT WITH CARE
-
-import * as S from "sury/src/S.res.mjs";
-import * as Stdlib_Dict from "@rescript/runtime/lib/es6/Stdlib_Dict.js";
-import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
-import * as Stream from "effect/Stream";
-import * as ReadModel$Reventless from "@reventlessdev/reventless-spec/src/components/ReadModel.res.mjs";
-
-S.enableJson();
-
-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: "TestItemQueryDb",
-  moduleUrl: moduleUrl,
-  stateSchema: stateSchema,
-  config: config,
-  subIdConfig: undefined,
-  authorization: "AllowAuthenticated",
-  visibility: "Public"
-};
-
-let store = {
-  contents: {}
-};
-
-let failNextWrite = {
-  contents: false
-};
-
-async function mockJsonOps_load(id) {
-  return {
-    TAG: "Ok",
-    _0: Stdlib_Option.getOr(store.contents[id], [])
-  };
-}
-
-function mockJsonOps_loadStream(id) {
-  return Stream.fromIterable(Stdlib_Option.getOr(store.contents[id], []));
-}
-
-async function mockJsonOps_save(id, state, _saveMode, _ttl) {
-  if (failNextWrite.contents) {
-    failNextWrite.contents = false;
-    return {
-      TAG: "Error",
-      _0: {
-        TAG: "NotSavedToStorage",
-        _0: "mock failure"
-      }
-    };
-  } else {
-    store.contents[id] = [state];
-    return {
-      TAG: "Ok",
-      _0: undefined
-    };
-  }
-}
-
-async function mockJsonOps_saveBatch(batch) {
-  if (failNextWrite.contents) {
-    failNextWrite.contents = false;
-    return {
-      TAG: "Error",
-      _0: {
-        TAG: "BatchNotFullyWrittenToStorage",
-        _0: "mock failure"
-      }
-    };
-  } else {
-    batch.forEach(param => {
-      store.contents[param[0]] = [param[1]];
-    });
-    return {
-      TAG: "Ok",
-      _0: undefined
-    };
-  }
-}
-
-async function mockJsonOps_count(_id, _field, inc) {
-  return {
-    TAG: "Ok",
-    _0: inc
-  };
-}
-
-async function mockJsonOps_delete(id, _subId) {
-  Stdlib_Dict.$$delete(store.contents, id);
-  return {
-    TAG: "Ok",
-    _0: undefined
-  };
-}
-
-async function mockJsonOps_deleteBatch(ids) {
-  ids.forEach(param => Stdlib_Dict.$$delete(store.contents, param[0]));
-  return {
-    TAG: "Ok",
-    _0: undefined
-  };
-}
-
-let mockJsonOps = {
-  load: mockJsonOps_load,
-  loadStream: mockJsonOps_loadStream,
-  save: mockJsonOps_save,
-  saveBatch: mockJsonOps_saveBatch,
-  count: mockJsonOps_count,
-  delete: mockJsonOps_delete,
-  deleteBatch: mockJsonOps_deleteBatch
-};
-
-function reset() {
-  store.contents = {};
-  failNextWrite.contents = false;
-}
-
-export {
-  ItemQueryDbSpec,
-  store,
-  failNextWrite,
-  mockJsonOps,
-  reset,
-}
-/*  Not a pure module */