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

package/tests/Product/InboundTranslationSlice/ImportProduct_GWT.res

@@ -0,0 +1,42 @@
+// `InboundTranslation_GWT.Make` expects a single SliceSpec carrying both the
+// types (from the spec file) and the `translate` function (from the body
+// file). The split-form production layout doesn't expose them as one module,
+// so we compose them locally before handing the result to the DSL.
+
+module ImportProductSlice = {
+  include ImportProduct
+  let translate = ImportProduct_Translation.translate
+}
+
+@@reventless.gwt
+
+describe("ImportProduct InboundTranslationSlice", () => {
+  test("USD payload translates to AddProduct command", () =>
+    whenInput({
+      sku: "p-1",
+      title: "Laptop",
+      desc: "high-end",
+      unitPrice: 99999,
+      currency: "USD",
+    })
+    ->thenCommand(
+      "p-1",
+      AddProduct({productId: "p-1", name: "Laptop", description: "high-end", price: 999.99}),
+    )
+  )
+
+  test("non-USD currency surfaces a translate error", () =>
+    whenInput({sku: "p-1", title: "Laptop", desc: "x", unitPrice: 1, currency: "EUR"})
+    ->thenTranslateError("Unsupported currency: EUR")
+  )
+
+  test("non-positive price surfaces a translate error", () =>
+    whenInput({sku: "p-1", title: "Laptop", desc: "x", unitPrice: 0, currency: "USD"})
+    ->thenTranslateError("Price must be positive")
+  )
+
+  test("empty SKU surfaces a translate error", () =>
+    whenInput({sku: "", title: "Laptop", desc: "x", unitPrice: 100, currency: "USD"})
+    ->thenTranslateError("SKU is required")
+  )
+})

package/tests/Product/InboundTranslationSlice/ImportProduct_GWT.res.mjs

@@ -0,0 +1,89 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as ImportProduct$CatalogPlugin from "../../../src/Product/InboundTranslationSlice/ImportProduct.res.mjs";
+import * as InboundTranslation_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/InboundTranslation_GWT.res.mjs";
+import * as ImportProduct_Translation$CatalogPlugin from "../../../src/Product/InboundTranslationSlice/ImportProduct_Translation.res.mjs";
+
+let ImportProductSlice = {
+  name: ImportProduct$CatalogPlugin.name,
+  Id: ImportProduct$CatalogPlugin.Id,
+  externalInputSchema: ImportProduct$CatalogPlugin.externalInputSchema,
+  commandSchema: ImportProduct$CatalogPlugin.commandSchema,
+  targetName: ImportProduct$CatalogPlugin.targetName,
+  moduleUrl: ImportProduct$CatalogPlugin.moduleUrl,
+  commandAuthorization: ImportProduct$CatalogPlugin.commandAuthorization,
+  translate: ImportProduct_Translation$CatalogPlugin.translate
+};
+
+let include = InboundTranslation_GWT$ReventlessGwt.Make({
+  name: ImportProduct$CatalogPlugin.name,
+  externalInputSchema: ImportProduct$CatalogPlugin.externalInputSchema,
+  commandSchema: ImportProduct$CatalogPlugin.commandSchema,
+  translate: ImportProduct_Translation$CatalogPlugin.translate
+});
+
+let describe = include.describe;
+
+let test = include.test;
+
+let whenInput = include.whenInput;
+
+let thenCommand = include.thenCommand;
+
+let thenTranslateError = include.thenTranslateError;
+
+describe("ImportProduct InboundTranslationSlice", () => {
+  test("USD payload translates to AddProduct command", () => thenCommand(whenInput({
+    sku: "p-1",
+    title: "Laptop",
+    desc: "high-end",
+    unitPrice: 99999,
+    currency: "USD"
+  }), "p-1", {
+    TAG: "AddProduct",
+    productId: "p-1",
+    name: "Laptop",
+    description: "high-end",
+    price: 999.99
+  }));
+  test("non-USD currency surfaces a translate error", () => thenTranslateError(whenInput({
+    sku: "p-1",
+    title: "Laptop",
+    desc: "x",
+    unitPrice: 1,
+    currency: "EUR"
+  }), "Unsupported currency: EUR"));
+  test("non-positive price surfaces a translate error", () => thenTranslateError(whenInput({
+    sku: "p-1",
+    title: "Laptop",
+    desc: "x",
+    unitPrice: 0,
+    currency: "USD"
+  }), "Price must be positive"));
+  test("empty SKU surfaces a translate error", () => thenTranslateError(whenInput({
+    sku: "",
+    title: "Laptop",
+    desc: "x",
+    unitPrice: 100,
+    currency: "USD"
+  }), "SKU is required"));
+});
+
+let Spec = include.Spec;
+
+let thenCommands = include.thenCommands;
+
+let thenNoCommand = include.thenNoCommand;
+
+export {
+  ImportProductSlice,
+  Spec,
+  describe,
+  test,
+  whenInput,
+  thenCommands,
+  thenCommand,
+  thenNoCommand,
+  thenTranslateError,
+}
+/* include Not a pure module */

