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

package/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/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"}))
+  )
+})

package/tests/ProductDemand/Aggregate/ProductDemand_GWT.res.mjs

@@ -0,0 +1,114 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Behavior_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Behavior_GWT.res.mjs";
+import * as ProductDemand$CatalogPlugin from "../../../src/ProductDemand/Aggregate/ProductDemand.res.mjs";
+import * as ProductDemand_Behavior$CatalogPlugin from "../../../src/ProductDemand/Aggregate/ProductDemand_Behavior.res.mjs";
+
+let include = Behavior_GWT$ReventlessGwt.MakeFromAggregate({
+  name: ProductDemand$CatalogPlugin.name,
+  commandSchema: ProductDemand$CatalogPlugin.commandSchema,
+  eventSchema: ProductDemand$CatalogPlugin.eventSchema,
+  errorSchema: ProductDemand$CatalogPlugin.errorSchema
+})({
+  Spec: {
+    name: ProductDemand$CatalogPlugin.name,
+    commandSchema: ProductDemand$CatalogPlugin.commandSchema,
+    eventSchema: ProductDemand$CatalogPlugin.eventSchema,
+    errorSchema: ProductDemand$CatalogPlugin.errorSchema
+  },
+  initialState: ProductDemand_Behavior$CatalogPlugin.initialState,
+  evolve: ProductDemand_Behavior$CatalogPlugin.evolve,
+  decide: ProductDemand_Behavior$CatalogPlugin.decide,
+  moduleUrl: ProductDemand_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;
+
+describe("ProductDemand Behavior", () => {
+  test("Record on new aggregate produces Recorded", () => thenEvent(whenCmd(givenEvents([]), {
+    TAG: "Record",
+    orderId: "order-1"
+  }), {
+    TAG: "Recorded",
+    orderId: "order-1"
+  }));
+  test("Record with new orderId on existing aggregate produces Recorded", () => thenEvent(whenCmd(givenEvents([{
+      TAG: "Recorded",
+      orderId: "order-1"
+    }]), {
+    TAG: "Record",
+    orderId: "order-2"
+  }), {
+    TAG: "Recorded",
+    orderId: "order-2"
+  }));
+  test("Record with already-recorded orderId produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([{
+      TAG: "Recorded",
+      orderId: "order-1"
+    }]), {
+    TAG: "Record",
+    orderId: "order-1"
+  })));
+  test("Revoke on never-recorded aggregate produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([]), {
+    TAG: "Revoke",
+    orderId: "order-1"
+  })));
+  test("Revoke of unrecorded orderId on existing aggregate produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([{
+      TAG: "Recorded",
+      orderId: "order-1"
+    }]), {
+    TAG: "Revoke",
+    orderId: "order-2"
+  })));
+  test("Revoke of recorded orderId produces Revoked", () => thenEvent(whenCmd(givenEvents([{
+      TAG: "Recorded",
+      orderId: "order-1"
+    }]), {
+    TAG: "Revoke",
+    orderId: "order-1"
+  }), {
+    TAG: "Revoked",
+    orderId: "order-1"
+  }));
+});
+
+let Spec = include.Spec;
+
+let thenCompareEvent = include.thenCompareEvent;
+
+let thenEventWithError = include.thenEventWithError;
+
+let thenEvents = include.thenEvents;
+
+let thenCompareEvents = include.thenCompareEvents;
+
+let thenEventsWithError = include.thenEventsWithError;
+
+let thenError = include.thenError;
+
+export {
+  Spec,
+  describe,
+  test,
+  givenEvents,
+  whenCmd,
+  thenEvent,
+  thenCompareEvent,
+  thenNoEvent,
+  thenEventWithError,
+  thenEvents,
+  thenCompareEvents,
+  thenEventsWithError,
+  thenError,
+}
+/* include Not a pure module */

package/tests/ProductDemand/ReadModel/ProductDemands_GWT.res

