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

package/lib/bs/tests/ExtensionPoint/Products_ExtensionPointMapping_GWT.res

@@ -0,0 +1,31 @@
+// Boundary GWT for the Products extension point: internal Product aggregate
+// events become the stable public events Ordering subscribes to.
+@@reventless.gwt
+
+describe("Products ExtensionPoint mapping", () => {
+  test("Added publishes ProductBecameAvailable", () =>
+    whenDelegateEvent(
+      Delegate.Added({name: "Book", description: "A good book", price: 9.99}),
+    )->thenPublishesEvent(
+      "gwt-id",
+      ExtensionPoint.ProductBecameAvailable({productId: "gwt-id", name: "Book", price: 9.99}),
+    )
+  )
+
+  test("PriceUpdated publishes ProductPriceChanged", () =>
+    whenDelegateEvent(Delegate.PriceUpdated({price: 7.5}))->thenPublishesEvent(
+      "gwt-id",
+      ExtensionPoint.ProductPriceChanged({productId: "gwt-id", price: 7.5}),
+    )
+  )
+
+  test("NameUpdated publishes nothing", () =>
+    whenDelegateEvent(Delegate.NameUpdated({name: "Better Book"}))->thenPublishesNothing
+  )
+
+  test("DescriptionUpdated publishes nothing", () =>
+    whenDelegateEvent(
+      Delegate.DescriptionUpdated({description: "A really good book"}),
+    )->thenPublishesNothing
+  )
+})

package/lib/bs/tests/ExtensionPoint/Products_ExtensionPointMapping_GWT.res.mjs

@@ -0,0 +1,114 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
+import * as Product$CatalogPlugin from "../../src/Product/Aggregate/Product.res.mjs";
+import * as Delegate_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Delegate_GWT.res.mjs";
+import * as Products_ExtensionPoint$CatalogSpec from "@reventlessdev/online-shop-aggregates-catalog-spec/src/Products_ExtensionPoint.res.mjs";
+import * as Products_ExtensionPointMapping$CatalogPlugin from "../../src/ExtensionPoint/Products_ExtensionPointMapping.res.mjs";
+
+let include = Delegate_GWT$ReventlessGwt.FromExtensionPoint({
+  ExtensionPoint: {
+    name: Products_ExtensionPoint$CatalogSpec.name,
+    moduleUrl: Products_ExtensionPoint$CatalogSpec.moduleUrl,
+    commandSchema: Products_ExtensionPoint$CatalogSpec.commandSchema,
+    eventSchema: Products_ExtensionPoint$CatalogSpec.eventSchema,
+    directiveSchema: Products_ExtensionPoint$CatalogSpec.directiveSchema
+  },
+  Delegate: {
+    Id: Id$Reventless.$$String,
+    name: Product$CatalogPlugin.name,
+    eventSchema: Product$CatalogPlugin.eventSchema,
+    errorSchema: Product$CatalogPlugin.errorSchema,
+    commandSchema: Product$CatalogPlugin.commandSchema,
+    moduleUrl: Product$CatalogPlugin.moduleUrl,
+    commandAuthorization: Product$CatalogPlugin.commandAuthorization
+  },
+  moduleUrl: Products_ExtensionPointMapping$CatalogPlugin.moduleUrl,
+  mapIncomingCommand: Products_ExtensionPointMapping$CatalogPlugin.mapIncomingCommand,
+  mapOutgoingEvent: Products_ExtensionPointMapping$CatalogPlugin.mapOutgoingEvent
+});
+
+let describe = include.describe;
+
+let test = include.test;
+
+let thenPublishesNothing = include.thenPublishesNothing;
+
+let whenDelegateEvent = include.whenDelegateEvent;
+
+let thenPublishesEvent = include.thenPublishesEvent;
+
+describe("Products ExtensionPoint mapping", () => {
+  test("Added publishes ProductBecameAvailable", undefined, () => thenPublishesEvent(whenDelegateEvent({
+    TAG: "Added",
+    name: "Book",
+    description: "A good book",
+    price: 9.99
+  }), "gwt-id", {
+    TAG: "ProductBecameAvailable",
+    productId: "gwt-id",
+    name: "Book",
+    price: 9.99
+  }));
+  test("PriceUpdated publishes ProductPriceChanged", undefined, () => thenPublishesEvent(whenDelegateEvent({
+    TAG: "PriceUpdated",
+    price: 7.5
+  }), "gwt-id", {
+    TAG: "ProductPriceChanged",
+    productId: "gwt-id",
+    price: 7.5
+  }));
+  test("NameUpdated publishes nothing", undefined, () => thenPublishesNothing(whenDelegateEvent({
+    TAG: "NameUpdated",
+    name: "Better Book"
+  })));
+  test("DescriptionUpdated publishes nothing", undefined, () => thenPublishesNothing(whenDelegateEvent({
+    TAG: "DescriptionUpdated",
+    description: "A really good book"
+  })));
+});
+
+let encEvent = include.encEvent;
+
+let encCommand = include.encCommand;
+
+let encDirective = include.encDirective;
+
+let EvCore = include.EvCore;
+
+let CmdCore = include.CmdCore;
+
+let thenPublishesEvents = include.thenPublishesEvents;
+
+let whenIncomingCommand = include.whenIncomingCommand;
+
+let thenPublishesCommand = include.thenPublishesCommand;
+
+let thenPublishesCommands = include.thenPublishesCommands;
+
+let thenHandlesDirective = include.thenHandlesDirective;
+
+let thenHandlesDirectives = include.thenHandlesDirectives;
+
+let thenHandlesNoDirective = include.thenHandlesNoDirective;
+
+export {
+  encEvent,
+  encCommand,
+  encDirective,
+  EvCore,
+  CmdCore,
+  describe,
+  test,
+  thenPublishesNothing,
+  whenDelegateEvent,
+  thenPublishesEvent,
+  thenPublishesEvents,
+  whenIncomingCommand,
+  thenPublishesCommand,
+  thenPublishesCommands,
+  thenHandlesDirective,
+  thenHandlesDirectives,
+  thenHandlesNoDirective,
+}
+/* include Not a pure module */

