@reventlessdev/online-shop-aggregates-catalog 3.0.0-alpha.101

package/lib/bs/src/ProductDemand/ReadModel/ProductDemands_Projections.res.mjs

@@ -0,0 +1,99 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
+import * as Primitive_int from "@rescript/runtime/lib/es6/Primitive_int.js";
+import * as Product$CatalogPlugin from "../../Product/Aggregate/Product.res.mjs";
+import * as Projection$Reventless from "@reventlessdev/reventless-spec/src/types/Projection.res.mjs";
+import * as ProductDemand$CatalogPlugin from "../Aggregate/ProductDemand.res.mjs";
+import * as ProductDemands$CatalogPlugin from "./ProductDemands.res.mjs";
+
+let M = Projection$Reventless.Mappings.Make({
+  Id: Id$Reventless.$$String,
+  name: ProductDemands$CatalogPlugin.name,
+  stateSchema: ProductDemands$CatalogPlugin.stateSchema,
+  subIdConfig: undefined
+});
+
+function project(param) {
+  let event = param.event;
+  if (event.TAG === "Added") {
+    return {
+      TAG: "Set",
+      _0: param.id,
+      _1: {
+        name: event.name,
+        orderCount: 0
+      }
+    };
+  } else {
+    return "Ignore";
+  }
+}
+
+let ProductMapping = Projection$Reventless.Mapping.Make({
+  Id: Id$Reventless.$$String,
+  name: Product$CatalogPlugin.name,
+  eventSchema: Product$CatalogPlugin.eventSchema
+})({
+  Id: Id$Reventless.$$String,
+  name: ProductDemands$CatalogPlugin.name,
+  stateSchema: ProductDemands$CatalogPlugin.stateSchema,
+  subIdConfig: undefined
+})({
+  project: project
+});
+
+function project$1(param) {
+  let id = param.id;
+  if (param.event.TAG === "Recorded") {
+    return {
+      TAG: "Update",
+      _0: id,
+      _1: state => ({
+        name: state.name,
+        orderCount: state.orderCount + 1 | 0
+      })
+    };
+  } else {
+    return {
+      TAG: "Update",
+      _0: id,
+      _1: state => ({
+        name: state.name,
+        orderCount: Primitive_int.max(0, state.orderCount - 1 | 0)
+      })
+    };
+  }
+}
+
+let ProductDemandMapping = Projection$Reventless.Mapping.Make({
+  Id: Id$Reventless.$$String,
+  name: ProductDemand$CatalogPlugin.name,
+  eventSchema: ProductDemand$CatalogPlugin.eventSchema
+})({
+  Id: Id$Reventless.$$String,
+  name: ProductDemands$CatalogPlugin.name,
+  stateSchema: ProductDemands$CatalogPlugin.stateSchema,
+  subIdConfig: undefined
+})({
+  project: project$1
+});
+
+let mappings = [
+  ProductMapping,
+  ProductDemandMapping
+];
+
+let Target;
+
+let moduleUrl = "@reventlessdev/online-shop-aggregates-catalog/src/ProductDemand/ReadModel/ProductDemands_Projections.res.mjs";
+
+export {
+  Target,
+  M,
+  ProductMapping,
+  ProductDemandMapping,
+  mappings,
+  moduleUrl,
+}
+/* M Not a pure module */

package/lib/bs/src/Task/ImportProducts.res

@@ -0,0 +1,48 @@
+// Import products from a CSV file uploaded to S3.
+// Each row is translated to a Product.Add command.
+
+@@reventless.task
+
+let importCallback = (~eventName, ~key) => {
+  if eventName->String.includes("ObjectCreated") {
+    Console.log("[ImportProducts] Processing file: " ++ key)
+
+    let meta: Message.meta = {
+      service: "ImportProducts",
+      time: Date.now()->Float.toString,
+      ip: "",
+      user: "system",
+      msgId: key,
+      correlationId: key,
+    }
+
+    [
+      Task.PublishCommands(
+        "Product",
+        [
+          {
+            id: key,
+            meta,
+            commandJson: Product.Add({
+              name: "Imported Product",
+              description: "Imported from " ++ key,
+              price: 9.99,
+            })->Message.encode(Product.commandSchema),
+          },
+        ],
+      ),
+    ]->Promise.resolve
+  } else {
+    []->Promise.resolve
+  }
+}
+
+let setup = (_queryEngine, _queryBucketName, _opts) => {
+  Task.buckets: [
+    {
+      bucketName: "product-imports",
+      bucketMode: Task.Read,
+      callback: importCallback,
+    },
+  ],
+}

