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

package/lib/bs/src/Product/StateViewSlice/Products_Projection.res.mjs

@@ -0,0 +1,66 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+
+function project(event) {
+  switch (event.TAG) {
+    case "ProductAdded" :
+      let productId = event.productId;
+      return [{
+          TAG: "Set",
+          _0: productId,
+          _1: {
+            productId: productId,
+            name: event.name,
+            description: event.description,
+            price: event.price
+          }
+        }];
+    case "ProductNameChanged" :
+      let name = event.name;
+      return [{
+          TAG: "Update",
+          _0: event.productId,
+          _1: state => ({
+            productId: state.productId,
+            name: name,
+            description: state.description,
+            price: state.price
+          })
+        }];
+    case "ProductDescriptionChanged" :
+      let description = event.description;
+      return [{
+          TAG: "Update",
+          _0: event.productId,
+          _1: state => ({
+            productId: state.productId,
+            name: state.name,
+            description: description,
+            price: state.price
+          })
+        }];
+    case "ProductPriceChanged" :
+      let price = event.price;
+      return [{
+          TAG: "Update",
+          _0: event.productId,
+          _1: state => ({
+            productId: state.productId,
+            name: state.name,
+            description: state.description,
+            price: price
+          })
+        }];
+  }
+}
+
+let Spec;
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-catalog/src/Product/StateViewSlice/Products_Projection.res.mjs";
+
+export {
+  Spec,
+  project,
+  moduleUrl,
+}
+/* No side effect */

package/lib/bs/src/Task/ImportProducts.res

@@ -0,0 +1,57 @@
+// Import products from supplier JSON files uploaded to S3.
+// Each row is forwarded as `externalInput` to the ImportProduct
+// InboundTranslationSlice, which validates and translates to an AddProduct
+// command. Style purity: the Task drives a DCB slice, not an aggregate.
+
+@@reventless.task
+
+let importCallback = (~eventName, ~key) => {
+  if eventName->String.includes("ObjectCreated") {
+    Console.log("[ImportProducts] Processing file: " ++ key)
+
+    let meta: Message.meta = {
+      service: "ImportProducts",
+      time: Date.now()->Float.toString,
+      ip: "",
+      user: "system",
+      msgId: key,
+      correlationId: key,
+    }
+
+    // Stub demo payload — in a real implementation the bucket key would be
+    // fetched and parsed. We push a hard-coded supplier line through the
+    // InboundTranslationSlice so the wire-up is exercised end-to-end.
+    let demoInput: ImportProduct.externalInput = {
+      sku: key,
+      title: "Imported Product",
+      desc: "Imported from " ++ key,
+      unitPrice: 999,
+      currency: "USD",
+    }
+
+    [
+      Task.PublishCommands(
+        ImportProduct.name,
+        [
+          {
+            id: key,
+            meta,
+            commandJson: demoInput->Message.encode(ImportProduct.externalInputSchema),
+          },
+        ],
+      ),
+    ]->Promise.resolve
+  } else {
+    []->Promise.resolve
+  }
+}
+
+let setup = (_queryEngine, _queryBucketName, _opts) => {
+  Task.buckets: [
+    {
+      bucketName: "product-imports",
+      bucketMode: Task.Read,
+      callback: importCallback,
+    },
+  ],
+}

package/lib/bs/src/Task/ImportProducts.res.mjs

@@ -0,0 +1,61 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Message$Reventless from "@reventlessdev/reventless-spec/src/types/Message.res.mjs";
+import * as ImportProduct$CatalogPlugin from "../Product/InboundTranslationSlice/ImportProduct.res.mjs";
+
+function importCallback(eventName, key) {
+  if (!eventName.includes("ObjectCreated")) {
+    return Promise.resolve([]);
+  }
+  console.log("[ImportProducts] Processing file: " + key);
+  let meta_time = Date.now().toString();
+  let meta_ip = "";
+  let meta_user = "system";
+  let meta = {
+    service: "ImportProducts",
+    time: meta_time,
+    ip: meta_ip,
+    user: meta_user,
+    msgId: key,
+    correlationId: key
+  };
+  let demoInput_desc = "Imported from " + key;
+  let demoInput = {
+    sku: key,
+    title: "Imported Product",
+    desc: demoInput_desc,
+    unitPrice: 999,
+    currency: "USD"
+  };
+  return Promise.resolve([{
+      TAG: "PublishCommands",
+      _0: ImportProduct$CatalogPlugin.name,
+      _1: [{
+          id: key,
+          meta: meta,
+          commandJson: Message$Reventless.encode(demoInput, ImportProduct$CatalogPlugin.externalInputSchema)
+        }]
+    }]);
+}
+
+function setup(_queryEngine, _queryBucketName, _opts) {
+  return {
+    buckets: [{
+        bucketName: "product-imports",
+        bucketMode: "Read",
+        callback: importCallback
+      }]
+  };
+}
+
+let name = "ImportProducts";
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-catalog/src/Task/ImportProducts.res.mjs";
+
+export {
+  name,
+  importCallback,
+  setup,
+  moduleUrl,
+}
+/* Message-Reventless Not a pure module */

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

