@reventlessdev/online-shop-aggregates-catalog 3.0.0-alpha.248 → 3.0.0-alpha.249

package/CHANGELOG.md

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

package/lib/bs/.compiler.log

@@ -1,2 +1,2 @@
-#Start(1790058025501)
-#Done(1790058029622)
+#Start(1790168165422)
+#Done(1790168171023)

package/lib/bs/CatalogPlugin.mlmap

@@ -1,4 +1,5 @@
 randjbuildsystem
+Catalog_Examples
 Categories
 Categories_GWT
 Categories_Projections

package/lib/bs/compiler-info.json

@@ -4,5 +4,5 @@
   "bsc_hash": "1006241435e8d5052329c523202a7fe6359a37e1e1688c023d37d6a7ebb5fb6d",
   "rescript_config_hash": "50d5358a2cbe328e82ae9b442e4615b86dbfe6b2ce05e9eca04a0c78da0e4708",
   "runtime_path": "/home/runner/work/reventless-core/reventless-core/node_modules/@rescript/runtime",
-  "generated_at": "1790058029631"
+  "generated_at": "1790168171026"
 }

package/lib/bs/tests/Catalog_Examples.res

@@ -0,0 +1,9 @@
+@@reventless.examples
+
+let electronics: string = "Electronics"
+let laptop: string = "Laptop"
+let laptopDescription: string = "A laptop"
+let laptopImage: string = "/productImages/laptop.jpg"
+let order1: string = "order-1"
+let order2: string = "order-2"
+let renamedTo: string = "New Name"

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

@@ -0,0 +1,27 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+
+let electronics = "Electronics";
+
+let laptop = "Laptop";
+
+let laptopDescription = "A laptop";
+
+let laptopImage = "/productImages/laptop.jpg";
+
+let order1 = "order-1";
+
+let order2 = "order-2";
+
+let renamedTo = "New Name";
+
+export {
+  electronics,
+  laptop,
+  laptopDescription,
+  laptopImage,
+  order1,
+  order2,
+  renamedTo,
+}
+/* No side effect */

package/lib/bs/tests/Category/Aggregate/Category_GWT.res

@@ -1,50 +1,60 @@
 @@reventless.gwt
 