@@ -0,0 +1,56 @@
+// Multi-source ReadModel: separate `_GWT` instances per source mapping.
+// `MultiSourceProjection_GWT.Make` is single-source; spec-stem uniqueness keeps
+// the file name singular while we instantiate one functor per mapping.
+
+module ProductGwt = ReventlessGwt.MultiSourceProjection_GWT.Make(
+  ProductDemands_Projections.ProductMapping,
+)
+module ProductDemandGwt = ReventlessGwt.MultiSourceProjection_GWT.Make(
+  ProductDemands_Projections.ProductDemandMapping,
+)
+
+ProductGwt.describe("ProductDemands ReadModel ← Product", () => {
+  ProductGwt.test("Added initialises the entry with orderCount = 0", () =>
+    ProductGwt.givenEvents([])
+    ->ProductGwt.whenEvent(Product.Added({name: "Laptop", description: "x", price: 1.0}))
+    ->ProductGwt.thenState({ProductDemands.name: "Laptop", orderCount: 0})
+  )
+
+  ProductGwt.test("NameUpdated is ignored (handled by Products read model)", () =>
+    ProductGwt.givenEvents([Product.Added({name: "Laptop", description: "x", price: 1.0})])
+    ->ProductGwt.whenEvent(Product.NameUpdated({name: "Gaming Laptop"}))
+    ->ProductGwt.thenState({ProductDemands.name: "Laptop", orderCount: 0})
+  )
+
+  ProductGwt.test("DescriptionUpdated is ignored", () =>
+    ProductGwt.givenEvents([Product.Added({name: "Laptop", description: "x", price: 1.0})])
+    ->ProductGwt.whenEvent(Product.DescriptionUpdated({description: "y"}))
+    ->ProductGwt.thenState({ProductDemands.name: "Laptop", orderCount: 0})
+  )
+
+  ProductGwt.test("PriceUpdated is ignored", () =>
+    ProductGwt.givenEvents([Product.Added({name: "Laptop", description: "x", price: 1.0})])
+    ->ProductGwt.whenEvent(Product.PriceUpdated({price: 2.0}))
+    ->ProductGwt.thenState({ProductDemands.name: "Laptop", orderCount: 0})
+  )
+})
+
+// `MultiSourceProjection_GWT` is single-source: the ProductDemand mapping
+// emits `Update(...)` that needs initial state seeded by the Product
+// mapping's `Set(...)`. Tested in isolation, both Update branches surface
+// a `StaleState` error. We assert the throw to lock in that the mapping
+// never tries to initialise its own row — the integration relies on
+// Product.Added arriving first.
+ProductDemandGwt.describe("ProductDemands ReadModel ← ProductDemand", () => {
+  ProductDemandGwt.test("Recorded without prior Product.Added throws StaleState", () =>
+    ProductDemandGwt.givenEvents([])
+    ->ProductDemandGwt.whenEvent(ProductDemand.Recorded({orderId: "order-1"}))
+    ->ProductDemandGwt.thenThrow
+  )
+
+  ProductDemandGwt.test("Revoked without prior Product.Added throws StaleState", () =>
+    ProductDemandGwt.givenEvents([])
+    ->ProductDemandGwt.whenEvent(ProductDemand.Revoked({orderId: "order-1"}))
+    ->ProductDemandGwt.thenThrow
+  )
+})

package/tests/ProductDemand/ReadModel/ProductDemands_GWT.res.mjs

@@ -0,0 +1,73 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as MultiSourceProjection_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/MultiSourceProjection_GWT.res.mjs";
+import * as ProductDemands_Projections$CatalogPlugin from "../../../src/ProductDemand/ReadModel/ProductDemands_Projections.res.mjs";
+
+let ProductGwt = MultiSourceProjection_GWT$ReventlessGwt.Make(ProductDemands_Projections$CatalogPlugin.ProductMapping);
+
+let ProductDemandGwt = MultiSourceProjection_GWT$ReventlessGwt.Make(ProductDemands_Projections$CatalogPlugin.ProductDemandMapping);
+
+ProductGwt.describe("ProductDemands ReadModel ← Product", () => {
+  ProductGwt.test("Added initialises the entry with orderCount = 0", undefined, () => ProductGwt.thenState(ProductGwt.whenEvent(ProductGwt.givenEvents([]), {
+    TAG: "Added",
+    name: "Laptop",
+    description: "x",
+    price: 1.0
+  }), {
+    name: "Laptop",
+    orderCount: 0
+  }));
+  ProductGwt.test("NameUpdated is ignored (handled by Products read model)", undefined, () => ProductGwt.thenState(ProductGwt.whenEvent(ProductGwt.givenEvents([{
+      TAG: "Added",
+      name: "Laptop",
+      description: "x",
+      price: 1.0
+    }]), {
+    TAG: "NameUpdated",
+    name: "Gaming Laptop"
+  }), {
+    name: "Laptop",
+    orderCount: 0
+  }));
+  ProductGwt.test("DescriptionUpdated is ignored", undefined, () => ProductGwt.thenState(ProductGwt.whenEvent(ProductGwt.givenEvents([{
+      TAG: "Added",
+      name: "Laptop",
+      description: "x",
+      price: 1.0
+    }]), {
+    TAG: "DescriptionUpdated",
+    description: "y"
+  }), {
+    name: "Laptop",
+    orderCount: 0
+  }));
+  ProductGwt.test("PriceUpdated is ignored", undefined, () => ProductGwt.thenState(ProductGwt.whenEvent(ProductGwt.givenEvents([{
+      TAG: "Added",
+      name: "Laptop",
+      description: "x",
+      price: 1.0
+    }]), {
+    TAG: "PriceUpdated",
+    price: 2.0
+  }), {
+    name: "Laptop",
+    orderCount: 0
+  }));
+});
+
+ProductDemandGwt.describe("ProductDemands ReadModel ← ProductDemand", () => {
+  ProductDemandGwt.test("Recorded without prior Product.Added throws StaleState", undefined, () => ProductDemandGwt.thenThrow(ProductDemandGwt.whenEvent(ProductDemandGwt.givenEvents([]), {
+    TAG: "Recorded",
+    orderId: "order-1"
+  })));
+  ProductDemandGwt.test("Revoked without prior Product.Added throws StaleState", undefined, () => ProductDemandGwt.thenThrow(ProductDemandGwt.whenEvent(ProductDemandGwt.givenEvents([]), {
+    TAG: "Revoked",
+    orderId: "order-1"
+  })));
+});
+
+export {
+  ProductGwt,
+  ProductDemandGwt,
+}
+/* ProductGwt Not a pure module */