@@ -0,0 +1,21 @@
+@@reventless.gwt
+
+describe("AddCategory StateChangeSlice", () => {
+  test("empty event log produces CategoryAdded", () =>
+    givenEvents([])
+    ->whenCmd(AddCategory({categoryId: "c1", name: "Electronics"}))
+    ->thenEvent(CategoryAdded({categoryId: "c1", name: "Electronics"}))
+  )
+
+  test("existing category returns CategoryAlreadyExists", () =>
+    givenEvents([CategoryAdded])
+    ->whenCmd(AddCategory({categoryId: "c1", name: "Electronics"}))
+    ->thenError(CategoryAlreadyExists)
+  )
+
+  test("archived category still rejects new AddCategory", () =>
+    givenEvents([CategoryAdded, CategoryArchived])
+    ->whenCmd(AddCategory({categoryId: "c1", name: "Electronics"}))
+    ->thenError(CategoryAlreadyExists)
+  )
+})

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

@@ -0,0 +1,88 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as AddCategory$CatalogPlugin from "../../../src/Category/StateChangeSlice/AddCategory.res.mjs";
+import * as Behavior_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Behavior_GWT.res.mjs";
+import * as AddCategory_Behavior$CatalogPlugin from "../../../src/Category/StateChangeSlice/AddCategory_Behavior.res.mjs";
+
+let include = Behavior_GWT$ReventlessGwt.Make({
+  name: AddCategory$CatalogPlugin.name,
+  consumedEventSchema: AddCategory$CatalogPlugin.consumedEventSchema,
+  commandSchema: AddCategory$CatalogPlugin.commandSchema,
+  errorSchema: AddCategory$CatalogPlugin.errorSchema,
+  eventSchema: AddCategory$CatalogPlugin.eventSchema
+})({
+  initialState: AddCategory_Behavior$CatalogPlugin.initialState,
+  evolve: AddCategory_Behavior$CatalogPlugin.evolve,
+  decide: AddCategory_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("AddCategory StateChangeSlice", () => {
+  test("empty event log produces CategoryAdded", () => thenEvent(whenCmd(givenEvents([]), {
+    TAG: "AddCategory",
+    categoryId: "c1",
+    name: "Electronics"
+  }), {
+    TAG: "CategoryAdded",
+    categoryId: "c1",
+    name: "Electronics"
+  }));
+  test("existing category returns CategoryAlreadyExists", () => thenError(whenCmd(givenEvents(["CategoryAdded"]), {
+    TAG: "AddCategory",
+    categoryId: "c1",
+    name: "Electronics"
+  }), "CategoryAlreadyExists"));
+  test("archived category still rejects new AddCategory", () => thenError(whenCmd(givenEvents([
+    "CategoryAdded",
+    "CategoryArchived"
+  ]), {
+    TAG: "AddCategory",
+    categoryId: "c1",
+    name: "Electronics"
+  }), "CategoryAlreadyExists"));
+});
+
+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/lib/bs/tests/Category/StateChangeSlice/ArchiveCategory_GWT.res

@@ -0,0 +1,21 @@
+@@reventless.gwt
+
+describe("ArchiveCategory StateChangeSlice", () => {
+  test("non-existent category returns CategoryNotFound", () =>
+    givenEvents([])
+    ->whenCmd(ArchiveCategory({categoryId: "c1"}))
+    ->thenError(CategoryNotFound)
+  )
+
+  test("existing active category produces CategoryArchived", () =>
+    givenEvents([CategoryAdded])
+    ->whenCmd(ArchiveCategory({categoryId: "c1"}))
+    ->thenEvent(CategoryArchived({categoryId: "c1"}))
+  )
+
+  test("already archived category produces no events (idempotent)", () =>
+    givenEvents([CategoryAdded, CategoryArchived])
+    ->whenCmd(ArchiveCategory({categoryId: "c1"}))
+    ->thenNoEvent
+  )
+})

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

@@ -0,0 +1,84 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Behavior_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Behavior_GWT.res.mjs";
+import * as ArchiveCategory$CatalogPlugin from "../../../src/Category/StateChangeSlice/ArchiveCategory.res.mjs";
+import * as ArchiveCategory_Behavior$CatalogPlugin from "../../../src/Category/StateChangeSlice/ArchiveCategory_Behavior.res.mjs";
+
+let include = Behavior_GWT$ReventlessGwt.Make({
+  name: ArchiveCategory$CatalogPlugin.name,
+  consumedEventSchema: ArchiveCategory$CatalogPlugin.consumedEventSchema,
+  commandSchema: ArchiveCategory$CatalogPlugin.commandSchema,
+  errorSchema: ArchiveCategory$CatalogPlugin.errorSchema,
+  eventSchema: ArchiveCategory$CatalogPlugin.eventSchema
+})({
+  initialState: ArchiveCategory_Behavior$CatalogPlugin.initialState,
+  evolve: ArchiveCategory_Behavior$CatalogPlugin.evolve,
+  decide: ArchiveCategory_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("ArchiveCategory StateChangeSlice", () => {
+  test("non-existent category returns CategoryNotFound", () => thenError(whenCmd(givenEvents([]), {
+    TAG: "ArchiveCategory",
+    categoryId: "c1"
+  }), "CategoryNotFound"));
+  test("existing active category produces CategoryArchived", () => thenEvent(whenCmd(givenEvents(["CategoryAdded"]), {
+    TAG: "ArchiveCategory",
+    categoryId: "c1"
+  }), {
+    TAG: "CategoryArchived",
+    categoryId: "c1"
+  }));
+  test("already archived category produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([
+    "CategoryAdded",
+    "CategoryArchived"
+  ]), {
+    TAG: "ArchiveCategory",
+    categoryId: "c1"
+  })));
+});
+
+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/lib/bs/tests/Category/StateChangeSlice/RenameCategory_GWT.res