package/lib/bs/tests/Product/Aggregate/Product_GWT.res

@@ -0,0 +1,69 @@
+@@reventless.gwt
+
+describe("Product Behavior", () => {
+  test("Add on new aggregate produces Added", () =>
+    givenEvents([])
+    ->whenCmd(Add({name: "Laptop", description: "A laptop", price: 999.99}))
+    ->thenEvent(Added({name: "Laptop", description: "A laptop", price: 999.99}))
+  )
+
+  test("Add on existing aggregate returns ProductAlreadyExists", () =>
+    givenEvents([Added({name: "Laptop", description: "A laptop", price: 999.99})])
+    ->whenCmd(Add({name: "Laptop 2", description: "Another", price: 1.0}))
+    ->thenError(ProductAlreadyExists)
+  )
+
+  test("UpdateName on non-existent aggregate returns ProductNotFound", () =>
+    givenEvents([])
+    ->whenCmd(UpdateName({name: "New Name"}))
+    ->thenError(ProductNotFound)
+  )
+
+  test("UpdateName on existing product produces NameUpdated", () =>
+    givenEvents([Added({name: "Laptop", description: "A laptop", price: 999.99})])
+    ->whenCmd(UpdateName({name: "Gaming Laptop"}))
+    ->thenEvent(NameUpdated({name: "Gaming Laptop"}))
+  )
+
+  test("UpdateName to same name produces no events (idempotent)", () =>
+    givenEvents([Added({name: "Laptop", description: "A laptop", price: 999.99})])
+    ->whenCmd(UpdateName({name: "Laptop"}))
+    ->thenNoEvent
+  )
+
+  test("UpdateDescription on non-existent aggregate returns ProductNotFound", () =>
+    givenEvents([])
+    ->whenCmd(UpdateDescription({description: "x"}))
+    ->thenError(ProductNotFound)
+  )
+
+  test("UpdateDescription on existing product produces DescriptionUpdated", () =>
+    givenEvents([Added({name: "Laptop", description: "A laptop", price: 999.99})])
+    ->whenCmd(UpdateDescription({description: "A high-end laptop"}))
+    ->thenEvent(DescriptionUpdated({description: "A high-end laptop"}))
+  )
+
+  test("UpdateDescription to same description produces no events (idempotent)", () =>
+    givenEvents([Added({name: "Laptop", description: "A laptop", price: 999.99})])
+    ->whenCmd(UpdateDescription({description: "A laptop"}))
+    ->thenNoEvent
+  )
+
+  test("UpdatePrice on non-existent aggregate returns ProductNotFound", () =>
+    givenEvents([])
+    ->whenCmd(UpdatePrice({price: 1.0}))
+    ->thenError(ProductNotFound)
+  )
+
+  test("UpdatePrice on existing product produces PriceUpdated", () =>
+    givenEvents([Added({name: "Laptop", description: "A laptop", price: 999.99})])
+    ->whenCmd(UpdatePrice({price: 899.99}))
+    ->thenEvent(PriceUpdated({price: 899.99}))
+  )
+
+  test("UpdatePrice to same price produces no events (idempotent)", () =>
+    givenEvents([Added({name: "Laptop", description: "A laptop", price: 999.99})])
+    ->whenCmd(UpdatePrice({price: 999.99}))
+    ->thenNoEvent
+  )
+})

