@reventlessdev/online-shop-dcb-catalog 1.0.0-alpha.104

package/lib/bs/tests/Product/StateChangeSlice/RecordProductDemand_GWT.res.mjs

@@ -0,0 +1,120 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Behavior_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Behavior_GWT.res.mjs";
+import * as RecordProductDemand$CatalogPlugin from "../../../src/Product/StateChangeSlice/RecordProductDemand.res.mjs";
+import * as RecordProductDemand_Behavior$CatalogPlugin from "../../../src/Product/StateChangeSlice/RecordProductDemand_Behavior.res.mjs";
+
+let include = Behavior_GWT$ReventlessGwt.Make({
+  name: RecordProductDemand$CatalogPlugin.name,
+  consumedEventSchema: RecordProductDemand$CatalogPlugin.consumedEventSchema,
+  commandSchema: RecordProductDemand$CatalogPlugin.commandSchema,
+  errorSchema: RecordProductDemand$CatalogPlugin.errorSchema,
+  eventSchema: RecordProductDemand$CatalogPlugin.eventSchema
+})({
+  initialState: RecordProductDemand_Behavior$CatalogPlugin.initialState,
+  evolve: RecordProductDemand_Behavior$CatalogPlugin.evolve,
+  decide: RecordProductDemand_Behavior$CatalogPlugin.decide
+});
+
+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("RecordProductDemand StateChangeSlice", () => {
+  test("first RecordDemand produces ProductDemandRecorded", () => thenEvent(whenCmd(givenEvents([]), {
+    TAG: "RecordDemand",
+    productId: "p1",
+    orderId: "order-1"
+  }), {
+    TAG: "ProductDemandRecorded",
+    productId: "p1",
+    orderId: "order-1"
+  }));
+  test("RecordDemand for new orderId on existing product produces ProductDemandRecorded", () => thenEvent(whenCmd(givenEvents([{
+      TAG: "ProductDemandRecorded",
+      orderId: "order-1"
+    }]), {
+    TAG: "RecordDemand",
+    productId: "p1",
+    orderId: "order-2"
+  }), {
+    TAG: "ProductDemandRecorded",
+    productId: "p1",
+    orderId: "order-2"
+  }));
+  test("RecordDemand for already-recorded orderId produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([{
+      TAG: "ProductDemandRecorded",
+      orderId: "order-1"
+    }]), {
+    TAG: "RecordDemand",
+    productId: "p1",
+    orderId: "order-1"
+  })));
+  test("RevokeDemand on never-recorded product produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([]), {
+    TAG: "RevokeDemand",
+    productId: "p1",
+    orderId: "order-1"
+  })));
+  test("RevokeDemand for unrecorded orderId on existing product produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([{
+      TAG: "ProductDemandRecorded",
+      orderId: "order-1"
+    }]), {
+    TAG: "RevokeDemand",
+    productId: "p1",
+    orderId: "order-2"
+  })));
+  test("RevokeDemand for recorded orderId produces ProductDemandRevoked", () => thenEvent(whenCmd(givenEvents([{
+      TAG: "ProductDemandRecorded",
+      orderId: "order-1"
+    }]), {
+    TAG: "RevokeDemand",
+    productId: "p1",
+    orderId: "order-1"
+  }), {
+    TAG: "ProductDemandRevoked",
+    productId: "p1",
+    orderId: "order-1"
+  }));
+});
+
+let Spec = include.Spec;
+
+let todo = include.todo;
+
+let thenEvents = include.thenEvents;
+
+let thenEventWithError = include.thenEventWithError;
+
+let thenEventsWithError = include.thenEventsWithError;
+
+let thenError = include.thenError;
+
+let thenAppendsConditionedOn = include.thenAppendsConditionedOn;
+
+let thenAppendsConditionedOnExactly = include.thenAppendsConditionedOnExactly;
+
+export {
+  Spec,
+  describe,
+  todo,
+  test,
+  givenEvents,
+  whenCmd,
+  thenEvent,
+  thenEvents,
+  thenNoEvent,
+  thenEventWithError,
+  thenEventsWithError,
+  thenError,
+  thenAppendsConditionedOn,
+  thenAppendsConditionedOnExactly,
+}
+/* include Not a pure module */