package/lib/bs/src/Task/ImportProducts.res.mjs

@@ -0,0 +1,58 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Message$Reventless from "@reventlessdev/reventless-spec/src/types/Message.res.mjs";
+import * as Product$CatalogPlugin from "../Product/Aggregate/Product.res.mjs";
+
+function importCallback(eventName, key) {
+  if (!eventName.includes("ObjectCreated")) {
+    return Promise.resolve([]);
+  }
+  console.log("[ImportProducts] Processing file: " + key);
+  let meta_time = Date.now().toString();
+  let meta_ip = "";
+  let meta_user = "system";
+  let meta = {
+    service: "ImportProducts",
+    time: meta_time,
+    ip: meta_ip,
+    user: meta_user,
+    msgId: key,
+    correlationId: key
+  };
+  return Promise.resolve([{
+      TAG: "PublishCommands",
+      _0: "Product",
+      _1: [{
+          id: key,
+          meta: meta,
+          commandJson: Message$Reventless.encode({
+            TAG: "Add",
+            name: "Imported Product",
+            description: "Imported from " + key,
+            price: 9.99
+          }, Product$CatalogPlugin.commandSchema)
+        }]
+    }]);
+}
+
+function setup(_queryEngine, _queryBucketName, _opts) {
+  return {
+    buckets: [{
+        bucketName: "product-imports",
+        bucketMode: "Read",
+        callback: importCallback
+      }]
+  };
+}
+
+let name = "ImportProducts";
+
+let moduleUrl = "@reventlessdev/online-shop-aggregates-catalog/src/Task/ImportProducts.res.mjs";
+
+export {
+  name,
+  importCallback,
+  setup,
+  moduleUrl,
+}
+/* Message-Reventless Not a pure module */

package/lib/bs/tests/Category/Aggregate/Category_GWT.res

@@ -0,0 +1,51 @@
+@@reventless.gwt
+
+describe("Category Behavior", () => {
+  test("Add on new aggregate produces Added", () =>
+    givenEvents([])
+    ->whenCmd(Add({name: "Electronics"}))
+    ->thenEvent(Added({name: "Electronics"}))
+  )
+
+  test("Add on existing aggregate returns CategoryAlreadyExists", () =>
+    givenEvents([Added({name: "Electronics"})])
+    ->whenCmd(Add({name: "Electronics 2"}))
+    ->thenError(CategoryAlreadyExists)
+  )
+
+  test("Rename on non-existent aggregate returns CategoryNotFound", () =>
+    givenEvents([])
+    ->whenCmd(Rename({name: "New Name"}))
+    ->thenError(CategoryNotFound)
+  )
+
+  test("Rename on active category produces Renamed", () =>
+    givenEvents([Added({name: "Electronics"})])
+    ->whenCmd(Rename({name: "Consumer Electronics"}))
+    ->thenEvent(Renamed({name: "Consumer Electronics"}))
+  )
+
+  test("Rename to same name produces no events (idempotent)", () =>
+    givenEvents([Added({name: "Electronics"})])
+    ->whenCmd(Rename({name: "Electronics"}))
+    ->thenNoEvent
+  )
+
+  test("Rename on archived category returns CategoryAlreadyArchived", () =>
+    givenEvents([Added({name: "Electronics"}), Archived])
+    ->whenCmd(Rename({name: "New Name"}))
+    ->thenError(CategoryAlreadyArchived)
+  )
+
+  test("Archive on active category produces Archived", () =>
+    givenEvents([Added({name: "Electronics"})])
+    ->whenCmd(Archive)
+    ->thenEvent(Archived)
+  )
+
+  test("Archive on archived category produces no events (idempotent)", () =>
+    givenEvents([Added({name: "Electronics"}), Archived])
+    ->whenCmd(Archive)
+    ->thenNoEvent
+  )
+})

package/lib/bs/tests/Category/Aggregate/Category_GWT.res.mjs