package/lib/bs/tests/Product/Aggregate/Product_GWT.res.mjs

@@ -0,0 +1,166 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Product$CatalogPlugin from "../../../src/Product/Aggregate/Product.res.mjs";
+import * as Behavior_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Behavior_GWT.res.mjs";
+import * as Product_Behavior$CatalogPlugin from "../../../src/Product/Aggregate/Product_Behavior.res.mjs";
+
+let include = Behavior_GWT$ReventlessGwt.MakeFromAggregate({
+  name: Product$CatalogPlugin.name,
+  commandSchema: Product$CatalogPlugin.commandSchema,
+  eventSchema: Product$CatalogPlugin.eventSchema,
+  errorSchema: Product$CatalogPlugin.errorSchema
+})({
+  Spec: {
+    name: Product$CatalogPlugin.name,
+    commandSchema: Product$CatalogPlugin.commandSchema,
+    eventSchema: Product$CatalogPlugin.eventSchema,
+    errorSchema: Product$CatalogPlugin.errorSchema
+  },
+  initialState: Product_Behavior$CatalogPlugin.initialState,
+  evolve: Product_Behavior$CatalogPlugin.evolve,
+  decide: Product_Behavior$CatalogPlugin.decide,
+  moduleUrl: Product_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("Product Behavior", () => {
+  test("Add on new aggregate produces Added", () => thenEvent(whenCmd(givenEvents([]), {
+    TAG: "Add",
+    name: "Laptop",
+    description: "A laptop",
+    price: 999.99
+  }), {
+    TAG: "Added",
+    name: "Laptop",
+    description: "A laptop",
+    price: 999.99
+  }));
+  test("Add on existing aggregate returns ProductAlreadyExists", () => thenError(whenCmd(givenEvents([{
+      TAG: "Added",
+      name: "Laptop",
+      description: "A laptop",
+      price: 999.99
+    }]), {
+    TAG: "Add",
+    name: "Laptop 2",
+    description: "Another",
+    price: 1.0
+  }), "ProductAlreadyExists"));
+  test("UpdateName on non-existent aggregate returns ProductNotFound", () => thenError(whenCmd(givenEvents([]), {
+    TAG: "UpdateName",
+    name: "New Name"
+  }), "ProductNotFound"));
+  test("UpdateName on existing product produces NameUpdated", () => thenEvent(whenCmd(givenEvents([{
+      TAG: "Added",
+      name: "Laptop",
+      description: "A laptop",
+      price: 999.99
+    }]), {
+    TAG: "UpdateName",
+    name: "Gaming Laptop"
+  }), {
+    TAG: "NameUpdated",
+    name: "Gaming Laptop"
+  }));
+  test("UpdateName to same name produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([{
+      TAG: "Added",
+      name: "Laptop",
+      description: "A laptop",
+      price: 999.99
+    }]), {
+    TAG: "UpdateName",
+    name: "Laptop"
+  })));
+  test("UpdateDescription on non-existent aggregate returns ProductNotFound", () => thenError(whenCmd(givenEvents([]), {
+    TAG: "UpdateDescription",
+    description: "x"
+  }), "ProductNotFound"));
+  test("UpdateDescription on existing product produces DescriptionUpdated", () => thenEvent(whenCmd(givenEvents([{
+      TAG: "Added",
+      name: "Laptop",
+      description: "A laptop",
+      price: 999.99
+    }]), {
+    TAG: "UpdateDescription",
+    description: "A high-end laptop"
+  }), {
+    TAG: "DescriptionUpdated",
+    description: "A high-end laptop"
+  }));
+  test("UpdateDescription to same description produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([{
+      TAG: "Added",
+      name: "Laptop",
+      description: "A laptop",
+      price: 999.99
+    }]), {
+    TAG: "UpdateDescription",
+    description: "A laptop"
+  })));
+  test("UpdatePrice on non-existent aggregate returns ProductNotFound", () => thenError(whenCmd(givenEvents([]), {
+    TAG: "UpdatePrice",
+    price: 1.0
+  }), "ProductNotFound"));
+  test("UpdatePrice on existing product produces PriceUpdated", () => thenEvent(whenCmd(givenEvents([{
+      TAG: "Added",
+      name: "Laptop",
+      description: "A laptop",
+      price: 999.99
+    }]), {
+    TAG: "UpdatePrice",
+    price: 899.99
+  }), {
+    TAG: "PriceUpdated",
+    price: 899.99
+  }));
+  test("UpdatePrice to same price produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([{
+      TAG: "Added",
+      name: "Laptop",
+      description: "A laptop",
+      price: 999.99
+    }]), {
+    TAG: "UpdatePrice",
+    price: 999.99
+  })));
+});
+
+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/Product/ReadModel/Products_GWT.res