+open Catalog_Examples
+
 describe("Category Behavior", () => {
+  // scenario-id: fb4b109a-87b5-4aa3-a8e2-4fca61d0c050
   test("Add on new aggregate produces Added", () =>
     givenEvents([])
-    ->whenCmd(Add({name: "Electronics"}))
-    ->thenEvent(Added({name: "Electronics"}))
+    ->whenCmd(Add({name: electronics}))
+    ->thenEvent(Added({name: electronics}))
   )
 
+  // scenario-id: a071dd62-8b9a-4fad-923a-6e740c4995dc
   test("Add on existing aggregate returns CategoryAlreadyExists", () =>
-    givenEvents([Added({name: "Electronics"})])
+    givenEvents([Added({name: electronics})])
     ->whenCmd(Add({name: "Electronics 2"}))
     ->thenError(CategoryAlreadyExists)
   )
 
+  // scenario-id: 0b4584cf-8399-4511-bedf-422ad0283251
   test("Rename on non-existent aggregate returns CategoryNotFound", () =>
     givenEvents([])
-    ->whenCmd(Rename({name: "New Name"}))
+    ->whenCmd(Rename({name: renamedTo}))
     ->thenError(CategoryNotFound)
   )
 
+  // scenario-id: 4115f220-9d7e-4b6a-bfd1-cc18a5c9916b
   test("Rename on active category produces Renamed", () =>
-    givenEvents([Added({name: "Electronics"})])
+    givenEvents([Added({name: electronics})])
     ->whenCmd(Rename({name: "Consumer Electronics"}))
     ->thenEvent(Renamed({name: "Consumer Electronics"}))
   )
 
+  // scenario-id: c703e462-c659-496d-a910-6d4507ac351e
   test("Rename to same name produces no events (idempotent)", () =>
-    givenEvents([Added({name: "Electronics"})])
-    ->whenCmd(Rename({name: "Electronics"}))
+    givenEvents([Added({name: electronics})])
+    ->whenCmd(Rename({name: electronics}))
     ->thenNoEvent
   )
 
+  // scenario-id: b164ce1f-5f38-4a36-a5c6-26c5491f3735
   test("Rename on archived category returns CategoryAlreadyArchived", () =>
-    givenEvents([Added({name: "Electronics"}), Archived])
-    ->whenCmd(Rename({name: "New Name"}))
+    givenEvents([Added({name: electronics}), Archived])
+    ->whenCmd(Rename({name: renamedTo}))
     ->thenError(CategoryAlreadyArchived)
   )
 
+  // scenario-id: a251a06c-44d3-403f-b5ed-664a94e78376
   test("Archive on active category produces Archived", () =>
-    givenEvents([Added({name: "Electronics"})])
+    givenEvents([Added({name: electronics})])
     ->whenCmd(Archive)
     ->thenEvent(Archived)
   )
 
+  // scenario-id: 4be3d8db-9f51-4967-8ac1-7862ab1a2436
   test("Archive on archived category produces no events (idempotent)", () =>
-    givenEvents([Added({name: "Electronics"}), Archived])
+    givenEvents([Added({name: electronics}), Archived])
     ->whenCmd(Archive)
     ->thenNoEvent
   )

package/lib/bs/tests/Category/Aggregate/Category_GWT.res.mjs

@@ -2,6 +2,7 @@
 
 import * as Category$CatalogPlugin from "../../../src/Category/Aggregate/Category.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 Category_Behavior$CatalogPlugin from "../../../src/Category/Aggregate/Category_Behavior.res.mjs";
 
 let include = Behavior_GWT$ReventlessGwt.MakeFromAggregate({
@@ -40,25 +41,25 @@ let thenError = include.thenError;
 describe("Category Behavior", () => {
   test("Add on new aggregate produces Added", () => thenEvent(whenCmd(givenEvents([]), {
     TAG: "Add",
-    name: "Electronics"
+    name: Catalog_Examples$CatalogPlugin.electronics
   }), {
     TAG: "Added",
-    name: "Electronics"
+    name: Catalog_Examples$CatalogPlugin.electronics
   }));
   test("Add on existing aggregate returns CategoryAlreadyExists", () => thenError(whenCmd(givenEvents([{
       TAG: "Added",
-      name: "Electronics"
+      name: Catalog_Examples$CatalogPlugin.electronics
     }]), {
     TAG: "Add",
     name: "Electronics 2"
   }), "CategoryAlreadyExists"));
   test("Rename on non-existent aggregate returns CategoryNotFound", () => thenError(whenCmd(givenEvents([]), {
     TAG: "Rename",
-    name: "New Name"
+    name: Catalog_Examples$CatalogPlugin.renamedTo
   }), "CategoryNotFound"));
   test("Rename on active category produces Renamed", () => thenEvent(whenCmd(givenEvents([{
       TAG: "Added",
-      name: "Electronics"
+      name: Catalog_Examples$CatalogPlugin.electronics
     }]), {
     TAG: "Rename",
     name: "Consumer Electronics"
@@ -68,29 +69,29 @@ describe("Category Behavior", () => {
   }));
   test("Rename to same name produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([{
       TAG: "Added",
-      name: "Electronics"
+      name: Catalog_Examples$CatalogPlugin.electronics
     }]), {
     TAG: "Rename",
-    name: "Electronics"
+    name: Catalog_Examples$CatalogPlugin.electronics
   })));
   test("Rename on archived category returns CategoryAlreadyArchived", () => thenError(whenCmd(givenEvents([
     {
       TAG: "Added",
-      name: "Electronics"
+      name: Catalog_Examples$CatalogPlugin.electronics
     },
     "Archived"
   ]), {
     TAG: "Rename",
-    name: "New Name"
+    name: Catalog_Examples$CatalogPlugin.renamedTo
   }), "CategoryAlreadyArchived"));
   test("Archive on active category produces Archived", () => thenEvent(whenCmd(givenEvents([{
       TAG: "Added",
-      name: "Electronics"
+      name: Catalog_Examples$CatalogPlugin.electronics
     }]), "Archive"), "Archived"));
   test("Archive on archived category produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([
     {
       TAG: "Added",
-      name: "Electronics"
+      name: Catalog_Examples$CatalogPlugin.electronics
     },
     "Archived"
   ]), "Archive")));

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