package/tests/Product/StateChangeSlice/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)
+  )
+})

package/tests/Product/StateChangeSlice/AddProduct_GWT.res.mjs

@@ -0,0 +1,86 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as AddProduct$CatalogPlugin from "../../../src/Product/StateChangeSlice/AddProduct.res.mjs";
+import * as Behavior_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Behavior_GWT.res.mjs";
+import * as AddProduct_Behavior$CatalogPlugin from "../../../src/Product/StateChangeSlice/AddProduct_Behavior.res.mjs";
+
+let include = Behavior_GWT$ReventlessGwt.Make({
+  name: AddProduct$CatalogPlugin.name,
+  consumedEventSchema: AddProduct$CatalogPlugin.consumedEventSchema,
+  commandSchema: AddProduct$CatalogPlugin.commandSchema,
+  errorSchema: AddProduct$CatalogPlugin.errorSchema,
+  eventSchema: AddProduct$CatalogPlugin.eventSchema
+})({
+  initialState: AddProduct_Behavior$CatalogPlugin.initialState,
+  evolve: AddProduct_Behavior$CatalogPlugin.evolve,
+  decide: AddProduct_Behavior$CatalogPlugin.decide
+});
+
+let describe = include.describe;
+
+let test = include.test;
+
+let givenEvents = include.givenEvents;
+
+let whenCmd = include.whenCmd;
+
+let thenEvent = include.thenEvent;
+
+let thenError = include.thenError;
+
+describe("AddProduct StateChangeSlice", () => {
+  test("empty event log produces ProductAdded", () => thenEvent(whenCmd(givenEvents([]), {
+    TAG: "AddProduct",
+    productId: "p1",
+    name: "Laptop",
+    description: "x",
+    price: 999.99
+  }), {
+    TAG: "ProductAdded",
+    productId: "p1",
+    name: "Laptop",
+    description: "x",
+    price: 999.99
+  }));
+  test("existing product returns ProductAlreadyExists", () => thenError(whenCmd(givenEvents(["ProductAdded"]), {
+    TAG: "AddProduct",
+    productId: "p1",
+    name: "Laptop",
+    description: "x",
+    price: 999.99
+  }), "ProductAlreadyExists"));
+});
+
+let Spec = include.Spec;
+
+let todo = include.todo;
+
+let thenEvents = include.thenEvents;
+
+let thenNoEvent = include.thenNoEvent;
+
+let thenEventWithError = include.thenEventWithError;
+
+let thenEventsWithError = include.thenEventsWithError;
+
+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/tests/Product/StateChangeSlice/ChangeProductDescription_GWT.res