package/lib/bs/tests/Product/StateViewSlice/ProductDemand_GWT.res

@@ -0,0 +1,31 @@
+@@reventless.gwt
+
+describe("ProductDemand StateViewSlice", () => {
+  test("ProductAdded initialises a row with orderCount = 0", () =>
+    givenEvents([])
+    ->whenEvent(ProductAdded({productId: "p1", name: "Laptop"}))
+    ->thenStateWithId("p1", {productId: "p1", name: "Laptop", orderCount: 0})
+  )
+
+  test("ProductDemandRecorded increments orderCount", () =>
+    givenEvents([ProductAdded({productId: "p1", name: "Laptop"})])
+    ->whenEvent(ProductDemandRecorded({productId: "p1"}))
+    ->thenStateWithId("p1", {productId: "p1", name: "Laptop", orderCount: 1})
+  )
+
+  test("ProductDemandRevoked decrements orderCount", () =>
+    givenEvents([
+      ProductAdded({productId: "p1", name: "Laptop"}),
+      ProductDemandRecorded({productId: "p1"}),
+      ProductDemandRecorded({productId: "p1"}),
+    ])
+    ->whenEvent(ProductDemandRevoked({productId: "p1"}))
+    ->thenStateWithId("p1", {productId: "p1", name: "Laptop", orderCount: 1})
+  )
+
+  test("ProductDemandRevoked clamps orderCount at zero", () =>
+    givenEvents([ProductAdded({productId: "p1", name: "Laptop"})])
+    ->whenEvent(ProductDemandRevoked({productId: "p1"}))
+    ->thenStateWithId("p1", {productId: "p1", name: "Laptop", orderCount: 0})
+  )
+})

package/lib/bs/tests/Product/StateViewSlice/ProductDemand_GWT.res.mjs

