@reventlessdev/online-shop-dcb-catalog 1.0.0-alpha.252 → 1.0.0-alpha.254

package/CHANGELOG.md

@@ -3,6 +3,22 @@
 All notable changes to this project will be documented in this file.
 See [Conventional Commits](https://conventionalcommits.org) for commit guidelines.
 
+# 1.0.0-alpha.254 (2026-09-23)
+
+**Note:** Version bump only for package @reventlessdev/online-shop-dcb-catalog
+
+
+
+
+
+# 1.0.0-alpha.253 (2026-09-23)
+
+**Note:** Version bump only for package @reventlessdev/online-shop-dcb-catalog
+
+
+
+
+
 # 1.0.0-alpha.252 (2026-09-22)
 
 **Note:** Version bump only for package @reventlessdev/online-shop-dcb-catalog

package/lib/bs/.compiler.log

@@ -1,2 +1,2 @@
-#Start(1790058029720)
-#Done(1790058031882)
+#Start(1790194681256)
+#Done(1790194684479)

package/lib/bs/CatalogPlugin.mlmap

@@ -8,6 +8,7 @@ AddProduct_GWT
 ArchiveCategory
 ArchiveCategory_Behavior
 ArchiveCategory_GWT
+Catalog_Examples
 Categories
 Categories_GWT
 Categories_Projection

package/lib/bs/compiler-info.json

@@ -4,5 +4,5 @@
   "bsc_hash": "1006241435e8d5052329c523202a7fe6359a37e1e1688c023d37d6a7ebb5fb6d",
   "rescript_config_hash": "ca6bf04caf4f6b27dbf31b935f934d99c6fe59248cc8b122f9cc48ff2675eb4a",
   "runtime_path": "/home/runner/work/reventless-core/reventless-core/node_modules/@rescript/runtime",
-  "generated_at": "1790058031892"
+  "generated_at": "1790194684481"
 }

package/lib/bs/tests/Catalog_Examples.res

@@ -0,0 +1,17 @@
+@@reventless.examples
+
+let c1: CategoryId.t = CategoryId.makeFromString("c1")
+
+let p1: CatalogSpec.ProductId.t = CatalogSpec.ProductId.makeFromString("p1")
+
+let anyDescription: string = "x"
+let consumerElectronics: string = "Consumer Electronics"
+let electronics: string = "Electronics"
+let gamingLaptop: string = "Gaming Laptop"
+let highEnd: string = "high-end"
+let laptop: string = "Laptop"
+let laptopDescription: string = "A laptop"
+let order1: string = "order-1"
+let order2: string = "order-2"
+let sku: string = "p-1"
+let usd: string = "USD"

package/lib/bs/tests/Catalog_Examples.res.mjs

@@ -0,0 +1,47 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as ProductId$CatalogSpec from "@reventlessdev/online-shop-dcb-catalog-spec/src/ProductId.res.mjs";
+import * as CategoryId$CatalogPlugin from "../src/Category/CategoryId.res.mjs";
+
+let c1 = CategoryId$CatalogPlugin.makeFromString("c1");
+
+let p1 = ProductId$CatalogSpec.makeFromString("p1");
+
+let anyDescription = "x";
+
+let consumerElectronics = "Consumer Electronics";
+
+let electronics = "Electronics";
+
+let gamingLaptop = "Gaming Laptop";
+
+let highEnd = "high-end";
+
+let laptop = "Laptop";
+
+let laptopDescription = "A laptop";
+
+let order1 = "order-1";
+
+let order2 = "order-2";
+
+let sku = "p-1";
+
+let usd = "USD";
+
+export {
+  c1,
+  p1,
+  anyDescription,
+  consumerElectronics,
+  electronics,
+  gamingLaptop,
+  highEnd,
+  laptop,
+  laptopDescription,
+  order1,
+  order2,
+  sku,
+  usd,
+}
+/* c1 Not a pure module */

package/lib/bs/tests/Category/StateChange/AddCategory_GWT.res

@@ -1,23 +1,26 @@
 @@reventless.gwt
 
