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

package/lib/bs/tests/Category/StateViewSlice/Categories_GWT.res.mjs

@@ -0,0 +1,103 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Categories$CatalogPlugin from "../../../src/Category/StateViewSlice/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/StateViewSlice/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 StateViewSlice", () => {
+  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/lib/bs/tests/CategoryActivity/ReadModel/CategoryActivity_GWT.res

@@ -0,0 +1,100 @@
+// Multi-source ReadModel: one `_GWT` instance per source mapping. The
+// `MultiSourceProjection_GWT.Make` functor is single-source — wire one GWT
+// module per Source view and let each describe its own slice of behaviour.
+
+module CategoryGwt = ReventlessGwt.MultiSourceProjection_GWT.Make(
+  CategoryActivity_Projections.CategoryActivityMapping,
+)
+module ProductGwt = ReventlessGwt.MultiSourceProjection_GWT.Make(
+  CategoryActivity_Projections.ProductActivityMapping,
+)
+
+CategoryGwt.describe("CategoryActivity ReadModel ← Category DCB events", () => {
+  CategoryGwt.test("CategoryAdded sets name + kind=Category lastChange=Added", () =>
+    CategoryGwt.givenEvents([])
+    ->CategoryGwt.whenEvent(
+      CategoryActivity_Projections.CategoryEvents.CategoryAdded({
+        categoryId: "c1",
+        name: "Electronics",
+      }),
+    )
+    ->CategoryGwt.thenStateWithId(
+      "c1",
+      {CategoryActivity.name: "Electronics", kind: Category, lastChange: Added},
+    )
+  )
+
+  CategoryGwt.test("CategoryRenamed updates name + lastChange=Renamed", () =>
+    CategoryGwt.givenEvents([
+      CategoryActivity_Projections.CategoryEvents.CategoryAdded({
+        categoryId: "c1",
+        name: "Electronics",
+      }),
+    ])
+    ->CategoryGwt.whenEvent(
+      CategoryActivity_Projections.CategoryEvents.CategoryRenamed({
+        categoryId: "c1",
+        name: "Consumer Electronics",
+      }),
+    )
+    ->CategoryGwt.thenStateWithId(
+      "c1",
+      {CategoryActivity.name: "Consumer Electronics", kind: Category, lastChange: Renamed},
+    )
+  )
+
+  CategoryGwt.test("CategoryArchived keeps name and sets lastChange=Archived", () =>
+    CategoryGwt.givenEvents([
+      CategoryActivity_Projections.CategoryEvents.CategoryAdded({
+        categoryId: "c1",
+        name: "Electronics",
+      }),
+    ])
+    ->CategoryGwt.whenEvent(
+      CategoryActivity_Projections.CategoryEvents.CategoryArchived({categoryId: "c1"}),
+    )
+    ->CategoryGwt.thenStateWithId(
+      "c1",
+      {CategoryActivity.name: "Electronics", kind: Category, lastChange: Archived},
+    )
+  )
+})
+
+ProductGwt.describe("CategoryActivity ReadModel ← Product DCB events", () => {
+  ProductGwt.test("ProductAdded sets name + kind=Product lastChange=Added", () =>
+    ProductGwt.givenEvents([])
+    ->ProductGwt.whenEvent(
+      CategoryActivity_Projections.ProductEvents.ProductAdded({
+        productId: "p1",
+        name: "Laptop",
+        description: "x",
+        price: 1.0,
+      }),
+    )
+    ->ProductGwt.thenStateWithId(
+      "p1",
+      {CategoryActivity.name: "Laptop", kind: Product, lastChange: Added},
+    )
+  )
+
+  ProductGwt.test("ProductNameChanged updates name + lastChange=Renamed", () =>
+    ProductGwt.givenEvents([
+      CategoryActivity_Projections.ProductEvents.ProductAdded({
+        productId: "p1",
+        name: "Laptop",
+        description: "x",
+        price: 1.0,
+      }),
+    ])
+    ->ProductGwt.whenEvent(
+      CategoryActivity_Projections.ProductEvents.ProductNameChanged({
+        productId: "p1",
+        name: "Gaming Laptop",
+      }),
+    )
+    ->ProductGwt.thenStateWithId(
+      "p1",
+      {CategoryActivity.name: "Gaming Laptop", kind: Product, lastChange: Renamed},
+    )
+  )
+})

package/lib/bs/tests/CategoryActivity/ReadModel/CategoryActivity_GWT.res.mjs

@@ -0,0 +1,80 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as MultiSourceProjection_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/MultiSourceProjection_GWT.res.mjs";
+import * as CategoryActivity_Projections$CatalogPlugin from "../../../src/CategoryActivity/ReadModel/CategoryActivity_Projections.res.mjs";
+
+let CategoryGwt = MultiSourceProjection_GWT$ReventlessGwt.Make(CategoryActivity_Projections$CatalogPlugin.CategoryActivityMapping);
+
+let ProductGwt = MultiSourceProjection_GWT$ReventlessGwt.Make(CategoryActivity_Projections$CatalogPlugin.ProductActivityMapping);
+
+CategoryGwt.describe("CategoryActivity ReadModel ← Category DCB events", () => {
+  CategoryGwt.test("CategoryAdded sets name + kind=Category lastChange=Added", undefined, () => CategoryGwt.thenStateWithId(CategoryGwt.whenEvent(CategoryGwt.givenEvents([]), {
+    TAG: "CategoryAdded",
+    categoryId: "c1",
+    name: "Electronics"
+  }), "c1", {
+    name: "Electronics",
+    kind: "Category",
+    lastChange: "Added"
+  }));
+  CategoryGwt.test("CategoryRenamed updates name + lastChange=Renamed", undefined, () => CategoryGwt.thenStateWithId(CategoryGwt.whenEvent(CategoryGwt.givenEvents([{
+      TAG: "CategoryAdded",
+      categoryId: "c1",
+      name: "Electronics"
+    }]), {
+    TAG: "CategoryRenamed",
+    categoryId: "c1",
+    name: "Consumer Electronics"
+  }), "c1", {
+    name: "Consumer Electronics",
+    kind: "Category",
+    lastChange: "Renamed"
+  }));
+  CategoryGwt.test("CategoryArchived keeps name and sets lastChange=Archived", undefined, () => CategoryGwt.thenStateWithId(CategoryGwt.whenEvent(CategoryGwt.givenEvents([{
+      TAG: "CategoryAdded",
+      categoryId: "c1",
+      name: "Electronics"
+    }]), {
+    TAG: "CategoryArchived",
+    categoryId: "c1"
+  }), "c1", {
+    name: "Electronics",
+    kind: "Category",
+    lastChange: "Archived"
+  }));
+});
+
+ProductGwt.describe("CategoryActivity ReadModel ← Product DCB events", () => {
+  ProductGwt.test("ProductAdded sets name + kind=Product lastChange=Added", undefined, () => ProductGwt.thenStateWithId(ProductGwt.whenEvent(ProductGwt.givenEvents([]), {
+    TAG: "ProductAdded",
+    productId: "p1",
+    name: "Laptop",
+    description: "x",
+    price: 1.0
+  }), "p1", {
+    name: "Laptop",
+    kind: "Product",
+    lastChange: "Added"
+  }));
+  ProductGwt.test("ProductNameChanged updates name + lastChange=Renamed", undefined, () => ProductGwt.thenStateWithId(ProductGwt.whenEvent(ProductGwt.givenEvents([{
+      TAG: "ProductAdded",
+      productId: "p1",
+      name: "Laptop",
+      description: "x",
+      price: 1.0
+    }]), {
+    TAG: "ProductNameChanged",
+    productId: "p1",
+    name: "Gaming Laptop"
+  }), "p1", {
+    name: "Gaming Laptop",
+    kind: "Product",
+    lastChange: "Renamed"
+  }));
+});
+
+export {
+  CategoryGwt,
+  ProductGwt,
+}
+/* CategoryGwt Not a pure module */

package/lib/bs/tests/Extension/Orders_Extension_GWT.res

@@ -0,0 +1,21 @@
+// Boundary GWT for Catalog's Orders extension: public Ordering events become
+// RecordProductDemand commands on Catalog's StateChangeSlices.
+@@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
+
+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("ItemOrderCancelled revokes demand for the product", () =>
+    whenIncomingEvent(
+      ExtensionPoint.ItemOrderCancelled({productId: "p1", orderId: "o1"}),
+    )->thenPublishesCommand(Delegate.RevokeDemand({productId: "p1", orderId: "o1"}))
+  )
+})

