@reventlessdev/online-shop-hybrid-catalog 1.0.0-alpha.100

package/tests/Category/StateChangeSlice/RenameCategory_GWT.res.mjs

@@ -0,0 +1,102 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Behavior_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Behavior_GWT.res.mjs";
+import * as RenameCategory$CatalogPlugin from "../../../src/Category/StateChangeSlice/RenameCategory.res.mjs";
+import * as RenameCategory_Behavior$CatalogPlugin from "../../../src/Category/StateChangeSlice/RenameCategory_Behavior.res.mjs";
+
+let include = Behavior_GWT$ReventlessGwt.Make({
+  name: RenameCategory$CatalogPlugin.name,
+  consumedEventSchema: RenameCategory$CatalogPlugin.consumedEventSchema,
+  commandSchema: RenameCategory$CatalogPlugin.commandSchema,
+  errorSchema: RenameCategory$CatalogPlugin.errorSchema,
+  eventSchema: RenameCategory$CatalogPlugin.eventSchema
+})({
+  initialState: RenameCategory_Behavior$CatalogPlugin.initialState,
+  evolve: RenameCategory_Behavior$CatalogPlugin.evolve,
+  decide: RenameCategory_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("RenameCategory StateChangeSlice", () => {
+  test("rename on non-existent category returns CategoryNotFound", () => thenError(whenCmd(givenEvents([]), {
+    TAG: "RenameCategory",
+    categoryId: "c1",
+    name: "Consumer Electronics"
+  }), "CategoryNotFound"));
+  test("rename on active category produces CategoryRenamed", () => thenEvent(whenCmd(givenEvents([{
+      TAG: "CategoryAdded",
+      name: "Electronics"
+    }]), {
+    TAG: "RenameCategory",
+    categoryId: "c1",
+    name: "Consumer Electronics"
+  }), {
+    TAG: "CategoryRenamed",
+    categoryId: "c1",
+    name: "Consumer Electronics"
+  }));
+  test("rename to same name produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([{
+      TAG: "CategoryAdded",
+      name: "Electronics"
+    }]), {
+    TAG: "RenameCategory",
+    categoryId: "c1",
+    name: "Electronics"
+  })));
+  test("rename on archived category returns CategoryAlreadyArchived", () => thenError(whenCmd(givenEvents([
+    {
+      TAG: "CategoryAdded",
+      name: "Electronics"
+    },
+    "CategoryArchived"
+  ]), {
+    TAG: "RenameCategory",
+    categoryId: "c1",
+    name: "X"
+  }), "CategoryAlreadyArchived"));
+});
+
+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/Category/StateViewSliceStream/Categories_GWT.res

@@ -0,0 +1,21 @@
+@@reventless.gwt
+
+describe("Categories StateViewSliceStream", () => {
+  test("CategoryAdded creates a row", () =>
+    givenEvents([])
+    ->whenEvent(CategoryAdded({categoryId: "c1", name: "Electronics"}))
+    ->thenStateWithId("c1", {categoryId: "c1", name: "Electronics", archived: false})
+  )
+
+  test("CategoryRenamed updates the name", () =>
+    givenEvents([CategoryAdded({categoryId: "c1", name: "Electronics"})])
+    ->whenEvent(CategoryRenamed({categoryId: "c1", name: "Consumer Electronics"}))
+    ->thenStateWithId("c1", {categoryId: "c1", name: "Consumer Electronics", archived: false})
+  )
+
+  test("CategoryArchived sets archived flag", () =>
+    givenEvents([CategoryAdded({categoryId: "c1", name: "Electronics"})])
+    ->whenEvent(CategoryArchived({categoryId: "c1"}))
+    ->thenStateWithId("c1", {categoryId: "c1", name: "Electronics", archived: true})
+  )
+})

package/tests/Category/StateViewSliceStream/Categories_GWT.res.mjs

