@reventlessdev/reventless-core 3.0.0-alpha.170 → 3.0.0-alpha.172

package/tests/dcb/DcbFixtures.res.mjs

@@ -1,534 +0,0 @@
-// Generated by ReScript, PLEASE EDIT WITH CARE
-
-import * as S from "sury/src/S.res.mjs";
-import * as Stdlib_Int from "@rescript/runtime/lib/es6/Stdlib_Int.js";
-import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
-import * as Effect from "effect/Effect";
-import * as Stream from "effect/Stream";
-import * as DcbTag$Reventless from "@reventlessdev/reventless-spec/src/components/DcbTag.res.mjs";
-import * as Message$ReventlessCore from "../../src/Message.res.mjs";
-
-S.enableJson();
-
-let moduleUrl = import.meta.url;
-
-let eventSchema = S.union([
-  S.schema(s => ({
-    TAG: "ItemCreated",
-    itemId: s.m(DcbTag$Reventless.string),
-    name: s.m(S.string)
-  })),
-  S.schema(s => ({
-    TAG: "ItemRenamed",
-    itemId: s.m(DcbTag$Reventless.string),
-    newName: s.m(S.string)
-  })),
-  S.schema(s => ({
-    TAG: "CountUpdated",
-    category: s.m(DcbTag$Reventless.string),
-    amount: s.m(DcbTag$Reventless.int)
-  })),
-  S.literal("SimpleEvent")
-]);
-
-let TestEventLogSpec = {
-  moduleUrl: moduleUrl,
-  eventSchema: eventSchema
-};
-
-let eventSchema$1 = S.union([
-  S.schema(s => ({
-    TAG: "PlainEvent",
-    name: s.m(S.string),
-    value: s.m(S.int)
-  })),
-  S.literal("EmptyEvent")
-]);
-
-let UntaggedEventSpec = {
-  eventSchema: eventSchema$1
-};
-
-let objectEventSchema = S.schema(s => ({
-  tenantId: s.m(DcbTag$Reventless.string),
-  data: s.m(S.string)
-}));
-
-let moduleUrl$1 = import.meta.url;
-
-let eventSchema$2 = S.union([
-  S.schema(s => ({
-    TAG: "ItemCreated",
-    itemId: s.m(DcbTag$Reventless.string),
-    name: s.m(S.string)
-  })),
-  S.schema(s => ({
-    TAG: "ItemRenamed",
-    itemId: s.m(DcbTag$Reventless.string),
-    newName: s.m(S.string)
-  }))
-]);
-
-let consumedEventSchema = S.union([
-  S.schema(s => ({
-    TAG: "ItemCreated",
-    itemId: s.m(DcbTag$Reventless.string),
-    name: s.m(S.string)
-  })),
-  S.schema(s => ({
-    TAG: "ItemRenamed",
-    itemId: s.m(DcbTag$Reventless.string),
-    newName: s.m(S.string)
-  }))
-]);
-
-let commandSchema = S.union([
-  S.schema(s => ({
-    TAG: "CreateItem",
-    itemId: s.m(DcbTag$Reventless.string),
-    name: s.m(S.string)
-  })),
-  S.schema(s => ({
-    TAG: "RenameItem",
-    itemId: s.m(DcbTag$Reventless.string),
-    newName: s.m(S.string)
-  })),
-  S.literal("NoOp")
-]);
-
-let errorSchema = S.union([
-  S.literal("ItemAlreadyExists"),
-  S.literal("ItemNotFound")
-]);
-
-function evolve(state, event) {
-  if (event.TAG === "ItemCreated") {
-    return {
-      exists: true,
-      currentName: event.name
-    };
-  } else {
-    return {
-      exists: state.exists,
-      currentName: event.newName
-    };
-  }
-}
-
-function decide(state, command) {
-  if (typeof command !== "object") {
-    return {
-      TAG: "Ok",
-      _0: []
-    };
-  } else if (command.TAG === "CreateItem") {
-    if (state.exists) {
-      return {
-        TAG: "Error",
-        _0: "ItemAlreadyExists"
-      };
-    } else {
-      return {
-        TAG: "Ok",
-        _0: [{
-            TAG: "ItemCreated",
-            itemId: command.itemId,
-            name: command.name
-          }]
-      };
-    }
-  } else if (state.exists) {
-    return {
-      TAG: "Ok",
-      _0: [{
-          TAG: "ItemRenamed",
-          itemId: command.itemId,
-          newName: command.newName
-        }]
-    };
-  } else {
-    return {
-      TAG: "Error",
-      _0: "ItemNotFound"
-    };
-  }
-}
-
-function commandAuthorization(param) {
-  return "AllowAuthenticated";
-}
-
-let TestCommandSpec_initialState = {
-  exists: false,
-  currentName: undefined
-};
-
-let TestCommandSpec = {
-  name: "TestStateChangeSlice",
-  Id: undefined,
-  moduleUrl: moduleUrl$1,
-  eventSchema: eventSchema$2,
-  consumedEventSchema: consumedEventSchema,
-  commandSchema: commandSchema,
-  errorSchema: errorSchema,
-  initialState: TestCommandSpec_initialState,
-  evolve: evolve,
-  decide: decide,
-  commandAuthorization: commandAuthorization,
-  readConsistency: "EscalateOnRetry"
-};
-
-function posToInt(pos) {
-  return Stdlib_Option.getOr(Stdlib_Int.fromString(pos, undefined), 0);
-}
-
-function makeMockStorage() {
-  let events = {
-    contents: []
-  };
-  let position = {
-    contents: 0
-  };
-  let publishedEventsRef = {
-    contents: []
-  };
-  let failNextAppendsRef = {
-    contents: 0
-  };
-  let readAftersRef = {
-    contents: []
-  };
-  let readStrongConsistencyRef = {
-    contents: []
-  };
-  let matchesQuery = (event, query) => {
-    if (query.length === 0) {
-      return true;
-    } else {
-      return query.some(queryItem => {
-        let types = queryItem.eventTypes;
-        let typeMatch = types !== undefined ? types.includes(event.eventType) : true;
-        let tags = queryItem.tags;
-        let tagMatch = tags !== undefined ? tags.every(tag => event.tags.some(et => {
-            if (et.key === tag.key) {
-              return et.value === tag.value;
-            } else {
-              return false;
-            }
-          })) : true;
-        if (typeMatch) {
-          return tagMatch;
-        } else {
-          return false;
-        }
-      });
-    }
-  };
-  let read = async (query, after) => {
-    readAftersRef.contents = readAftersRef.contents.concat([after]);
-    let filtered = events.contents.filter(event => {
-      let afterMatch = after !== undefined ? posToInt(event.position) > posToInt(after) : true;
-      if (afterMatch) {
-        return matchesQuery(event, query);
-      } else {
-        return false;
-      }
-    });
-    let headPosition = Stdlib_Option.map(events.contents[events.contents.length - 1 | 0], e => e.position);
-    return {
-      events: filtered,
-      headPosition: headPosition
-    };
-  };
-  let append = async (newEvents, condition) => {
-    if (failNextAppendsRef.contents > 0) {
-      failNextAppendsRef.contents = failNextAppendsRef.contents - 1 | 0;
-      return {
-        TAG: "Error",
-        _0: "Conflict"
-      };
-    }
-    let conflictDetected = condition !== undefined ? events.contents.some(event => {
-        let pos = condition.after;
-        let afterMatch = pos !== undefined ? posToInt(event.position) > posToInt(pos) : true;
-        if (afterMatch) {
-          return matchesQuery(event, condition.query);
-        } else {
-          return false;
-        }
-      }) : false;
-    if (conflictDetected) {
-      return {
-        TAG: "Error",
-        _0: "Conflict"
-      };
-    }
-    let storedEvents = newEvents.map(event => {
-      position.contents = position.contents + 1 | 0;
-      let pos = position.contents.toString();
-      return {
-        position: pos,
-        eventType: event.eventType,
-        data: event.data,
-        tags: event.tags,
-        meta: event.meta,
-        recordedAt: Message$ReventlessCore.nowAsISOString()
-      };
-    });
-    events.contents = events.contents.concat(storedEvents);
-    return {
-      TAG: "Ok",
-      _0: position.contents.toString()
-    };
-  };
-  let readStream = (query, after, strongConsistencyOpt) => {
-    let strongConsistency = strongConsistencyOpt !== undefined ? strongConsistencyOpt : false;
-    readStrongConsistencyRef.contents = readStrongConsistencyRef.contents.concat([strongConsistency]);
-    return Stream.flatMap(Stream.fromEffect(Effect.map(Effect.promise(() => read(query, after)), result => result.events)), arr => Stream.fromIterable(arr));
-  };
-  let mockPublishJson = async (service, meta, json) => {
-    publishedEventsRef.contents = publishedEventsRef.contents.concat([{
-        service: service,
-        meta: meta,
-        json: json
-      }]);
-  };
-  let reset = () => {
-    events.contents = [];
-    position.contents = 0;
-    publishedEventsRef.contents = [];
-    failNextAppendsRef.contents = 0;
-    readAftersRef.contents = [];
-    readStrongConsistencyRef.contents = [];
-  };
-  return {
-    operations: {
-      read: read,
-      append: append,
-      readStream: readStream
-    },
-    getEvents: () => events.contents,
-    publishedEvents: publishedEventsRef,
-    mockPublishJson: mockPublishJson,
-    failNextAppends: failNextAppendsRef,
-    readAfters: readAftersRef,
-    readStrongConsistency: readStrongConsistencyRef,
-    reset: reset
-  };
-}
-
-let plainRecordSchema = S.schema(s => ({
-  name: s.m(S.string),
-  value: s.m(S.int)
-}));
-
-let multiTagRecordSchema = S.schema(s => ({
-  userId: s.m(DcbTag$Reventless.string),
-  tenantId: s.m(DcbTag$Reventless.string),
-  data: s.m(S.string)
-}));
-
-let emptyVariantSchema = S.literal("Empty");
-
-let intTagEventSchema = S.schema(s => ({
-  TAG: "CountEvent",
-  count: s.m(DcbTag$Reventless.int)
-}));
-
-let mixedEventSchema = S.union([
-  S.schema(s => ({
-    TAG: "EventA",
-    id: s.m(DcbTag$Reventless.string),
-    name: s.m(S.string)
-  })),
-  S.schema(s => ({
-    TAG: "EventB",
-    id: s.m(DcbTag$Reventless.string),
-    count: s.m(S.int)
-  })),
-  S.schema(s => ({
-    TAG: "EventC",
-    untaggedField: s.m(S.string)
-  }))
-]);
-
-let complexEventSchema = S.union([
-  S.schema(s => ({
-    TAG: "UserCreated",
-    userId: s.m(DcbTag$Reventless.string),
-    name: s.m(S.string)
-  })),
-  S.schema(s => ({
-    TAG: "UserUpdated",
-    userId: s.m(DcbTag$Reventless.string),
-    email: s.m(S.string)
-  })),
-  S.schema(s => ({
-    TAG: "OrderPlaced",
-    orderId: s.m(DcbTag$Reventless.string),
-    userId: s.m(DcbTag$Reventless.string),
-    amount: s.m(S.float)
-  })),
-  S.schema(s => ({
-    TAG: "OrderShipped",
-    orderId: s.m(DcbTag$Reventless.string),
-    trackingId: s.m(DcbTag$Reventless.string)
-  })),
-  S.schema(s => ({
-    TAG: "PaymentProcessed",
-    paymentId: s.m(DcbTag$Reventless.string),
-    amount: s.m(S.float)
-  }))
-]);
-
-let multiFieldEventSchema = S.schema(s => ({
-  TAG: "EventWithMultipleTags",
-  userId: s.m(DcbTag$Reventless.string),
-  tenantId: s.m(DcbTag$Reventless.string),
-  sessionId: s.m(DcbTag$Reventless.string)
-}));
-
-let crossEntityCommandSchema = S.schema(s => ({
-  TAG: "PlaceOrder",
-  orderId: s.m(DcbTag$Reventless.string),
-  customerId: s.m(S.string),
-  productId: s.m(S.array(DcbTag$Reventless.string))
-}));
-
-let singleTagCommandSchema = S.schema(s => ({
-  TAG: "CreateItem",
-  itemId: s.m(DcbTag$Reventless.string),
-  name: s.m(S.string)
-}));
-
-let orderEventLogSchema = S.union([
-  S.schema(s => ({
-    TAG: "OrderPlaced",
-    orderId: s.m(DcbTag$Reventless.string),
-    customerId: s.m(DcbTag$Reventless.string),
-    productId: s.m(DcbTag$Reventless.string)
-  })),
-  S.schema(s => ({
-    TAG: "CatalogProductSynced",
-    productId: s.m(DcbTag$Reventless.string)
-  }))
-]);
-
-let singleProductEventSchema = S.schema(s => ({
-  TAG: "CatalogProductSynced",
-  productId: s.m(DcbTag$Reventless.string)
-}));
-
-let multiProductCommandSchema = S.schema(s => ({
-  TAG: "PlaceOrderWithMany",
-  orderId: s.m(DcbTag$Reventless.string),
-  productIds: s.m(S.array(DcbTag$Reventless.stringForKey("productId")))
-}));
-
-let customKeyEventSchema = S.schema(s => ({
-  TAG: "ProductLabelled",
-  sku: s.m(DcbTag$Reventless.stringForKey("productSku"))
-}));
-
-let compositeEventSchema = S.schema(s => ({
-  TAG: "SyncPlugin",
-  environment: s.m(DcbTag$Reventless.compositePartitionMember(0, undefined)),
-  platformName: s.m(DcbTag$Reventless.compositePartitionMember(1, undefined)),
-  pluginName: s.m(DcbTag$Reventless.compositePartitionMember(2, undefined)),
-  version: s.m(S.string)
-}));
-
-let compositeEventCustomSepSchema = S.schema(s => ({
-  TAG: "ConfigUpdated",
-  tenantId: s.m(DcbTag$Reventless.compositePartitionMember(0, ":")),
-  region: s.m(DcbTag$Reventless.compositePartitionMember(1, "/")),
-  service: s.m(DcbTag$Reventless.compositePartitionMember(2, undefined)),
-  value: s.m(S.string)
-}));
-
-let compositeMultiVariantSchema = S.union([
-  S.schema(s => ({
-    TAG: "VariantA",
-    env: s.m(DcbTag$Reventless.compositePartitionMember(0, undefined)),
-    name: s.m(DcbTag$Reventless.compositePartitionMember(1, undefined)),
-    data: s.m(S.string)
-  })),
-  S.schema(s => ({
-    TAG: "VariantB",
-    env: s.m(DcbTag$Reventless.compositePartitionMember(0, undefined)),
-    name: s.m(DcbTag$Reventless.compositePartitionMember(1, undefined)),
-    count: s.m(S.int)
-  }))
-]);
-
-let simplePartitionEventSchema = S.schema(s => ({
-  TAG: "OrderPlaced",
-  orderId: s.m(DcbTag$Reventless.partition),
-  customerId: s.m(DcbTag$Reventless.string)
-}));
-
-let mixedStrategyEventSchema = S.schema(s => ({
-  TAG: "BadEvent",
-  env: s.m(DcbTag$Reventless.compositePartitionMember(0, undefined)),
-  name: s.m(DcbTag$Reventless.compositePartitionMember(1, undefined)),
-  orderId: s.m(DcbTag$Reventless.partition)
-}));
-
-let singleCompositeEventSchema = S.schema(s => ({
-  TAG: "OnlyOne",
-  env: s.m(DcbTag$Reventless.compositePartitionMember(0, undefined)),
-  data: s.m(S.string)
-}));
-
-let subscriptionEventSchema = S.schema(s => ({
-  TAG: "StudentSubscribed",
-  courseId: s.m(DcbTag$Reventless.partition),
-  studentId: s.m(DcbTag$Reventless.crossPartition)
-}));
-
-let subscribeCommandSchema = S.schema(s => ({
-  TAG: "SubscribeStudent",
-  courseId: s.m(DcbTag$Reventless.partition),
-  studentId: s.m(DcbTag$Reventless.crossPartition)
-}));
-
-let testMeta = {
-  service: "test",
-  time: "2024-01-01T00:00:00Z",
-  ip: "127.0.0.1",
-  user: "test-user",
-  msgId: "msg-1",
-  correlationId: "corr-1"
-};
-
-export {
-  TestEventLogSpec,
-  UntaggedEventSpec,
-  objectEventSchema,
-  TestCommandSpec,
-  posToInt,
-  makeMockStorage,
-  testMeta,
-  plainRecordSchema,
-  multiTagRecordSchema,
-  emptyVariantSchema,
-  intTagEventSchema,
-  mixedEventSchema,
-  complexEventSchema,
-  multiFieldEventSchema,
-  crossEntityCommandSchema,
-  singleTagCommandSchema,
-  orderEventLogSchema,
-  singleProductEventSchema,
-  multiProductCommandSchema,
-  customKeyEventSchema,
-  compositeEventSchema,
-  compositeEventCustomSepSchema,
-  compositeMultiVariantSchema,
-  simplePartitionEventSchema,
-  mixedStrategyEventSchema,
-  singleCompositeEventSchema,
-  subscriptionEventSchema,
-  subscribeCommandSchema,
-}
-/*  Not a pure module */