@@ -0,0 +1,125 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Category$CatalogPlugin from "../../../src/Category/Aggregate/Category.res.mjs";
+import * as Behavior_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Behavior_GWT.res.mjs";
+import * as Category_Behavior$CatalogPlugin from "../../../src/Category/Aggregate/Category_Behavior.res.mjs";
+
+let include = Behavior_GWT$ReventlessGwt.MakeFromAggregate({
+  name: Category$CatalogPlugin.name,
+  commandSchema: Category$CatalogPlugin.commandSchema,
+  eventSchema: Category$CatalogPlugin.eventSchema,
+  errorSchema: Category$CatalogPlugin.errorSchema
+})({
+  Spec: {
+    name: Category$CatalogPlugin.name,
+    commandSchema: Category$CatalogPlugin.commandSchema,
+    eventSchema: Category$CatalogPlugin.eventSchema,
+    errorSchema: Category$CatalogPlugin.errorSchema
+  },
+  initialState: Category_Behavior$CatalogPlugin.initialState,
+  evolve: Category_Behavior$CatalogPlugin.evolve,
+  decide: Category_Behavior$CatalogPlugin.decide,
+  moduleUrl: Category_Behavior$CatalogPlugin.moduleUrl
+});
+
+let describe = include.describe;
+
+let test = include.test;
+
+let givenEvents = include.givenEvents;
+
+let whenCmd = include.whenCmd;
+
+let thenEvent = include.thenEvent;
+
+let thenNoEvent = include.thenNoEvent;
+
+let thenError = include.thenError;
+
+describe("Category Behavior", () => {
+  test("Add on new aggregate produces Added", () => thenEvent(whenCmd(givenEvents([]), {
+    TAG: "Add",
+    name: "Electronics"
+  }), {
+    TAG: "Added",
+    name: "Electronics"
+  }));
+  test("Add on existing aggregate returns CategoryAlreadyExists", () => thenError(whenCmd(givenEvents([{
+      TAG: "Added",
+      name: "Electronics"
+    }]), {
+    TAG: "Add",
+    name: "Electronics 2"
+  }), "CategoryAlreadyExists"));
+  test("Rename on non-existent aggregate returns CategoryNotFound", () => thenError(whenCmd(givenEvents([]), {
+    TAG: "Rename",
+    name: "New Name"
+  }), "CategoryNotFound"));
+  test("Rename on active category produces Renamed", () => thenEvent(whenCmd(givenEvents([{
+      TAG: "Added",
+      name: "Electronics"
+    }]), {
+    TAG: "Rename",
+    name: "Consumer Electronics"
+  }), {
+    TAG: "Renamed",
+    name: "Consumer Electronics"
+  }));
+  test("Rename to same name produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([{
+      TAG: "Added",
+      name: "Electronics"
+    }]), {
+    TAG: "Rename",
+    name: "Electronics"
+  })));
+  test("Rename on archived category returns CategoryAlreadyArchived", () => thenError(whenCmd(givenEvents([
+    {
+      TAG: "Added",
+      name: "Electronics"
+    },
+    "Archived"
+  ]), {
+    TAG: "Rename",
+    name: "New Name"
+  }), "CategoryAlreadyArchived"));
+  test("Archive on active category produces Archived", () => thenEvent(whenCmd(givenEvents([{
+      TAG: "Added",
+      name: "Electronics"
+    }]), "Archive"), "Archived"));
+  test("Archive on archived category produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([
+    {
+      TAG: "Added",
+      name: "Electronics"
+    },
+    "Archived"
+  ]), "Archive")));
+});
+
+let Spec = include.Spec;
+
+let thenCompareEvent = include.thenCompareEvent;
+
+let thenEventWithError = include.thenEventWithError;
+
+let thenEvents = include.thenEvents;
+
+let thenCompareEvents = include.thenCompareEvents;
+
+let thenEventsWithError = include.thenEventsWithError;
+
+export {
+  Spec,
+  describe,
+  test,
+  givenEvents,
+  whenCmd,
+  thenEvent,
+  thenCompareEvent,
+  thenNoEvent,
+  thenEventWithError,
+  thenEvents,
+  thenCompareEvents,
+  thenEventsWithError,
+  thenError,
+}
+/* include Not a pure module */

package/lib/bs/tests/Category/ReadModel/Categories_GWT.res