@@ -0,0 +1,124 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as ProductDemand$CatalogPlugin from "../../../src/Product/StateViewSlice/ProductDemand.res.mjs";
+import * as Projection_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Projection_GWT.res.mjs";
+import * as ProductDemand_Projection$CatalogPlugin from "../../../src/Product/StateViewSlice/ProductDemand_Projection.res.mjs";
+
+let include = Projection_GWT$ReventlessGwt.Make({
+  name: ProductDemand$CatalogPlugin.name,
+  stateSchema: ProductDemand$CatalogPlugin.stateSchema,
+  consumedEventSchema: ProductDemand$CatalogPlugin.consumedEventSchema,
+  subIdConfig: undefined
+})({
+  project: ProductDemand_Projection$CatalogPlugin.project
+});
+
+let describe = include.describe;
+
+let test = include.test;
+
+let givenEvents = include.givenEvents;
+
+let whenEvent = include.whenEvent;
+
+let thenStateWithId = include.thenStateWithId;
+
+describe("ProductDemand StateViewSlice", () => {
+  test("ProductAdded initialises a row with orderCount = 0", undefined, () => thenStateWithId(whenEvent(givenEvents([]), {
+    TAG: "ProductAdded",
+    productId: "p1",
+    name: "Laptop"
+  }), "p1", {
+    productId: "p1",
+    name: "Laptop",
+    orderCount: 0
+  }));
+  test("ProductDemandRecorded increments orderCount", undefined, () => thenStateWithId(whenEvent(givenEvents([{
+      TAG: "ProductAdded",
+      productId: "p1",
+      name: "Laptop"
+    }]), {
+    TAG: "ProductDemandRecorded",
+    productId: "p1"
+  }), "p1", {
+    productId: "p1",
+    name: "Laptop",
+    orderCount: 1
+  }));
+  test("ProductDemandRevoked decrements orderCount", undefined, () => thenStateWithId(whenEvent(givenEvents([
+    {
+      TAG: "ProductAdded",
+      productId: "p1",
+      name: "Laptop"
+    },
+    {
+      TAG: "ProductDemandRecorded",
+      productId: "p1"
+    },
+    {
+      TAG: "ProductDemandRecorded",
+      productId: "p1"
+    }
+  ]), {
+    TAG: "ProductDemandRevoked",
+    productId: "p1"
+  }), "p1", {
+    productId: "p1",
+    name: "Laptop",
+    orderCount: 1
+  }));
+  test("ProductDemandRevoked clamps orderCount at zero", undefined, () => thenStateWithId(whenEvent(givenEvents([{
+      TAG: "ProductAdded",
+      productId: "p1",
+      name: "Laptop"
+    }]), {
+    TAG: "ProductDemandRevoked",
+    productId: "p1"
+  }), "p1", {
+    productId: "p1",
+    name: "Laptop",
+    orderCount: 0
+  }));
+});
+
+let Spec = include.Spec;
+
+let describeWithId = include.describeWithId;
+
+let todo = include.todo;
+
+let whenEvents = include.whenEvents;
+
+let thenStates = include.thenStates;
+
+let thenStatesWithId = include.thenStatesWithId;
+
+let thenAllStates = include.thenAllStates;
+
+let thenState = include.thenState;
+
+let thenNoState = include.thenNoState;
+
+let thenThrow = include.thenThrow;
+
+let thenFail = include.thenFail;
+
+export {
+  Spec,
+  describe,
+  describeWithId,
+  todo,
+  test,
+  givenEvents,
+  whenEvent,
+  whenEvents,
+  thenStates,
+  thenStatesWithId,
+  thenAllStates,
+  thenState,
+  thenStateWithId,
+  thenNoState,
+  thenThrow,
+  thenFail,
+}
+/* include Not a pure module */

package/lib/bs/tests/Product/StateViewSlice/Products_GWT.res

@@ -0,0 +1,39 @@
+@@reventless.gwt
+
+describe("Products StateViewSlice", () => {
+  test("ProductAdded creates a row", () =>
+    givenEvents([])
+    ->whenEvent(ProductAdded({productId: "p1", name: "Laptop", description: "x", price: 999.99}))
+    ->thenStateWithId(
+      "p1",
+      {productId: "p1", name: "Laptop", description: "x", price: 999.99},
+    )
+  )
+
+  test("ProductNameChanged updates the name", () =>
+    givenEvents([ProductAdded({productId: "p1", name: "Laptop", description: "x", price: 999.99})])
+    ->whenEvent(ProductNameChanged({productId: "p1", name: "Gaming Laptop"}))
+    ->thenStateWithId(
+      "p1",
+      {productId: "p1", name: "Gaming Laptop", description: "x", price: 999.99},
+    )
+  )
+
+  test("ProductDescriptionChanged updates the description", () =>
+    givenEvents([ProductAdded({productId: "p1", name: "Laptop", description: "x", price: 999.99})])
+    ->whenEvent(ProductDescriptionChanged({productId: "p1", description: "high-end"}))
+    ->thenStateWithId(
+      "p1",
+      {productId: "p1", name: "Laptop", description: "high-end", price: 999.99},
+    )
+  )
+
+  test("ProductPriceChanged updates the price", () =>
+    givenEvents([ProductAdded({productId: "p1", name: "Laptop", description: "x", price: 999.99})])
+    ->whenEvent(ProductPriceChanged({productId: "p1", price: 899.99}))
+    ->thenStateWithId(
+      "p1",
+      {productId: "p1", name: "Laptop", description: "x", price: 899.99},
+    )
+  )
+})

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