@@ -0,0 +1,27 @@
+@@reventless.gwt
+
+describe("RenameCategory StateChangeSlice", () => {
+  test("non-existent category returns CategoryNotFound", () =>
+    givenEvents([])
+    ->whenCmd(RenameCategory({categoryId: "c1", name: "Consumer Electronics"}))
+    ->thenError(CategoryNotFound)
+  )
+
+  test("existing active category produces CategoryRenamed", () =>
+    givenEvents([CategoryAdded({name: "Electronics"})])
+    ->whenCmd(RenameCategory({categoryId: "c1", name: "Consumer Electronics"}))
+    ->thenEvent(CategoryRenamed({categoryId: "c1", name: "Consumer Electronics"}))
+  )
+
+  test("renaming to the current name produces no events (idempotent)", () =>
+    givenEvents([CategoryAdded({name: "Electronics"})])
+    ->whenCmd(RenameCategory({categoryId: "c1", name: "Electronics"}))
+    ->thenNoEvent
+  )
+
+  test("archived category returns CategoryAlreadyArchived", () =>
+    givenEvents([CategoryAdded({name: "Electronics"}), CategoryArchived])
+    ->whenCmd(RenameCategory({categoryId: "c1", name: "Consumer Electronics"}))
+    ->thenError(CategoryAlreadyArchived)
+  )
+})

package/lib/bs/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("non-existent category returns CategoryNotFound", () => thenError(whenCmd(givenEvents([]), {
+    TAG: "RenameCategory",
+    categoryId: "c1",
+    name: "Consumer Electronics"
+  }), "CategoryNotFound"));
+  test("existing 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("renaming to the current name produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([{
+      TAG: "CategoryAdded",
+      name: "Electronics"
+    }]), {
+    TAG: "RenameCategory",
+    categoryId: "c1",
+    name: "Electronics"
+  })));
+  test("archived category returns CategoryAlreadyArchived", () => thenError(whenCmd(givenEvents([
+    {
+      TAG: "CategoryAdded",
+      name: "Electronics"
+    },
+    "CategoryArchived"
+  ]), {
+    TAG: "RenameCategory",
+    categoryId: "c1",
+    name: "Consumer Electronics"
+  }), "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/lib/bs/tests/Category/StateViewSlice/Categories_GWT.res

@@ -0,0 +1,21 @@
+@@reventless.gwt
+
+describe("Categories StateViewSlice", () => {
+  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})
+  )
+})