@@ -0,0 +1,21 @@
+@@reventless.gwt(Categories_Projections.CategoryMapping)
+
+describe("Categories ReadModel ← Category", () => {
+  test("Added sets initial read model state", () =>
+    givenEvents([])
+    ->whenEvent(Category.Added({name: "Electronics"}))
+    ->thenState({Categories.name: "Electronics", archived: false})
+  )
+
+  test("Renamed updates the name", () =>
+    givenEvents([Category.Added({name: "Electronics"})])
+    ->whenEvent(Category.Renamed({name: "Consumer Electronics"}))
+    ->thenState({Categories.name: "Consumer Electronics", archived: false})
+  )
+
+  test("Archived sets archived flag", () =>
+    givenEvents([Category.Added({name: "Electronics"})])
+    ->whenEvent(Category.Archived)
+    ->thenState({Categories.name: "Electronics", archived: true})
+  )
+})

package/lib/bs/tests/Category/ReadModel/Categories_GWT.res.mjs

@@ -0,0 +1,88 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Categories_Projections$CatalogPlugin from "../../../src/Category/ReadModel/Categories_Projections.res.mjs";
+import * as MultiSourceProjection_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/MultiSourceProjection_GWT.res.mjs";
+
+let include = MultiSourceProjection_GWT$ReventlessGwt.Make(Categories_Projections$CatalogPlugin.CategoryMapping);
+
+let describe = include.describe;
+
+let test = include.test;
+
+let givenEvents = include.givenEvents;
+
+let whenEvent = include.whenEvent;
+
+let thenState = include.thenState;
+
+describe("Categories ReadModel ← Category", () => {
+  test("Added sets initial read model state", undefined, () => thenState(whenEvent(givenEvents([]), {
+    TAG: "Added",
+    name: "Electronics"
+  }), {
+    name: "Electronics",
+    archived: false
+  }));
+  test("Renamed updates the name", undefined, () => thenState(whenEvent(givenEvents([{
+      TAG: "Added",
+      name: "Electronics"
+    }]), {
+    TAG: "Renamed",
+    name: "Consumer Electronics"
+  }), {
+    name: "Consumer Electronics",
+    archived: false
+  }));
+  test("Archived sets archived flag", undefined, () => thenState(whenEvent(givenEvents([{
+      TAG: "Added",
+      name: "Electronics"
+    }]), "Archived"), {
+    name: "Electronics",
+    archived: true
+  }));
+});
+
+let describeWithId = include.describeWithId;
+
+let givenEventsWithTime = include.givenEventsWithTime;
+
+let whenEvents = include.whenEvents;
+
+let whenEventWithTime = include.whenEventWithTime;
+
+let whenEventsWithTime = include.whenEventsWithTime;
+
+let thenStates = include.thenStates;
+
+let thenStatesWithId = include.thenStatesWithId;
+
+let thenAllStates = include.thenAllStates;
+
+let thenStateWithId = include.thenStateWithId;
+
+let thenNoState = include.thenNoState;
+
+let thenThrow = include.thenThrow;
+
+let thenFail = include.thenFail;
+
+export {
+  describe,
+  describeWithId,
+  test,
+  givenEvents,
+  givenEventsWithTime,
+  whenEvent,
+  whenEvents,
+  whenEventWithTime,
+  whenEventsWithTime,
+  thenStates,
+  thenStatesWithId,
+  thenAllStates,
+  thenState,
+  thenStateWithId,
+  thenNoState,
+  thenThrow,
+  thenFail,
+}
+/* include Not a pure module */

package/lib/bs/tests/Extension/Orders_Extension_GWT.res

@@ -0,0 +1,21 @@
+// Boundary GWT for Catalog's Orders extension: public Ordering events become
+// ProductDemand commands on Catalog's aggregate.
+@@reventless.gwt
+
+// `Mapping` is brought into scope by the PPX `open Orders_Extension`; opening
+// it surfaces the extension point's events and the delegate's commands.
+open Mapping
+
+describe("Orders Extension delegate", () => {
+  test("ItemOrdered records demand for the product", () =>
+    whenIncomingEvent(
+      ExtensionPoint.ItemOrdered({productId: "p1", orderId: "o1", customerId: "c1"}),
+    )->thenPublishesAggregateCommand("p1", Delegate.Record({orderId: "o1"}))
+  )
+
+  test("ItemOrderCancelled revokes demand for the product", () =>
+    whenIncomingEvent(
+      ExtensionPoint.ItemOrderCancelled({productId: "p1", orderId: "o1"}),
+    )->thenPublishesAggregateCommand("p1", Delegate.Revoke({orderId: "o1"}))
+  )
+})

package/lib/bs/tests/Extension/Orders_Extension_GWT.res.mjs