-let catId = CategoryId.make
+open Catalog_Examples
 
 describe("AddCategory StateChangeSlice", () => {
+  // scenario-id: 47177361-8d6c-4779-a480-205c15f81cba
   test("empty event log produces CategoryAdded", () =>
     givenEvents([])
-    ->whenCmd(AddCategory({categoryId: catId("c1"), name: "Electronics"}))
-    ->thenEvent(CategoryAdded({categoryId: catId("c1"), name: "Electronics"}))
+    ->whenCmd(AddCategory({categoryId: c1, name: electronics}))
+    ->thenEvent(CategoryAdded({categoryId: c1, name: electronics}))
   )
 
+  // scenario-id: f992f21a-5262-460d-8cb5-525cb1f47535
   test("existing category returns CategoryAlreadyExists", () =>
     givenEvents([CategoryAdded])
-    ->whenCmd(AddCategory({categoryId: catId("c1"), name: "Electronics"}))
+    ->whenCmd(AddCategory({categoryId: c1, name: electronics}))
     ->thenError(CategoryAlreadyExists)
   )
 
+  // scenario-id: 2876b32e-3cf4-43e2-94b2-849a4b6ec1ef
   test("archived category still rejects new AddCategory", () =>
     givenEvents([CategoryAdded, CategoryArchived])
-    ->whenCmd(AddCategory({categoryId: catId("c1"), name: "Electronics"}))
+    ->whenCmd(AddCategory({categoryId: c1, name: electronics}))
     ->thenError(CategoryAlreadyExists)
   )
 })

package/lib/bs/tests/Category/StateChange/AddCategory_GWT.res.mjs

@@ -1,8 +1,8 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as CategoryId$CatalogPlugin from "../../../src/Category/CategoryId.res.mjs";
 import * as AddCategory$CatalogPlugin from "../../../src/Category/StateChange/AddCategory.res.mjs";
 import * as Behavior_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Behavior_GWT.res.mjs";