package/lib/bs/tests/Extension/Orders_Extension_GWT.res.mjs

@@ -0,0 +1,107 @@
+// 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/Product/StateChangeSlice/RecordProductDemand.res.mjs";
+import * as Orders_ExtensionPoint$OrderingSpec from "@reventlessdev/online-shop-dcb-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;
+
+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("ItemOrderCancelled revokes demand for the product", undefined, () => thenPublishesCommand(whenIncomingEvent({
+    TAG: "ItemOrderCancelled",
+    productId: "p1",
+    orderId: "o1"
+  }), {
+    TAG: "RevokeDemand",
+    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 thenHandlesDirective = include.thenHandlesDirective;
+
+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/lib/bs/tests/ExtensionPoint/Products_ExtensionPointMapping_GWT.res

@@ -0,0 +1,21 @@
+// Boundary GWT for the Products extension point: internal Catalog DCB log
+// events become the stable public events Ordering subscribes to.
+@@reventless.gwt
+
+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("ProductPriceChanged publishes ProductPriceChanged", () =>
+    whenDelegateEvent(Delegate.ProductPriceChanged({productId: "p1", price: 7.5}))->thenPublishesEvent(
+      "p1",
+      ExtensionPoint.ProductPriceChanged({productId: "p1", price: 7.5}),
+    )
+  )
+})

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

@@ -0,0 +1,107 @@
+// 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-dcb-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;
+
+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("ProductPriceChanged publishes ProductPriceChanged", undefined, () => thenPublishesEvent(whenDelegateEvent({
+    TAG: "ProductPriceChanged",
+    productId: "p1",
+    price: 7.5
+  }), "p1", {
+    TAG: "ProductPriceChanged",
+    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 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/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")
+  )
+})