@@ -0,0 +1,103 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Categories$CatalogPlugin from "../../../src/Category/StateViewSliceStream/Categories.res.mjs";
+import * as Projection_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Projection_GWT.res.mjs";
+import * as Categories_Projection$CatalogPlugin from "../../../src/Category/StateViewSliceStream/Categories_Projection.res.mjs";
+
+let include = Projection_GWT$ReventlessGwt.Make({
+  name: Categories$CatalogPlugin.name,
+  stateSchema: Categories$CatalogPlugin.stateSchema,
+  consumedEventSchema: Categories$CatalogPlugin.consumedEventSchema,
+  subIdConfig: undefined
+})({
+  project: Categories_Projection$CatalogPlugin.project
+});
+
+let describe = include.describe;
+
+let test = include.test;
+
+let givenEvents = include.givenEvents;
+
+let whenEvent = include.whenEvent;
+
+let thenStateWithId = include.thenStateWithId;
+
+describe("Categories StateViewSliceStream", () => {
+  test("CategoryAdded creates a row", undefined, () => thenStateWithId(whenEvent(givenEvents([]), {
+    TAG: "CategoryAdded",
+    categoryId: "c1",
+    name: "Electronics"
+  }), "c1", {
+    categoryId: "c1",
+    name: "Electronics",
+    archived: false
+  }));
+  test("CategoryRenamed updates the name", undefined, () => thenStateWithId(whenEvent(givenEvents([{
+      TAG: "CategoryAdded",
+      categoryId: "c1",
+      name: "Electronics"
+    }]), {
+    TAG: "CategoryRenamed",
+    categoryId: "c1",
+    name: "Consumer Electronics"
+  }), "c1", {
+    categoryId: "c1",
+    name: "Consumer Electronics",
+    archived: false
+  }));
+  test("CategoryArchived sets archived flag", undefined, () => thenStateWithId(whenEvent(givenEvents([{
+      TAG: "CategoryAdded",
+      categoryId: "c1",
+      name: "Electronics"
+    }]), {
+    TAG: "CategoryArchived",
+    categoryId: "c1"
+  }), "c1", {
+    categoryId: "c1",
+    name: "Electronics",
+    archived: true
+  }));
+});
+
+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/tests/Extension/Orders_Extension_GWT.res

@@ -0,0 +1,40 @@
+// Boundary GWT for Catalog's Orders extension: public Ordering events become
+// RecordProductDemand commands on Catalog's demand slice.
+@@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
+
+// Each `ItemOrdered` / `ItemOrderCancelled` produces TWO actions on disjoint
+// channels: a `RecordDemand` / `RevokeDemand` command, and a telemetry
+// directive. Per-channel tests project to one channel each.
+describe("Orders Extension delegate", () => {
+  test("ItemOrdered records demand for the product", () =>
+    whenIncomingEvent(
+      ExtensionPoint.ItemOrdered({productId: "p1", orderId: "o1", customerId: "c1"}),
+    )->thenPublishesCommand(Delegate.RecordDemand({productId: "p1", orderId: "o1"}))
+  )
+
+  test("ItemOrdered fires an order-recorded telemetry directive", () =>
+    whenIncomingEvent(
+      ExtensionPoint.ItemOrdered({productId: "p1", orderId: "o1", customerId: "c1"}),
+    )->thenHandlesDirective(
+      ExtensionPoint.EmitOrderRecordedTelemetry({productId: "p1", orderId: "o1"}),
+    )
+  )
+
+  test("ItemOrderCancelled revokes demand for the product", () =>
+    whenIncomingEvent(
+      ExtensionPoint.ItemOrderCancelled({productId: "p1", orderId: "o1"}),
+    )->thenPublishesCommand(Delegate.RevokeDemand({productId: "p1", orderId: "o1"}))
+  )
+
+  test("ItemOrderCancelled fires an order-cancelled telemetry directive", () =>
+    whenIncomingEvent(
+      ExtensionPoint.ItemOrderCancelled({productId: "p1", orderId: "o1"}),
+    )->thenHandlesDirective(
+      ExtensionPoint.EmitOrderCancelledTelemetry({productId: "p1", orderId: "o1"}),
+    )
+  )
+})

package/tests/Extension/Orders_Extension_GWT.res.mjs