@@ -0,0 +1,105 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
+import * as Delegate_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Delegate_GWT.res.mjs";
+import * as ProductDemand$CatalogPlugin from "../../src/ProductDemand/Aggregate/ProductDemand.res.mjs";
+import * as Orders_Extension$CatalogPlugin from "../../src/Extension/Orders_Extension.res.mjs";
+import * as Orders_ExtensionPoint$OrderingSpec from "@reventlessdev/online-shop-aggregates-ordering-spec/src/Orders_ExtensionPoint.res.mjs";
+
+let include = Delegate_GWT$ReventlessGwt.FromExtension({
+  ExtensionPoint: {
+    name: Orders_ExtensionPoint$OrderingSpec.name,
+    moduleUrl: Orders_ExtensionPoint$OrderingSpec.moduleUrl,
+    commandSchema: Orders_ExtensionPoint$OrderingSpec.commandSchema,
+    eventSchema: Orders_ExtensionPoint$OrderingSpec.eventSchema,
+    directiveSchema: Orders_ExtensionPoint$OrderingSpec.directiveSchema
+  },
+  Delegate: {
+    Id: Id$Reventless.$$String,
+    name: ProductDemand$CatalogPlugin.name,
+    eventSchema: ProductDemand$CatalogPlugin.eventSchema,
+    errorSchema: ProductDemand$CatalogPlugin.errorSchema,
+    commandSchema: ProductDemand$CatalogPlugin.commandSchema,
+    moduleUrl: ProductDemand$CatalogPlugin.moduleUrl,
+    commandAuthorization: ProductDemand$CatalogPlugin.commandAuthorization
+  },
+  moduleUrl: Orders_Extension$CatalogPlugin.Mapping.moduleUrl,
+  delegateModuleUrl: Orders_Extension$CatalogPlugin.Mapping.delegateModuleUrl,
+  mapIncomingEvent: Orders_Extension$CatalogPlugin.Mapping.mapIncomingEvent,
+  mapOutgoingEvent: Orders_Extension$CatalogPlugin.Mapping.mapOutgoingEvent
+});
+
+let describe = include.describe;
+
+let test = include.test;
+
+let whenIncomingEvent = include.whenIncomingEvent;
+
+let thenPublishesAggregateCommand = include.thenPublishesAggregateCommand;
+
+describe("Orders Extension delegate", () => {
+  test("ItemOrdered records demand for the product", undefined, () => thenPublishesAggregateCommand(whenIncomingEvent({
+    TAG: "ItemOrdered",
+    productId: "p1",
+    orderId: "o1",
+    customerId: "c1"
+  }), "p1", {
+    TAG: "Record",
+    orderId: "o1"
+  }));
+  test("ItemOrderCancelled revokes demand for the product", undefined, () => thenPublishesAggregateCommand(whenIncomingEvent({
+    TAG: "ItemOrderCancelled",
+    productId: "p1",
+    orderId: "o1"
+  }), "p1", {
+    TAG: "Revoke",
+    orderId: "o1"
+  }));
+});
+
+let encCmd = include.encCmd;
+
+let encEpCmd = include.encEpCmd;
+
+let encDirective = include.encDirective;
+
+let EvCore = include.EvCore;
+
+let OutCore = include.OutCore;
+
+let thenPublishesNothing = include.thenPublishesNothing;
+
+let thenPublishesCommand = include.thenPublishesCommand;
+
+let thenPublishesCommands = include.thenPublishesCommands;
+
+let whenDelegateEvent = include.whenDelegateEvent;
+
+let thenPublishesExtensionPointCommand = include.thenPublishesExtensionPointCommand;
+
+let thenHandlesDirective = include.thenHandlesDirective;
+
+let thenHandlesDirectives = include.thenHandlesDirectives;
+
+let thenHandlesNoDirective = include.thenHandlesNoDirective;
+
+export {
+  encCmd,
+  encEpCmd,
+  encDirective,
+  EvCore,
+  OutCore,
+  describe,
+  test,
+  thenPublishesNothing,
+  whenIncomingEvent,
+  thenPublishesCommand,
+  thenPublishesCommands,
+  thenPublishesAggregateCommand,
+  whenDelegateEvent,
+  thenPublishesExtensionPointCommand,
+  thenHandlesDirective,
+  thenHandlesDirectives,
+  thenHandlesNoDirective,
+}
+/* include Not a pure module */