@@ -1,18 +1,21 @@
 @@reventless.gwt(Categories_Projections.CategoryMapping)
 
 describe("Categories ReadModel ← Category", () => {
+  // scenario-id: d3a10976-599d-4ced-b604-25f57a15d2db
   test("Added sets initial read model state", () =>
     givenEvents([])
     ->whenEvent(Category.Added({name: "Electronics"}))
     ->thenState({Categories.name: "Electronics", archived: false})
   )
 
+  // scenario-id: 700b948d-9773-4c84-90b4-8167c4240ce0
   test("Renamed updates the name", () =>
     givenEvents([Category.Added({name: "Electronics"})])
     ->whenEvent(Category.Renamed({name: "Consumer Electronics"}))
     ->thenState({Categories.name: "Consumer Electronics", archived: false})
   )
 
+  // scenario-id: 5ad0dd16-f778-4df9-b4cb-8f5b86548dbd
   test("Archived sets archived flag", () =>
     givenEvents([Category.Added({name: "Electronics"})])
     ->whenEvent(Category.Archived)

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

@@ -7,12 +7,14 @@
 open Mapping
 
 describe("Orders Extension delegate", () => {
+  // scenario-id: b0d0ddb4-b8a4-46c1-8e33-cc16498ebba8
   test("ItemOrdered records demand for the product", () =>
     whenIncomingEvent(
       ExtensionPoint.ItemOrdered({productId: "p1", orderId: "o1", customerId: "c1"}),
     )->thenPublishesAggregateCommand("p1", Delegate.Record({orderId: "o1"}))
   )
 
+  // scenario-id: b84d3667-cce1-4532-9fa3-702e43fb6c23
   test("ItemOrderCancelled revokes demand for the product", () =>
     whenIncomingEvent(
       ExtensionPoint.ItemOrderCancelled({productId: "p1", orderId: "o1"}),

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

@@ -5,6 +5,7 @@
 let gwtId = CatalogSpec.ProductId.make("gwt-id")
 
 describe("Products ExtensionPoint mapping", () => {
+  // scenario-id: 44692d81-7898-460c-9315-f4b13bd7876a
   test("Added publishes ProductBecameAvailable", () =>
     whenDelegateEvent(
       Delegate.Added({
@@ -19,6 +20,7 @@ describe("Products ExtensionPoint mapping", () => {
     )
   )
 
+  // scenario-id: 5d399774-d4db-4dd5-a36f-59c6efd6d33b
   test("PriceUpdated publishes ProductPriceChanged", () =>
     whenDelegateEvent(Delegate.PriceUpdated({price: 7.5}))->thenPublishesEvent(
       "gwt-id",
@@ -26,10 +28,12 @@ describe("Products ExtensionPoint mapping", () => {
     )
   )
 
+  // scenario-id: 3867eb1c-0b12-43df-8525-267e410b4d96
   test("NameUpdated publishes nothing", () =>
     whenDelegateEvent(Delegate.NameUpdated({name: "Better Book"}))->thenPublishesNothing
   )
 
+  // scenario-id: b42bf31d-fb05-4b2c-9d7b-393e46686a40
   test("DescriptionUpdated publishes nothing", () =>
     whenDelegateEvent(
       Delegate.DescriptionUpdated({description: "A really good book"}),

package/lib/bs/tests/Product/Aggregate/Product_GWT.res

@@ -1,5 +1,7 @@
 @@reventless.gwt
 
+open Catalog_Examples
+
 let added = Added({
   name: "Laptop",
   description: "A laptop",
@@ -8,19 +10,21 @@ let added = Added({
 })
 
 describe("Product Behavior", () => {
+  // scenario-id: 6126c93a-ba4e-4ce0-8d8e-654cf64cd8ba
   test("Add on new aggregate produces Added", () =>
     givenEvents([])
     ->whenCmd(
       Add({
-        name: "Laptop",
-        description: "A laptop",
+        name: laptop,
+        description: laptopDescription,
         price: 999.99,
-        imageUrl: "/productImages/laptop.jpg",
+        imageUrl: laptopImage,
       }),
     )
     ->thenEvent(added)
   )
 
+  // scenario-id: d26cb18d-cb83-4dfd-8c5c-437ba96db7fe
   test("Add on existing aggregate returns ProductAlreadyExists", () =>
     givenEvents([added])
     ->whenCmd(
@@ -34,67 +38,79 @@ describe("Product Behavior", () => {
     ->thenError(ProductAlreadyExists)
   )
 
+  // scenario-id: dcde1d71-c3c7-4ae8-8d2e-d92ccc9c7d64
   test("UpdateName on non-existent aggregate returns ProductNotFound", () =>
     givenEvents([])
-    ->whenCmd(UpdateName({name: "New Name"}))
+    ->whenCmd(UpdateName({name: renamedTo}))
     ->thenError(ProductNotFound)
   )
 
+  // scenario-id: f5245b0a-f5d3-4764-b855-357e54d61115
   test("UpdateName on existing product produces NameUpdated", () =>
     givenEvents([added])
     ->whenCmd(UpdateName({name: "Gaming Laptop"}))
     ->thenEvent(NameUpdated({name: "Gaming Laptop"}))
   )
 
+  // scenario-id: 39bf5156-c629-44cd-81bf-34b15a8d86b6
   test("UpdateName to same name produces no events (idempotent)", () =>
-    givenEvents([added])->whenCmd(UpdateName({name: "Laptop"}))->thenNoEvent
+    givenEvents([added])->whenCmd(UpdateName({name: laptop}))->thenNoEvent
   )
 
+  // scenario-id: b6864b7c-1040-4080-ad5b-7ffda32911f1
   test("UpdateDescription on non-existent aggregate returns ProductNotFound", () =>
     givenEvents([])
     ->whenCmd(UpdateDescription({description: "x"}))
     ->thenError(ProductNotFound)
   )
 
+  // scenario-id: 86557de4-56b3-4a05-8927-8cab2f2b35fe
   test("UpdateDescription on existing product produces DescriptionUpdated", () =>
     givenEvents([added])
     ->whenCmd(UpdateDescription({description: "A high-end laptop"}))
     ->thenEvent(DescriptionUpdated({description: "A high-end laptop"}))
   )
 
+  // scenario-id: 7cbdd22a-7839-4e52-9dc0-159f9b0a7b36
   test("UpdateDescription to same description produces no events (idempotent)", () =>
-    givenEvents([added])->whenCmd(UpdateDescription({description: "A laptop"}))->thenNoEvent
+    givenEvents([added])->whenCmd(UpdateDescription({description: laptopDescription}))->thenNoEvent
   )
 
+  // scenario-id: ec726191-3c04-45c4-a22b-fa4838746382
   test("UpdatePrice on non-existent aggregate returns ProductNotFound", () =>
     givenEvents([])->whenCmd(UpdatePrice({price: 1.0}))->thenError(ProductNotFound)
   )
 
+  // scenario-id: 6bda772b-cf1e-4518-8d38-95ec8475de32
   test("UpdatePrice on existing product produces PriceUpdated", () =>
     givenEvents([added])
     ->whenCmd(UpdatePrice({price: 899.99}))
     ->thenEvent(PriceUpdated({price: 899.99}))
   )
 
+  // scenario-id: ab5a7433-da99-4431-9da1-99448de475fd
   test("UpdatePrice to same price produces no events (idempotent)", () =>
     givenEvents([added])->whenCmd(UpdatePrice({price: 999.99}))->thenNoEvent
   )
 
+  // scenario-id: 992cdc4f-957f-4f4a-9838-9ba83f1855b0
   test("UpdateImage on non-existent aggregate returns ProductNotFound", () =>
     givenEvents([])
-    ->whenCmd(UpdateImage({imageUrl: "/productImages/laptop.jpg"}))
+    ->whenCmd(UpdateImage({imageUrl: laptopImage}))
     ->thenError(ProductNotFound)
   )
 
+  // scenario-id: ef70aef6-3d4f-4b7f-90ea-2413940879e0
   test("UpdateImage on existing product produces ImageUpdated", () =>
     givenEvents([added])
     ->whenCmd(UpdateImage({imageUrl: "/productImages/laptop-v2.jpg"}))
     ->thenEvent(ImageUpdated({imageUrl: "/productImages/laptop-v2.jpg"}))
   )
 
+  // scenario-id: 13499dc4-536c-491b-b3ff-b0bc9f879b10
   test("UpdateImage to the same ref produces no events (idempotent)", () =>
     givenEvents([added])
-    ->whenCmd(UpdateImage({imageUrl: "/productImages/laptop.jpg"}))
+    ->whenCmd(UpdateImage({imageUrl: laptopImage}))
     ->thenNoEvent
   )
 })

package/lib/bs/tests/Product/Aggregate/Product_GWT.res.mjs

@@ -2,6 +2,7 @@
 
 import * as Product$CatalogPlugin from "../../../src/Product/Aggregate/Product.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 Product_Behavior$CatalogPlugin from "../../../src/Product/Aggregate/Product_Behavior.res.mjs";
 
 let include = Behavior_GWT$ReventlessGwt.MakeFromAggregate({
@@ -48,10 +49,10 @@ let added = {
 describe("Product Behavior", () => {
   test("Add on new aggregate produces Added", () => thenEvent(whenCmd(givenEvents([]), {
     TAG: "Add",
-    name: "Laptop",
-    description: "A laptop",
+    name: Catalog_Examples$CatalogPlugin.laptop,
+    description: Catalog_Examples$CatalogPlugin.laptopDescription,
     price: 999.99,
-    imageUrl: "/productImages/laptop.jpg"
+    imageUrl: Catalog_Examples$CatalogPlugin.laptopImage
   }), added));
   test("Add on existing aggregate returns ProductAlreadyExists", () => thenError(whenCmd(givenEvents([added]), {
     TAG: "Add",
@@ -62,7 +63,7 @@ describe("Product Behavior", () => {
   }), "ProductAlreadyExists"));
   test("UpdateName on non-existent aggregate returns ProductNotFound", () => thenError(whenCmd(givenEvents([]), {
     TAG: "UpdateName",
-    name: "New Name"
+    name: Catalog_Examples$CatalogPlugin.renamedTo
   }), "ProductNotFound"));
   test("UpdateName on existing product produces NameUpdated", () => thenEvent(whenCmd(givenEvents([added]), {
     TAG: "UpdateName",
@@ -73,7 +74,7 @@ describe("Product Behavior", () => {
   }));
   test("UpdateName to same name produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([added]), {
     TAG: "UpdateName",
-    name: "Laptop"
+    name: Catalog_Examples$CatalogPlugin.laptop
   })));
   test("UpdateDescription on non-existent aggregate returns ProductNotFound", () => thenError(whenCmd(givenEvents([]), {
     TAG: "UpdateDescription",
@@ -88,7 +89,7 @@ describe("Product Behavior", () => {
   }));
   test("UpdateDescription to same description produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([added]), {
     TAG: "UpdateDescription",
-    description: "A laptop"
+    description: Catalog_Examples$CatalogPlugin.laptopDescription
   })));
   test("UpdatePrice on non-existent aggregate returns ProductNotFound", () => thenError(whenCmd(givenEvents([]), {
     TAG: "UpdatePrice",
@@ -107,7 +108,7 @@ describe("Product Behavior", () => {
   })));
   test("UpdateImage on non-existent aggregate returns ProductNotFound", () => thenError(whenCmd(givenEvents([]), {
     TAG: "UpdateImage",
-    imageUrl: "/productImages/laptop.jpg"
+    imageUrl: Catalog_Examples$CatalogPlugin.laptopImage
   }), "ProductNotFound"));
   test("UpdateImage on existing product produces ImageUpdated", () => thenEvent(whenCmd(givenEvents([added]), {
     TAG: "UpdateImage",
@@ -118,7 +119,7 @@ describe("Product Behavior", () => {
   }));
   test("UpdateImage to the same ref produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([added]), {
     TAG: "UpdateImage",
-    imageUrl: "/productImages/laptop.jpg"
+    imageUrl: Catalog_Examples$CatalogPlugin.laptopImage
   })));
 });
 

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

@@ -8,6 +8,7 @@ let added = Product.Added({
 })
 
 describe("Products ReadModel ← Product", () => {
+  // scenario-id: 81836c9a-93ca-4326-ad59-deceb23d8ab0
   test("Added sets initial read model state", () =>
     givenEvents([])
     ->whenEvent(added)
@@ -19,6 +20,7 @@ describe("Products ReadModel ← Product", () => {
     })
   )
 
+  // scenario-id: aaf1e1d4-f6b6-4d1d-904f-1cbb2e0af1dc
   test("NameUpdated updates the name", () =>
     givenEvents([added])
     ->whenEvent(Product.NameUpdated({name: "Gaming Laptop"}))
@@ -30,6 +32,7 @@ describe("Products ReadModel ← Product", () => {
     })
   )
 
+  // scenario-id: 30def838-8ffc-449c-be89-3632e993b1c7
   test("DescriptionUpdated updates the description", () =>
     givenEvents([added])
     ->whenEvent(Product.DescriptionUpdated({description: "A high-end laptop"}))
@@ -41,6 +44,7 @@ describe("Products ReadModel ← Product", () => {
     })
   )
 
+  // scenario-id: 087f6d0c-7258-4d90-a78e-90e0f2832f95
   test("PriceUpdated updates the price", () =>
     givenEvents([added])
     ->whenEvent(Product.PriceUpdated({price: 899.99}))
@@ -52,6 +56,7 @@ describe("Products ReadModel ← Product", () => {
     })
   )
 
+  // scenario-id: dbebb7b6-7db1-4405-8d4d-d5b5a6cc87df
   test("ImageUpdated updates the stored ref", () =>
     givenEvents([added])
     ->whenEvent(Product.ImageUpdated({imageUrl: "/productImages/laptop-v2.jpg"}))