@reventlessdev/reventless-core 3.0.0-alpha.134

package/tests/dcb/DcbFixtures.res.mjs

@@ -0,0 +1,534 @@
+// 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: condition check failed"
+      };
+    }
+    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 */