@@ -0,0 +1,129 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Products$CatalogPlugin from "../../../src/Product/StateViewSlice/Products.res.mjs";
+import * as Projection_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Projection_GWT.res.mjs";
+import * as Products_Projection$CatalogPlugin from "../../../src/Product/StateViewSlice/Products_Projection.res.mjs";
+
+let include = Projection_GWT$ReventlessGwt.Make({
+  name: Products$CatalogPlugin.name,
+  stateSchema: Products$CatalogPlugin.stateSchema,
+  consumedEventSchema: Products$CatalogPlugin.consumedEventSchema,
+  subIdConfig: undefined
+})({
+  project: Products_Projection$CatalogPlugin.project
+});
+
+let describe = include.describe;
+
+let test = include.test;
+
+let givenEvents = include.givenEvents;
+
+let whenEvent = include.whenEvent;
+
+let thenStateWithId = include.thenStateWithId;
+
+describe("Products StateViewSlice", () => {
+  test("ProductAdded creates a row", undefined, () => thenStateWithId(whenEvent(givenEvents([]), {
+    TAG: "ProductAdded",
+    productId: "p1",
+    name: "Laptop",
+    description: "x",
+    price: 999.99
+  }), "p1", {
+    productId: "p1",
+    name: "Laptop",
+    description: "x",
+    price: 999.99
+  }));
+  test("ProductNameChanged updates the name", undefined, () => thenStateWithId(whenEvent(givenEvents([{
+      TAG: "ProductAdded",
+      productId: "p1",
+      name: "Laptop",
+      description: "x",
+      price: 999.99
+    }]), {
+    TAG: "ProductNameChanged",
+    productId: "p1",
+    name: "Gaming Laptop"
+  }), "p1", {
+    productId: "p1",
+    name: "Gaming Laptop",
+    description: "x",
+    price: 999.99
+  }));
+  test("ProductDescriptionChanged updates the description", undefined, () => thenStateWithId(whenEvent(givenEvents([{
+      TAG: "ProductAdded",
+      productId: "p1",
+      name: "Laptop",
+      description: "x",
+      price: 999.99
+    }]), {
+    TAG: "ProductDescriptionChanged",
+    productId: "p1",
+    description: "high-end"
+  }), "p1", {
+    productId: "p1",
+    name: "Laptop",
+    description: "high-end",
+    price: 999.99
+  }));
+  test("ProductPriceChanged updates the price", undefined, () => thenStateWithId(whenEvent(givenEvents([{
+      TAG: "ProductAdded",
+      productId: "p1",
+      name: "Laptop",
+      description: "x",
+      price: 999.99
+    }]), {
+    TAG: "ProductPriceChanged",
+    productId: "p1",
+    price: 899.99
+  }), "p1", {
+    productId: "p1",
+    name: "Laptop",
+    description: "x",
+    price: 899.99
+  }));
+});
+
+let Spec = include.Spec;
+
+let describeWithId = include.describeWithId;
+
+let todo = include.todo;
+
+let whenEvents = include.whenEvents;
+
+let thenStates = include.thenStates;
+
+let thenStatesWithId = include.thenStatesWithId;
+
+let thenAllStates = include.thenAllStates;
+
+let thenState = include.thenState;
+
+let thenNoState = include.thenNoState;
+
+let thenThrow = include.thenThrow;
+
+let thenFail = include.thenFail;
+
+export {
+  Spec,
+  describe,
+  describeWithId,
+  todo,
+  test,
+  givenEvents,
+  whenEvent,
+  whenEvents,
+  thenStates,
+  thenStatesWithId,
+  thenAllStates,
+  thenState,
+  thenStateWithId,
+  thenNoState,
+  thenThrow,
+  thenFail,
+}
+/* include Not a pure module */

package/lib/ocaml/.compiler.log

@@ -0,0 +1,2 @@
+#Start(1782549921118)
+#Done(1782549923126)

package/lib/ocaml/AddCategory.res

@@ -0,0 +1,17 @@
+// AddCategory StateChangeSlice.
+// Handles the AddCategory command; rejects duplicate creation via DCB optimistic concurrency.
+@@reventless.spec
+
+@schema
+type consumedEvent =
+  | CategoryAdded
+  | CategoryArchived
+
+@schema
+type command = AddCategory({categoryId: string, name: string})
+
+@schema
+type error = CategoryAlreadyExists
+
+@schema
+type event = CategoryAdded({categoryId: string, name: string})