+import * as Catalog_Examples$CatalogPlugin from "../../Catalog_Examples.res.mjs";
 import * as AddCategory_Behavior$CatalogPlugin from "../../../src/Category/StateChange/AddCategory_Behavior.res.mjs";
 
 let include = Behavior_GWT$ReventlessGwt.Make({
@@ -32,25 +32,25 @@ let thenError = include.thenError;
 describe("AddCategory StateChangeSlice", () => {
   test("empty event log produces CategoryAdded", () => thenEvent(whenCmd(givenEvents([]), {
     TAG: "AddCategory",
-    categoryId: CategoryId$CatalogPlugin.make("c1"),
-    name: "Electronics"
+    categoryId: Catalog_Examples$CatalogPlugin.c1,
+    name: Catalog_Examples$CatalogPlugin.electronics
   }), {
     TAG: "CategoryAdded",
-    categoryId: CategoryId$CatalogPlugin.make("c1"),
-    name: "Electronics"
+    categoryId: Catalog_Examples$CatalogPlugin.c1,
+    name: Catalog_Examples$CatalogPlugin.electronics
   }));
   test("existing category returns CategoryAlreadyExists", () => thenError(whenCmd(givenEvents(["CategoryAdded"]), {
     TAG: "AddCategory",
-    categoryId: CategoryId$CatalogPlugin.make("c1"),
-    name: "Electronics"
+    categoryId: Catalog_Examples$CatalogPlugin.c1,
+    name: Catalog_Examples$CatalogPlugin.electronics
   }), "CategoryAlreadyExists"));
   test("archived category still rejects new AddCategory", () => thenError(whenCmd(givenEvents([
     "CategoryAdded",
     "CategoryArchived"
   ]), {
     TAG: "AddCategory",
-    categoryId: CategoryId$CatalogPlugin.make("c1"),
-    name: "Electronics"
+    categoryId: Catalog_Examples$CatalogPlugin.c1,
+    name: Catalog_Examples$CatalogPlugin.electronics
   }), "CategoryAlreadyExists"));
 });
 
@@ -70,8 +70,6 @@ let thenAppendsConditionedOn = include.thenAppendsConditionedOn;
 
 let thenAppendsConditionedOnExactly = include.thenAppendsConditionedOnExactly;
 
-let catId = CategoryId$CatalogPlugin.make;
-
 export {
   Spec,
   describe,
@@ -87,6 +85,5 @@ export {
   thenError,
   thenAppendsConditionedOn,
   thenAppendsConditionedOnExactly,
-  catId,
 }
 /* include Not a pure module */

package/lib/bs/tests/Category/StateChange/ArchiveCategory_GWT.res

@@ -1,23 +1,26 @@
 @@reventless.gwt
 
-let catId = CategoryId.make
+open Catalog_Examples
 
 describe("ArchiveCategory StateChangeSlice", () => {
+  // scenario-id: 49ce0e1d-9e21-4883-b59a-86951fd8ff07
   test("non-existent category returns CategoryNotFound", () =>
     givenEvents([])
-    ->whenCmd(ArchiveCategory({categoryId: catId("c1")}))
+    ->whenCmd(ArchiveCategory({categoryId: c1}))
     ->thenError(CategoryNotFound)
   )
 
+  // scenario-id: b424296a-dd52-469a-90af-76a2a5a6edab
   test("existing active category produces CategoryArchived", () =>
     givenEvents([CategoryAdded])
-    ->whenCmd(ArchiveCategory({categoryId: catId("c1")}))
-    ->thenEvent(CategoryArchived({categoryId: catId("c1")}))
+    ->whenCmd(ArchiveCategory({categoryId: c1}))
+    ->thenEvent(CategoryArchived({categoryId: c1}))
   )
 
+  // scenario-id: ad141ffb-7abc-4fbc-8450-195851a2e44d
   test("already archived category produces no events (idempotent)", () =>
     givenEvents([CategoryAdded, CategoryArchived])
-    ->whenCmd(ArchiveCategory({categoryId: catId("c1")}))
+    ->whenCmd(ArchiveCategory({categoryId: c1}))
     ->thenNoEvent
   )
 })

package/lib/bs/tests/Category/StateChange/ArchiveCategory_GWT.res.mjs

@@ -1,8 +1,8 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as CategoryId$CatalogPlugin from "../../../src/Category/CategoryId.res.mjs";
 import * as Behavior_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Behavior_GWT.res.mjs";
 import * as ArchiveCategory$CatalogPlugin from "../../../src/Category/StateChange/ArchiveCategory.res.mjs";
+import * as Catalog_Examples$CatalogPlugin from "../../Catalog_Examples.res.mjs";
 import * as ArchiveCategory_Behavior$CatalogPlugin from "../../../src/Category/StateChange/ArchiveCategory_Behavior.res.mjs";
 
 let include = Behavior_GWT$ReventlessGwt.Make({
@@ -34,21 +34,21 @@ let thenError = include.thenError;
 describe("ArchiveCategory StateChangeSlice", () => {
   test("non-existent category returns CategoryNotFound", () => thenError(whenCmd(givenEvents([]), {
     TAG: "ArchiveCategory",
-    categoryId: CategoryId$CatalogPlugin.make("c1")
+    categoryId: Catalog_Examples$CatalogPlugin.c1
   }), "CategoryNotFound"));
   test("existing active category produces CategoryArchived", () => thenEvent(whenCmd(givenEvents(["CategoryAdded"]), {
     TAG: "ArchiveCategory",
-    categoryId: CategoryId$CatalogPlugin.make("c1")
+    categoryId: Catalog_Examples$CatalogPlugin.c1
   }), {
     TAG: "CategoryArchived",
-    categoryId: CategoryId$CatalogPlugin.make("c1")
+    categoryId: Catalog_Examples$CatalogPlugin.c1
   }));
   test("already archived category produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([
     "CategoryAdded",
     "CategoryArchived"
   ]), {
     TAG: "ArchiveCategory",
-    categoryId: CategoryId$CatalogPlugin.make("c1")
+    categoryId: Catalog_Examples$CatalogPlugin.c1
   })));
 });
 
@@ -66,8 +66,6 @@ let thenAppendsConditionedOn = include.thenAppendsConditionedOn;
 
 let thenAppendsConditionedOnExactly = include.thenAppendsConditionedOnExactly;
 
-let catId = CategoryId$CatalogPlugin.make;
-
 export {
   Spec,
   describe,
@@ -83,6 +81,5 @@ export {
   thenError,
   thenAppendsConditionedOn,
   thenAppendsConditionedOnExactly,
-  catId,
 }
 /* include Not a pure module */

package/lib/bs/tests/Category/StateChange/RenameCategory_GWT.res

@@ -1,29 +1,33 @@
 @@reventless.gwt
 
-let catId = CategoryId.make
+open Catalog_Examples
 
 describe("RenameCategory StateChangeSlice", () => {
+  // scenario-id: 510ec7f6-4a46-4807-ba06-0cbf43eed254
   test("non-existent category returns CategoryNotFound", () =>
     givenEvents([])
-    ->whenCmd(RenameCategory({categoryId: catId("c1"), name: "Consumer Electronics"}))
+    ->whenCmd(RenameCategory({categoryId: c1, name: consumerElectronics}))
     ->thenError(CategoryNotFound)
   )
 
+  // scenario-id: 29ecdd5f-5225-438d-8129-1e3f0a1a978d
   test("existing active category produces CategoryRenamed", () =>
-    givenEvents([CategoryAdded({name: "Electronics"})])
-    ->whenCmd(RenameCategory({categoryId: catId("c1"), name: "Consumer Electronics"}))
-    ->thenEvent(CategoryRenamed({categoryId: catId("c1"), name: "Consumer Electronics"}))
+    givenEvents([CategoryAdded({name: electronics})])
+    ->whenCmd(RenameCategory({categoryId: c1, name: consumerElectronics}))
+    ->thenEvent(CategoryRenamed({categoryId: c1, name: consumerElectronics}))
   )
 
+  // scenario-id: 4fd166f6-e9de-4872-8aa5-e7b89b95288f
   test("renaming to the current name produces no events (idempotent)", () =>
-    givenEvents([CategoryAdded({name: "Electronics"})])
-    ->whenCmd(RenameCategory({categoryId: catId("c1"), name: "Electronics"}))
+    givenEvents([CategoryAdded({name: electronics})])
+    ->whenCmd(RenameCategory({categoryId: c1, name: electronics}))
     ->thenNoEvent
   )
 
+  // scenario-id: a2323466-eec1-42c7-86ad-26a2bcc811d3
   test("archived category returns CategoryAlreadyArchived", () =>
-    givenEvents([CategoryAdded({name: "Electronics"}), CategoryArchived])
-    ->whenCmd(RenameCategory({categoryId: catId("c1"), name: "Consumer Electronics"}))
+    givenEvents([CategoryAdded({name: electronics}), CategoryArchived])
+    ->whenCmd(RenameCategory({categoryId: c1, name: consumerElectronics}))
     ->thenError(CategoryAlreadyArchived)
   )
 })

package/lib/bs/tests/Category/StateChange/RenameCategory_GWT.res.mjs

@@ -1,8 +1,8 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as CategoryId$CatalogPlugin from "../../../src/Category/CategoryId.res.mjs";
 import * as Behavior_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Behavior_GWT.res.mjs";
 import * as RenameCategory$CatalogPlugin from "../../../src/Category/StateChange/RenameCategory.res.mjs";
+import * as Catalog_Examples$CatalogPlugin from "../../Catalog_Examples.res.mjs";
 import * as RenameCategory_Behavior$CatalogPlugin from "../../../src/Category/StateChange/RenameCategory_Behavior.res.mjs";
 
 let include = Behavior_GWT$ReventlessGwt.Make({
@@ -34,39 +34,39 @@ let thenError = include.thenError;
 describe("RenameCategory StateChangeSlice", () => {
   test("non-existent category returns CategoryNotFound", () => thenError(whenCmd(givenEvents([]), {
     TAG: "RenameCategory",
-    categoryId: CategoryId$CatalogPlugin.make("c1"),
-    name: "Consumer Electronics"
+    categoryId: Catalog_Examples$CatalogPlugin.c1,
+    name: Catalog_Examples$CatalogPlugin.consumerElectronics
   }), "CategoryNotFound"));
   test("existing active category produces CategoryRenamed", () => thenEvent(whenCmd(givenEvents([{
       TAG: "CategoryAdded",
-      name: "Electronics"
+      name: Catalog_Examples$CatalogPlugin.electronics
     }]), {
     TAG: "RenameCategory",
-    categoryId: CategoryId$CatalogPlugin.make("c1"),
-    name: "Consumer Electronics"
+    categoryId: Catalog_Examples$CatalogPlugin.c1,
+    name: Catalog_Examples$CatalogPlugin.consumerElectronics
   }), {
     TAG: "CategoryRenamed",
-    categoryId: CategoryId$CatalogPlugin.make("c1"),
-    name: "Consumer Electronics"
+    categoryId: Catalog_Examples$CatalogPlugin.c1,
+    name: Catalog_Examples$CatalogPlugin.consumerElectronics
   }));
   test("renaming to the current name produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([{
       TAG: "CategoryAdded",
-      name: "Electronics"
+      name: Catalog_Examples$CatalogPlugin.electronics
     }]), {
     TAG: "RenameCategory",
-    categoryId: CategoryId$CatalogPlugin.make("c1"),
-    name: "Electronics"
+    categoryId: Catalog_Examples$CatalogPlugin.c1,
+    name: Catalog_Examples$CatalogPlugin.electronics
   })));
   test("archived category returns CategoryAlreadyArchived", () => thenError(whenCmd(givenEvents([
     {
       TAG: "CategoryAdded",
-      name: "Electronics"
+      name: Catalog_Examples$CatalogPlugin.electronics
     },
     "CategoryArchived"
   ]), {
     TAG: "RenameCategory",
-    categoryId: CategoryId$CatalogPlugin.make("c1"),
-    name: "Consumer Electronics"
+    categoryId: Catalog_Examples$CatalogPlugin.c1,
+    name: Catalog_Examples$CatalogPlugin.consumerElectronics
   }), "CategoryAlreadyArchived"));
 });
 