@@ -0,0 +1,21 @@
+@@reventless.gwt
+
+describe("ChangeProductDescription StateChangeSlice", () => {
+  test("non-existent product returns ProductNotFound", () =>
+    givenEvents([])
+    ->whenCmd(ChangeProductDescription({productId: "p1", description: "high-end"}))
+    ->thenError(ProductNotFound)
+  )
+
+  test("existing product produces ProductDescriptionChanged", () =>
+    givenEvents([ProductAdded({description: "A laptop"})])
+    ->whenCmd(ChangeProductDescription({productId: "p1", description: "high-end laptop"}))
+    ->thenEvent(ProductDescriptionChanged({productId: "p1", description: "high-end laptop"}))
+  )
+
+  test("same description produces no events (idempotent)", () =>
+    givenEvents([ProductAdded({description: "A laptop"})])
+    ->whenCmd(ChangeProductDescription({productId: "p1", description: "A laptop"}))
+    ->thenNoEvent
+  )
+})

package/tests/Product/StateChangeSlice/ChangeProductDescription_GWT.res.mjs

@@ -0,0 +1,91 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Behavior_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Behavior_GWT.res.mjs";
+import * as ChangeProductDescription$CatalogPlugin from "../../../src/Product/StateChangeSlice/ChangeProductDescription.res.mjs";
+import * as ChangeProductDescription_Behavior$CatalogPlugin from "../../../src/Product/StateChangeSlice/ChangeProductDescription_Behavior.res.mjs";
+
+let include = Behavior_GWT$ReventlessGwt.Make({
+  name: ChangeProductDescription$CatalogPlugin.name,
+  consumedEventSchema: ChangeProductDescription$CatalogPlugin.consumedEventSchema,
+  commandSchema: ChangeProductDescription$CatalogPlugin.commandSchema,
+  errorSchema: ChangeProductDescription$CatalogPlugin.errorSchema,
+  eventSchema: ChangeProductDescription$CatalogPlugin.eventSchema
+})({
+  initialState: ChangeProductDescription_Behavior$CatalogPlugin.initialState,
+  evolve: ChangeProductDescription_Behavior$CatalogPlugin.evolve,
+  decide: ChangeProductDescription_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;
+
+let thenError = include.thenError;
+
+describe("ChangeProductDescription StateChangeSlice", () => {
+  test("non-existent product returns ProductNotFound", () => thenError(whenCmd(givenEvents([]), {
+    TAG: "ChangeProductDescription",
+    productId: "p1",
+    description: "high-end"
+  }), "ProductNotFound"));
+  test("existing product produces ProductDescriptionChanged", () => thenEvent(whenCmd(givenEvents([{
+      TAG: "ProductAdded",
+      description: "A laptop"
+    }]), {
+    TAG: "ChangeProductDescription",
+    productId: "p1",
+    description: "high-end laptop"
+  }), {
+    TAG: "ProductDescriptionChanged",
+    productId: "p1",
+    description: "high-end laptop"
+  }));
+  test("same description produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([{
+      TAG: "ProductAdded",
+      description: "A laptop"
+    }]), {
+    TAG: "ChangeProductDescription",
+    productId: "p1",
+    description: "A laptop"
+  })));
+});
+
+let Spec = include.Spec;
+
+let todo = include.todo;
+
+let thenEvents = include.thenEvents;
+
+let thenEventWithError = include.thenEventWithError;
+
+let thenEventsWithError = include.thenEventsWithError;
+
+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/tests/Product/StateChangeSlice/ChangeProductName_GWT.res

@@ -0,0 +1,21 @@
+@@reventless.gwt
+
+describe("ChangeProductName StateChangeSlice", () => {
+  test("non-existent product returns ProductNotFound", () =>
+    givenEvents([])
+    ->whenCmd(ChangeProductName({productId: "p1", name: "Gaming Laptop"}))
+    ->thenError(ProductNotFound)
+  )
+
+  test("existing product produces ProductNameChanged", () =>
+    givenEvents([ProductAdded({name: "Laptop"})])
+    ->whenCmd(ChangeProductName({productId: "p1", name: "Gaming Laptop"}))
+    ->thenEvent(ProductNameChanged({productId: "p1", name: "Gaming Laptop"}))
+  )
+
+  test("same name produces no events (idempotent)", () =>
+    givenEvents([ProductAdded({name: "Laptop"})])
+    ->whenCmd(ChangeProductName({productId: "p1", name: "Laptop"}))
+    ->thenNoEvent
+  )
+})