package/lib/ocaml/AddCategory_Behavior.res

@@ -0,0 +1,21 @@
+@@reventless.behavior
+
+type state = {exists: bool, archived: bool}
+
+let initialState = {exists: false, archived: false}
+
+let evolve = (state, event) =>
+  switch event {
+  | CategoryAdded => {exists: true, archived: false}
+  | CategoryArchived => {...state, archived: true}
+  }
+
+let decide = (state, command) =>
+  switch command {
+  | AddCategory({categoryId, name}) =>
+    if state.exists {
+      Error(CategoryAlreadyExists)
+    } else {
+      Ok([CategoryAdded({categoryId, name})])
+    }
+  }

package/lib/ocaml/AddCategory_GWT.res

@@ -0,0 +1,21 @@
+@@reventless.gwt
+
+describe("AddCategory StateChangeSlice", () => {
+  test("empty event log produces CategoryAdded", () =>
+    givenEvents([])
+    ->whenCmd(AddCategory({categoryId: "c1", name: "Electronics"}))
+    ->thenEvent(CategoryAdded({categoryId: "c1", name: "Electronics"}))
+  )
+
+  test("existing category returns CategoryAlreadyExists", () =>
+    givenEvents([CategoryAdded])
+    ->whenCmd(AddCategory({categoryId: "c1", name: "Electronics"}))
+    ->thenError(CategoryAlreadyExists)
+  )
+
+  test("archived category still rejects new AddCategory", () =>
+    givenEvents([CategoryAdded, CategoryArchived])
+    ->whenCmd(AddCategory({categoryId: "c1", name: "Electronics"}))
+    ->thenError(CategoryAlreadyExists)
+  )
+})

package/lib/ocaml/AddProduct.res

@@ -0,0 +1,28 @@
+// AddProduct StateChangeSlice.
+// Handles the AddProduct command; rejects duplicate creation via DCB optimistic concurrency.
+@@reventless.spec
+
+@schema
+type consumedEvent =
+  | ProductAdded
+
+@schema
+type command =
+  | AddProduct({
+      productId: string,
+      name: string,
+      description: string,
+      price: float,
+    })
+
+@schema
+type error = ProductAlreadyExists
+
+@schema
+type event =
+  | ProductAdded({
+      productId: string,
+      name: string,
+      description: string,
+      price: float,
+    })

package/lib/ocaml/AddProduct_Behavior.res

@@ -0,0 +1,20 @@
+@@reventless.behavior
+
+type state = {exists: bool}
+
+let initialState = {exists: false}
+
+let evolve = (_state, event) =>
+  switch event {
+  | ProductAdded => {exists: true}
+  }
+
+let decide = (state, command) =>
+  switch command {
+  | AddProduct({productId, name, description, price}) =>
+    if state.exists {
+      Error(ProductAlreadyExists)
+    } else {
+      Ok([ProductAdded({productId, name, description, price})])
+    }
+  }

package/lib/ocaml/AddProduct_GWT.res

@@ -0,0 +1,15 @@
+@@reventless.gwt
+
+describe("AddProduct StateChangeSlice", () => {
+  test("empty event log produces ProductAdded", () =>
+    givenEvents([])
+    ->whenCmd(AddProduct({productId: "p1", name: "Laptop", description: "x", price: 999.99}))
+    ->thenEvent(ProductAdded({productId: "p1", name: "Laptop", description: "x", price: 999.99}))
+  )
+
+  test("existing product returns ProductAlreadyExists", () =>
+    givenEvents([ProductAdded])
+    ->whenCmd(AddProduct({productId: "p1", name: "Laptop", description: "x", price: 999.99}))
+    ->thenError(ProductAlreadyExists)
+  )
+})