@@ -0,0 +1,27 @@
+@@reventless.gwt(Products_Projections.ProductMapping)
+
+describe("Products ReadModel ← Product", () => {
+  test("Added sets initial read model state", () =>
+    givenEvents([])
+    ->whenEvent(Product.Added({name: "Laptop", description: "A laptop", price: 999.99}))
+    ->thenState({Products.name: "Laptop", description: "A laptop", price: 999.99})
+  )
+
+  test("NameUpdated updates the name", () =>
+    givenEvents([Product.Added({name: "Laptop", description: "A laptop", price: 999.99})])
+    ->whenEvent(Product.NameUpdated({name: "Gaming Laptop"}))
+    ->thenState({Products.name: "Gaming Laptop", description: "A laptop", price: 999.99})
+  )
+
+  test("DescriptionUpdated updates the description", () =>
+    givenEvents([Product.Added({name: "Laptop", description: "A laptop", price: 999.99})])
+    ->whenEvent(Product.DescriptionUpdated({description: "A high-end laptop"}))
+    ->thenState({Products.name: "Laptop", description: "A high-end laptop", price: 999.99})
+  )
+
+  test("PriceUpdated updates the price", () =>
+    givenEvents([Product.Added({name: "Laptop", description: "A laptop", price: 999.99})])
+    ->whenEvent(Product.PriceUpdated({price: 899.99}))
+    ->thenState({Products.name: "Laptop", description: "A laptop", price: 899.99})
+  )
+})

package/lib/bs/tests/Product/ReadModel/Products_GWT.res.mjs