package/tests/Product/StateChangeSlice/ChangeProductName_GWT.res.mjs

@@ -0,0 +1,91 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Behavior_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Behavior_GWT.res.mjs";
+import * as ChangeProductName$CatalogPlugin from "../../../src/Product/StateChangeSlice/ChangeProductName.res.mjs";
+import * as ChangeProductName_Behavior$CatalogPlugin from "../../../src/Product/StateChangeSlice/ChangeProductName_Behavior.res.mjs";
+
+let include = Behavior_GWT$ReventlessGwt.Make({
+  name: ChangeProductName$CatalogPlugin.name,
+  consumedEventSchema: ChangeProductName$CatalogPlugin.consumedEventSchema,
+  commandSchema: ChangeProductName$CatalogPlugin.commandSchema,
+  errorSchema: ChangeProductName$CatalogPlugin.errorSchema,
+  eventSchema: ChangeProductName$CatalogPlugin.eventSchema
+})({
+  initialState: ChangeProductName_Behavior$CatalogPlugin.initialState,
+  evolve: ChangeProductName_Behavior$CatalogPlugin.evolve,
+  decide: ChangeProductName_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;
+
+let thenError = include.thenError;
+
+describe("ChangeProductName StateChangeSlice", () => {
+  test("non-existent product returns ProductNotFound", () => thenError(whenCmd(givenEvents([]), {
+    TAG: "ChangeProductName",
+    productId: "p1",
+    name: "Gaming Laptop"
+  }), "ProductNotFound"));
+  test("existing product produces ProductNameChanged", () => thenEvent(whenCmd(givenEvents([{
+      TAG: "ProductAdded",
+      name: "Laptop"
+    }]), {
+    TAG: "ChangeProductName",
+    productId: "p1",
+    name: "Gaming Laptop"
+  }), {
+    TAG: "ProductNameChanged",
+    productId: "p1",
+    name: "Gaming Laptop"
+  }));
+  test("same name produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([{
+      TAG: "ProductAdded",
+      name: "Laptop"
+    }]), {
+    TAG: "ChangeProductName",
+    productId: "p1",
+    name: "Laptop"
+  })));
+});
+
+let Spec = include.Spec;
+
+let todo = include.todo;
+
+let thenEvents = include.thenEvents;
+
+let thenEventWithError = include.thenEventWithError;
+
+let thenEventsWithError = include.thenEventsWithError;
+
+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/tests/Product/StateChangeSlice/ChangeProductPrice_GWT.res

@@ -0,0 +1,21 @@
+@@reventless.gwt
+
+describe("ChangeProductPrice StateChangeSlice", () => {
+  test("non-existent product returns ProductNotFound", () =>
+    givenEvents([])
+    ->whenCmd(ChangeProductPrice({productId: "p1", price: 899.99}))
+    ->thenError(ProductNotFound)
+  )
+
+  test("existing product produces ProductPriceChanged", () =>
+    givenEvents([ProductAdded({price: 999.99})])
+    ->whenCmd(ChangeProductPrice({productId: "p1", price: 899.99}))
+    ->thenEvent(ProductPriceChanged({productId: "p1", price: 899.99}))
+  )
+
+  test("same price produces no events (idempotent)", () =>
+    givenEvents([ProductAdded({price: 999.99})])
+    ->whenCmd(ChangeProductPrice({productId: "p1", price: 999.99}))
+    ->thenNoEvent
+  )
+})

package/tests/Product/StateChangeSlice/ChangeProductPrice_GWT.res.mjs