@@ -0,0 +1,126 @@
+// 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 Orders_Extension$CatalogPlugin from "../../src/Extension/Orders_Extension.res.mjs";
+import * as RecordProductDemand$CatalogPlugin from "../../src/ProductDemand/StateChangeSlice/RecordProductDemand.res.mjs";
+import * as Orders_ExtensionPoint$OrderingSpec from "@reventlessdev/online-shop-hybrid-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: RecordProductDemand$CatalogPlugin.name,
+    eventSchema: RecordProductDemand$CatalogPlugin.eventSchema,
+    errorSchema: RecordProductDemand$CatalogPlugin.errorSchema,
+    commandSchema: RecordProductDemand$CatalogPlugin.commandSchema,
+    moduleUrl: RecordProductDemand$CatalogPlugin.moduleUrl,
+    commandAuthorization: RecordProductDemand$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 thenPublishesCommand = include.thenPublishesCommand;
+
+let thenHandlesDirective = include.thenHandlesDirective;
+
+describe("Orders Extension delegate", () => {
+  test("ItemOrdered records demand for the product", undefined, () => thenPublishesCommand(whenIncomingEvent({
+    TAG: "ItemOrdered",
+    productId: "p1",
+    orderId: "o1",
+    customerId: "c1"
+  }), {
+    TAG: "RecordDemand",
+    productId: "p1",
+    orderId: "o1"
+  }));
+  test("ItemOrdered fires an order-recorded telemetry directive", undefined, () => thenHandlesDirective(whenIncomingEvent({
+    TAG: "ItemOrdered",
+    productId: "p1",
+    orderId: "o1",
+    customerId: "c1"
+  }), {
+    TAG: "EmitOrderRecordedTelemetry",
+    productId: "p1",
+    orderId: "o1"
+  }));
+  test("ItemOrderCancelled revokes demand for the product", undefined, () => thenPublishesCommand(whenIncomingEvent({
+    TAG: "ItemOrderCancelled",
+    productId: "p1",
+    orderId: "o1"
+  }), {
+    TAG: "RevokeDemand",
+    productId: "p1",
+    orderId: "o1"
+  }));
+  test("ItemOrderCancelled fires an order-cancelled telemetry directive", undefined, () => thenHandlesDirective(whenIncomingEvent({
+    TAG: "ItemOrderCancelled",
+    productId: "p1",
+    orderId: "o1"
+  }), {
+    TAG: "EmitOrderCancelledTelemetry",
+    productId: "p1",
+    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 thenPublishesCommands = include.thenPublishesCommands;
+
+let thenPublishesAggregateCommand = include.thenPublishesAggregateCommand;
+
+let whenDelegateEvent = include.whenDelegateEvent;
+
+let thenPublishesExtensionPointCommand = include.thenPublishesExtensionPointCommand;
+
+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 */

package/tests/ExtensionPoint/Products_ExtensionPointMapping_GWT.res

@@ -0,0 +1,37 @@
+// Boundary GWT for the Products extension point: internal Catalog events
+// become the stable public events Ordering subscribes to.
+@@reventless.gwt
+
+// Published events and handled directives are disjoint channels on the same
+// mapping run — each `test` projects to one channel and asserts on it.
+describe("Products ExtensionPoint mapping", () => {
+  test("ProductAdded publishes ProductBecameAvailable", () =>
+    whenDelegateEvent(
+      Delegate.ProductAdded({productId: "p1", name: "Book", description: "A good book", price: 9.99}),
+    )->thenPublishesEvent(
+      "p1",
+      ExtensionPoint.ProductBecameAvailable({productId: "p1", name: "Book", price: 9.99}),
+    )
+  )
+
+  test("ProductAdded raises no directive", () =>
+    whenDelegateEvent(
+      Delegate.ProductAdded({productId: "p1", name: "Book", description: "A good book", price: 9.99}),
+    )->thenHandlesNoDirective
+  )
+
+  test("ProductPriceChanged is forwarded to the extension point", () =>
+    whenDelegateEvent(Delegate.ProductPriceChanged({productId: "p1", price: 7.5}))->thenPublishesEvent(
+      "p1",
+      ExtensionPoint.ProductPriceChanged({productId: "p1", price: 7.5}),
+    )
+  )
+
+  test("ProductPriceChanged also fires a pricing-update directive", () =>
+    whenDelegateEvent(
+      Delegate.ProductPriceChanged({productId: "p1", price: 7.5}),
+    )->thenHandlesDirective(
+      ExtensionPoint.EmitPricingUpdate({productId: "p1", price: 7.5}),
+    )
+  )
+})

package/tests/ExtensionPoint/Products_ExtensionPointMapping_GWT.res.mjs

@@ -0,0 +1,123 @@
+// 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 Products_ExtensionPoint$CatalogSpec from "@reventlessdev/online-shop-hybrid-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: Products_ExtensionPointMapping$CatalogPlugin.Delegate.name,
+    eventSchema: Products_ExtensionPointMapping$CatalogPlugin.Delegate.eventSchema,
+    errorSchema: Products_ExtensionPointMapping$CatalogPlugin.Delegate.errorSchema,
+    commandSchema: Products_ExtensionPointMapping$CatalogPlugin.Delegate.commandSchema,
+    moduleUrl: Products_ExtensionPointMapping$CatalogPlugin.Delegate.moduleUrl,
+    commandAuthorization: Products_ExtensionPointMapping$CatalogPlugin.Delegate.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 whenDelegateEvent = include.whenDelegateEvent;
+
+let thenPublishesEvent = include.thenPublishesEvent;
+
+let thenHandlesDirective = include.thenHandlesDirective;
+
+let thenHandlesNoDirective = include.thenHandlesNoDirective;
+
+describe("Products ExtensionPoint mapping", () => {
+  test("ProductAdded publishes ProductBecameAvailable", undefined, () => thenPublishesEvent(whenDelegateEvent({
+    TAG: "ProductAdded",
+    productId: "p1",
+    name: "Book",
+    description: "A good book",
+    price: 9.99
+  }), "p1", {
+    TAG: "ProductBecameAvailable",
+    productId: "p1",
+    name: "Book",
+    price: 9.99
+  }));
+  test("ProductAdded raises no directive", undefined, () => thenHandlesNoDirective(whenDelegateEvent({
+    TAG: "ProductAdded",
+    productId: "p1",
+    name: "Book",
+    description: "A good book",
+    price: 9.99
+  })));
+  test("ProductPriceChanged is forwarded to the extension point", undefined, () => thenPublishesEvent(whenDelegateEvent({
+    TAG: "ProductPriceChanged",
+    productId: "p1",
+    price: 7.5
+  }), "p1", {
+    TAG: "ProductPriceChanged",
+    productId: "p1",
+    price: 7.5
+  }));
+  test("ProductPriceChanged also fires a pricing-update directive", undefined, () => thenHandlesDirective(whenDelegateEvent({
+    TAG: "ProductPriceChanged",
+    productId: "p1",
+    price: 7.5
+  }), {
+    TAG: "EmitPricingUpdate",
+    productId: "p1",
+    price: 7.5
+  }));
+});
+
+let encEvent = include.encEvent;
+
+let encCommand = include.encCommand;
+
+let encDirective = include.encDirective;
+
+let EvCore = include.EvCore;
+
+let CmdCore = include.CmdCore;
+
+let thenPublishesNothing = include.thenPublishesNothing;
+
+let thenPublishesEvents = include.thenPublishesEvents;
+
+let whenIncomingCommand = include.whenIncomingCommand;
+
+let thenPublishesCommand = include.thenPublishesCommand;
+
+let thenPublishesCommands = include.thenPublishesCommands;
+
+let thenHandlesDirectives = include.thenHandlesDirectives;
+
+export {
+  encEvent,
+  encCommand,
+  encDirective,
+  EvCore,
+  CmdCore,
+  describe,
+  test,
+  thenPublishesNothing,
+  whenDelegateEvent,
+  thenPublishesEvent,
+  thenPublishesEvents,
+  whenIncomingCommand,
+  thenPublishesCommand,
+  thenPublishesCommands,
+  thenHandlesDirective,
+  thenHandlesDirectives,
+  thenHandlesNoDirective,
+}
+/* include Not a pure module */

package/tests/Product/InboundTranslationSlice/ImportProduct_GWT.res

@@ -0,0 +1,53 @@
+// `InboundTranslation_GWT.Make` expects a single SliceSpec carrying both the
+// types (from the spec file) and the `translate` function (from the body
+// file). 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",
+      category: "cat1",
+    })
+    ->thenCommand(
+      "p-1",
+      AddProduct({
+        productId: "p-1",
+        name: "Laptop",
+        description: "high-end",
+        price: 999.99,
+        categoryId: "cat1",
+      }),
+    )
+  )
+
+  test("non-USD currency surfaces a translate error", () =>
+    whenInput({sku: "p-1", title: "Laptop", desc: "x", unitPrice: 1, currency: "EUR", category: "cat1"})
+    ->thenTranslateError("Unsupported currency: EUR")
+  )
+
+  test("non-positive price surfaces a translate error", () =>
+    whenInput({sku: "p-1", title: "Laptop", desc: "x", unitPrice: 0, currency: "USD", category: "cat1"})
+    ->thenTranslateError("Price must be positive")
+  )
+
+  test("empty SKU surfaces a translate error", () =>
+    whenInput({sku: "", title: "Laptop", desc: "x", unitPrice: 100, currency: "USD", category: "cat1"})
+    ->thenTranslateError("SKU is required")
+  )
+
+  test("empty category surfaces a translate error", () =>
+    whenInput({sku: "p-1", title: "Laptop", desc: "x", unitPrice: 100, currency: "USD", category: ""})
+    ->thenTranslateError("Category is required")
+  )
+})