@@ -0,0 +1,113 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Products_Projections$CatalogPlugin from "../../../src/Product/ReadModel/Products_Projections.res.mjs";
+import * as MultiSourceProjection_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/MultiSourceProjection_GWT.res.mjs";
+
+let include = MultiSourceProjection_GWT$ReventlessGwt.Make(Products_Projections$CatalogPlugin.ProductMapping);
+
+let describe = include.describe;
+
+let test = include.test;
+
+let givenEvents = include.givenEvents;
+
+let whenEvent = include.whenEvent;
+
+let thenState = include.thenState;
+
+describe("Products ReadModel ← Product", () => {
+  test("Added sets initial read model state", undefined, () => thenState(whenEvent(givenEvents([]), {
+    TAG: "Added",
+    name: "Laptop",
+    description: "A laptop",
+    price: 999.99
+  }), {
+    name: "Laptop",
+    description: "A laptop",
+    price: 999.99
+  }));
+  test("NameUpdated updates the name", undefined, () => thenState(whenEvent(givenEvents([{
+      TAG: "Added",
+      name: "Laptop",
+      description: "A laptop",
+      price: 999.99
+    }]), {
+    TAG: "NameUpdated",
+    name: "Gaming Laptop"
+  }), {
+    name: "Gaming Laptop",
+    description: "A laptop",
+    price: 999.99
+  }));
+  test("DescriptionUpdated updates the description", undefined, () => thenState(whenEvent(givenEvents([{
+      TAG: "Added",
+      name: "Laptop",
+      description: "A laptop",
+      price: 999.99
+    }]), {
+    TAG: "DescriptionUpdated",
+    description: "A high-end laptop"
+  }), {
+    name: "Laptop",
+    description: "A high-end laptop",
+    price: 999.99
+  }));
+  test("PriceUpdated updates the price", undefined, () => thenState(whenEvent(givenEvents([{
+      TAG: "Added",
+      name: "Laptop",
+      description: "A laptop",
+      price: 999.99
+    }]), {
+    TAG: "PriceUpdated",
+    price: 899.99
+  }), {
+    name: "Laptop",
+    description: "A laptop",
+    price: 899.99
+  }));
+});
+
+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/ProductDemand/Aggregate/ProductDemand_GWT.res

@@ -0,0 +1,39 @@
+@@reventless.gwt
+
+describe("ProductDemand Behavior", () => {
+  test("Record on new aggregate produces Recorded", () =>
+    givenEvents([])
+    ->whenCmd(Record({orderId: "order-1"}))
+    ->thenEvent(Recorded({orderId: "order-1"}))
+  )
+
+  test("Record with new orderId on existing aggregate produces Recorded", () =>
+    givenEvents([Recorded({orderId: "order-1"})])
+    ->whenCmd(Record({orderId: "order-2"}))
+    ->thenEvent(Recorded({orderId: "order-2"}))
+  )
+
+  test("Record with already-recorded orderId produces no events (idempotent)", () =>
+    givenEvents([Recorded({orderId: "order-1"})])
+    ->whenCmd(Record({orderId: "order-1"}))
+    ->thenNoEvent
+  )
+
+  test("Revoke on never-recorded aggregate produces no events (idempotent)", () =>
+    givenEvents([])
+    ->whenCmd(Revoke({orderId: "order-1"}))
+    ->thenNoEvent
+  )
+
+  test("Revoke of unrecorded orderId on existing aggregate produces no events (idempotent)", () =>
+    givenEvents([Recorded({orderId: "order-1"})])
+    ->whenCmd(Revoke({orderId: "order-2"}))
+    ->thenNoEvent
+  )
+
+  test("Revoke of recorded orderId produces Revoked", () =>
+    givenEvents([Recorded({orderId: "order-1"})])
+    ->whenCmd(Revoke({orderId: "order-1"}))
+    ->thenEvent(Revoked({orderId: "order-1"}))
+  )
+})