@@ -84,8 +84,6 @@ let thenAppendsConditionedOn = include.thenAppendsConditionedOn;
 
 let thenAppendsConditionedOnExactly = include.thenAppendsConditionedOnExactly;
 
-let catId = CategoryId$CatalogPlugin.make;
-
 export {
   Spec,
   describe,
@@ -101,6 +99,5 @@ export {
   thenError,
   thenAppendsConditionedOn,
   thenAppendsConditionedOnExactly,
-  catId,
 }
 /* include Not a pure module */

package/lib/bs/tests/Category/StateView/Categories_GWT.res

@@ -1,26 +1,26 @@
 @@reventless.gwt
 
-let catId = CategoryId.make
+open Catalog_Examples
 
 describe("Categories StateViewSlice", () => {
+  // scenario-id: 37a3e157-7469-49fe-8b4d-f15f8f2a5cbf
   test("CategoryAdded creates a row", () =>
     givenEvents([])
-    ->whenEvent(CategoryAdded({categoryId: catId("c1"), name: "Electronics"}))
-    ->thenStateWithId("c1", {categoryId: catId("c1"), name: "Electronics", archived: false})
+    ->whenEvent(CategoryAdded({categoryId: c1, name: electronics}))
+    ->thenStateWithId("c1", {categoryId: c1, name: electronics, archived: false})
   )
 
+  // scenario-id: 90fbd54b-775c-4b15-b5c8-97daf7097677
   test("CategoryRenamed updates the name", () =>
-    givenEvents([CategoryAdded({categoryId: catId("c1"), name: "Electronics"})])
-    ->whenEvent(CategoryRenamed({categoryId: catId("c1"), name: "Consumer Electronics"}))
-    ->thenStateWithId(
-      "c1",
-      {categoryId: catId("c1"), name: "Consumer Electronics", archived: false},
-    )
+    givenEvents([CategoryAdded({categoryId: c1, name: electronics})])
+    ->whenEvent(CategoryRenamed({categoryId: c1, name: consumerElectronics}))
+    ->thenStateWithId("c1", {categoryId: c1, name: consumerElectronics, archived: false})
   )
 
+  // scenario-id: aeb0935e-631a-424f-b8ab-df8276a3dc15
   test("CategoryArchived sets archived flag", () =>
-    givenEvents([CategoryAdded({categoryId: catId("c1"), name: "Electronics"})])
-    ->whenEvent(CategoryArchived({categoryId: catId("c1")}))
-    ->thenStateWithId("c1", {categoryId: catId("c1"), name: "Electronics", archived: true})
+    givenEvents([CategoryAdded({categoryId: c1, name: electronics})])
+    ->whenEvent(CategoryArchived({categoryId: c1}))
+    ->thenStateWithId("c1", {categoryId: c1, name: electronics, archived: true})
   )
 })