@@ -0,0 +1,91 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Behavior_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Behavior_GWT.res.mjs";
+import * as ChangeProductPrice$CatalogPlugin from "../../../src/Product/StateChangeSlice/ChangeProductPrice.res.mjs";
+import * as ChangeProductPrice_Behavior$CatalogPlugin from "../../../src/Product/StateChangeSlice/ChangeProductPrice_Behavior.res.mjs";
+
+let include = Behavior_GWT$ReventlessGwt.Make({
+  name: ChangeProductPrice$CatalogPlugin.name,
+  consumedEventSchema: ChangeProductPrice$CatalogPlugin.consumedEventSchema,
+  commandSchema: ChangeProductPrice$CatalogPlugin.commandSchema,
+  errorSchema: ChangeProductPrice$CatalogPlugin.errorSchema,
+  eventSchema: ChangeProductPrice$CatalogPlugin.eventSchema
+})({
+  initialState: ChangeProductPrice_Behavior$CatalogPlugin.initialState,
+  evolve: ChangeProductPrice_Behavior$CatalogPlugin.evolve,
+  decide: ChangeProductPrice_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;
+
+let thenError = include.thenError;
+
+describe("ChangeProductPrice StateChangeSlice", () => {
+  test("non-existent product returns ProductNotFound", () => thenError(whenCmd(givenEvents([]), {
+    TAG: "ChangeProductPrice",
+    productId: "p1",
+    price: 899.99
+  }), "ProductNotFound"));
+  test("existing product produces ProductPriceChanged", () => thenEvent(whenCmd(givenEvents([{
+      TAG: "ProductAdded",
+      price: 999.99
+    }]), {
+    TAG: "ChangeProductPrice",
+    productId: "p1",
+    price: 899.99
+  }), {
+    TAG: "ProductPriceChanged",
+    productId: "p1",
+    price: 899.99
+  }));
+  test("same price produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([{
+      TAG: "ProductAdded",
+      price: 999.99
+    }]), {
+    TAG: "ChangeProductPrice",
+    productId: "p1",
+    price: 999.99
+  })));
+});
+
+let Spec = include.Spec;
+
+let todo = include.todo;
+
+let thenEvents = include.thenEvents;
+
+let thenEventWithError = include.thenEventWithError;
+
+let thenEventsWithError = include.thenEventsWithError;
+
+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/tests/Product/StateChangeSlice/RecordProductDemand_GWT.res

@@ -0,0 +1,39 @@
+@@reventless.gwt
+
+describe("RecordProductDemand StateChangeSlice", () => {
+  test("first RecordDemand produces ProductDemandRecorded", () =>
+    givenEvents([])
+    ->whenCmd(RecordDemand({productId: "p1", orderId: "order-1"}))
+    ->thenEvent(ProductDemandRecorded({productId: "p1", orderId: "order-1"}))
+  )
+
+  test("RecordDemand for new orderId on existing product produces ProductDemandRecorded", () =>
+    givenEvents([ProductDemandRecorded({orderId: "order-1"})])
+    ->whenCmd(RecordDemand({productId: "p1", orderId: "order-2"}))
+    ->thenEvent(ProductDemandRecorded({productId: "p1", orderId: "order-2"}))
+  )
+
+  test("RecordDemand for already-recorded orderId produces no events (idempotent)", () =>
+    givenEvents([ProductDemandRecorded({orderId: "order-1"})])
+    ->whenCmd(RecordDemand({productId: "p1", orderId: "order-1"}))
+    ->thenNoEvent
+  )
+
+  test("RevokeDemand on never-recorded product produces no events (idempotent)", () =>
+    givenEvents([])
+    ->whenCmd(RevokeDemand({productId: "p1", orderId: "order-1"}))
+    ->thenNoEvent
+  )
+
+  test("RevokeDemand for unrecorded orderId on existing product produces no events (idempotent)", () =>
+    givenEvents([ProductDemandRecorded({orderId: "order-1"})])
+    ->whenCmd(RevokeDemand({productId: "p1", orderId: "order-2"}))
+    ->thenNoEvent
+  )
+
+  test("RevokeDemand for recorded orderId produces ProductDemandRevoked", () =>
+    givenEvents([ProductDemandRecorded({orderId: "order-1"})])
+    ->whenCmd(RevokeDemand({productId: "p1", orderId: "order-1"}))
+    ->thenEvent(ProductDemandRevoked({productId: "p1", orderId: "order-1"}))
+  )
+})