@reventlessdev/online-shop-dcb-ordering 1.0.0-alpha.103

package/tests/Customer/StateChangeSlice/ChangeAddress_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 ChangeAddress$OrderingPlugin from "../../../src/Customer/StateChangeSlice/ChangeAddress.res.mjs";
+import * as ChangeAddress_Behavior$OrderingPlugin from "../../../src/Customer/StateChangeSlice/ChangeAddress_Behavior.res.mjs";
+
+let include = Behavior_GWT$ReventlessGwt.Make({
+  name: ChangeAddress$OrderingPlugin.name,
+  consumedEventSchema: ChangeAddress$OrderingPlugin.consumedEventSchema,
+  commandSchema: ChangeAddress$OrderingPlugin.commandSchema,
+  errorSchema: ChangeAddress$OrderingPlugin.errorSchema,
+  eventSchema: ChangeAddress$OrderingPlugin.eventSchema
+})({
+  initialState: ChangeAddress_Behavior$OrderingPlugin.initialState,
+  evolve: ChangeAddress_Behavior$OrderingPlugin.evolve,
+  decide: ChangeAddress_Behavior$OrderingPlugin.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("ChangeAddress StateChangeSlice", () => {
+  test("non-existent customer returns CustomerNotFound", () => thenError(whenCmd(givenEvents([]), {
+    TAG: "ChangeAddress",
+    customerId: "c1",
+    address: "789 Pine"
+  }), "CustomerNotFound"));
+  test("active customer produces AddressChanged", () => thenEvent(whenCmd(givenEvents([{
+      TAG: "CustomerRegistered",
+      address: "123 Main"
+    }]), {
+    TAG: "ChangeAddress",
+    customerId: "c1",
+    address: "789 Pine"
+  }), {
+    TAG: "AddressChanged",
+    customerId: "c1",
+    address: "789 Pine"
+  }));
+  test("same address produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([{
+      TAG: "CustomerRegistered",
+      address: "123 Main"
+    }]), {
+    TAG: "ChangeAddress",
+    customerId: "c1",
+    address: "123 Main"
+  })));
+  test("deactivated customer returns CustomerAlreadyDeactivated", () => thenError(whenCmd(givenEvents([
+    {
+      TAG: "CustomerRegistered",
+      address: "123 Main"
+    },
+    "CustomerDeactivated"
+  ]), {
+    TAG: "ChangeAddress",
+    customerId: "c1",
+    address: "789 Pine"
+  }), "CustomerAlreadyDeactivated"));
+});
+
+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/Customer/StateChangeSlice/ChangeEmail_GWT.res

@@ -0,0 +1,27 @@
+@@reventless.gwt
+
+describe("ChangeEmail StateChangeSlice", () => {
+  test("non-existent customer returns CustomerNotFound", () =>
+    givenEvents([])
+    ->whenCmd(ChangeEmail({customerId: "c1", email: "alice2@x.y"}))
+    ->thenError(CustomerNotFound)
+  )
+
+  test("active customer produces EmailChanged", () =>
+    givenEvents([CustomerRegistered({email: "alice@x.y"})])
+    ->whenCmd(ChangeEmail({customerId: "c1", email: "alice2@x.y"}))
+    ->thenEvent(EmailChanged({customerId: "c1", email: "alice2@x.y"}))
+  )
+
+  test("same email produces no events (idempotent)", () =>
+    givenEvents([CustomerRegistered({email: "alice@x.y"})])
+    ->whenCmd(ChangeEmail({customerId: "c1", email: "alice@x.y"}))
+    ->thenNoEvent
+  )
+
+  test("deactivated customer returns CustomerAlreadyDeactivated", () =>
+    givenEvents([CustomerRegistered({email: "alice@x.y"}), CustomerDeactivated])
+    ->whenCmd(ChangeEmail({customerId: "c1", email: "alice2@x.y"}))
+    ->thenError(CustomerAlreadyDeactivated)
+  )
+})

package/tests/Customer/StateChangeSlice/ChangeEmail_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 ChangeEmail$OrderingPlugin from "../../../src/Customer/StateChangeSlice/ChangeEmail.res.mjs";
+import * as ChangeEmail_Behavior$OrderingPlugin from "../../../src/Customer/StateChangeSlice/ChangeEmail_Behavior.res.mjs";
+
+let include = Behavior_GWT$ReventlessGwt.Make({
+  name: ChangeEmail$OrderingPlugin.name,
+  consumedEventSchema: ChangeEmail$OrderingPlugin.consumedEventSchema,
+  commandSchema: ChangeEmail$OrderingPlugin.commandSchema,
+  errorSchema: ChangeEmail$OrderingPlugin.errorSchema,
+  eventSchema: ChangeEmail$OrderingPlugin.eventSchema
+})({
+  initialState: ChangeEmail_Behavior$OrderingPlugin.initialState,
+  evolve: ChangeEmail_Behavior$OrderingPlugin.evolve,
+  decide: ChangeEmail_Behavior$OrderingPlugin.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("ChangeEmail StateChangeSlice", () => {
+  test("non-existent customer returns CustomerNotFound", () => thenError(whenCmd(givenEvents([]), {
+    TAG: "ChangeEmail",
+    customerId: "c1",
+    email: "alice2@x.y"
+  }), "CustomerNotFound"));
+  test("active customer produces EmailChanged", () => thenEvent(whenCmd(givenEvents([{
+      TAG: "CustomerRegistered",
+      email: "alice@x.y"
+    }]), {
+    TAG: "ChangeEmail",
+    customerId: "c1",
+    email: "alice2@x.y"
+  }), {
+    TAG: "EmailChanged",
+    customerId: "c1",
+    email: "alice2@x.y"
+  }));
+  test("same email produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([{
+      TAG: "CustomerRegistered",
+      email: "alice@x.y"
+    }]), {
+    TAG: "ChangeEmail",
+    customerId: "c1",
+    email: "alice@x.y"
+  })));
+  test("deactivated customer returns CustomerAlreadyDeactivated", () => thenError(whenCmd(givenEvents([
+    {
+      TAG: "CustomerRegistered",
+      email: "alice@x.y"
+    },
+    "CustomerDeactivated"
+  ]), {
+    TAG: "ChangeEmail",
+    customerId: "c1",
+    email: "alice2@x.y"
+  }), "CustomerAlreadyDeactivated"));
+});
+
+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/Customer/StateChangeSlice/DeactivateCustomer_GWT.res

@@ -0,0 +1,21 @@
+@@reventless.gwt
+
+describe("DeactivateCustomer StateChangeSlice", () => {
+  test("non-existent customer returns CustomerNotFound", () =>
+    givenEvents([])
+    ->whenCmd(DeactivateCustomer({customerId: "c1"}))
+    ->thenError(CustomerNotFound)
+  )
+
+  test("existing customer produces CustomerDeactivated", () =>
+    givenEvents([CustomerRegistered])
+    ->whenCmd(DeactivateCustomer({customerId: "c1"}))
+    ->thenEvent(CustomerDeactivated({customerId: "c1"}))
+  )
+
+  test("already deactivated customer produces no events (idempotent)", () =>
+    givenEvents([CustomerRegistered, CustomerDeactivated])
+    ->whenCmd(DeactivateCustomer({customerId: "c1"}))
+    ->thenNoEvent
+  )
+})

package/tests/Customer/StateChangeSlice/DeactivateCustomer_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 DeactivateCustomer$OrderingPlugin from "../../../src/Customer/StateChangeSlice/DeactivateCustomer.res.mjs";
+import * as DeactivateCustomer_Behavior$OrderingPlugin from "../../../src/Customer/StateChangeSlice/DeactivateCustomer_Behavior.res.mjs";
+
+let include = Behavior_GWT$ReventlessGwt.Make({
+  name: DeactivateCustomer$OrderingPlugin.name,
+  consumedEventSchema: DeactivateCustomer$OrderingPlugin.consumedEventSchema,
+  commandSchema: DeactivateCustomer$OrderingPlugin.commandSchema,
+  errorSchema: DeactivateCustomer$OrderingPlugin.errorSchema,
+  eventSchema: DeactivateCustomer$OrderingPlugin.eventSchema
+})({
+  initialState: DeactivateCustomer_Behavior$OrderingPlugin.initialState,
+  evolve: DeactivateCustomer_Behavior$OrderingPlugin.evolve,
+  decide: DeactivateCustomer_Behavior$OrderingPlugin.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("DeactivateCustomer StateChangeSlice", () => {
+  test("non-existent customer returns CustomerNotFound", () => thenError(whenCmd(givenEvents([]), {
+    TAG: "DeactivateCustomer",
+    customerId: "c1"
+  }), "CustomerNotFound"));
+  test("existing customer produces CustomerDeactivated", () => thenEvent(whenCmd(givenEvents(["CustomerRegistered"]), {
+    TAG: "DeactivateCustomer",
+    customerId: "c1"
+  }), {
+    TAG: "CustomerDeactivated",
+    customerId: "c1"
+  }));
+  test("already deactivated customer produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([
+    "CustomerRegistered",
+    "CustomerDeactivated"
+  ]), {
+    TAG: "DeactivateCustomer",
+    customerId: "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/tests/Customer/StateChangeSlice/RegisterCustomer_GWT.res

@@ -0,0 +1,21 @@
+@@reventless.gwt
+
+describe("RegisterCustomer StateChangeSlice", () => {
+  test("empty event log produces CustomerRegistered", () =>
+    givenEvents([])
+    ->whenCmd(
+      RegisterCustomer({customerId: "c1", email: "alice@x.y", address: "123 Main"}),
+    )
+    ->thenEvent(
+      CustomerRegistered({customerId: "c1", email: "alice@x.y", address: "123 Main"}),
+    )
+  )
+
+  test("existing customer returns CustomerAlreadyRegistered", () =>
+    givenEvents([CustomerRegistered])
+    ->whenCmd(
+      RegisterCustomer({customerId: "c1", email: "bob@x.y", address: "456 Oak"}),
+    )
+    ->thenError(CustomerAlreadyRegistered)
+  )
+})

package/tests/Customer/StateChangeSlice/RegisterCustomer_GWT.res.mjs

@@ -0,0 +1,83 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Behavior_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Behavior_GWT.res.mjs";
+import * as RegisterCustomer$OrderingPlugin from "../../../src/Customer/StateChangeSlice/RegisterCustomer.res.mjs";
+import * as RegisterCustomer_Behavior$OrderingPlugin from "../../../src/Customer/StateChangeSlice/RegisterCustomer_Behavior.res.mjs";
+
+let include = Behavior_GWT$ReventlessGwt.Make({
+  name: RegisterCustomer$OrderingPlugin.name,
+  consumedEventSchema: RegisterCustomer$OrderingPlugin.consumedEventSchema,
+  commandSchema: RegisterCustomer$OrderingPlugin.commandSchema,
+  errorSchema: RegisterCustomer$OrderingPlugin.errorSchema,
+  eventSchema: RegisterCustomer$OrderingPlugin.eventSchema
+})({
+  initialState: RegisterCustomer_Behavior$OrderingPlugin.initialState,
+  evolve: RegisterCustomer_Behavior$OrderingPlugin.evolve,
+  decide: RegisterCustomer_Behavior$OrderingPlugin.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("RegisterCustomer StateChangeSlice", () => {
+  test("empty event log produces CustomerRegistered", () => thenEvent(whenCmd(givenEvents([]), {
+    TAG: "RegisterCustomer",
+    customerId: "c1",
+    email: "alice@x.y",
+    address: "123 Main"
+  }), {
+    TAG: "CustomerRegistered",
+    customerId: "c1",
+    email: "alice@x.y",
+    address: "123 Main"
+  }));
+  test("existing customer returns CustomerAlreadyRegistered", () => thenError(whenCmd(givenEvents(["CustomerRegistered"]), {
+    TAG: "RegisterCustomer",
+    customerId: "c1",
+    email: "bob@x.y",
+    address: "456 Oak"
+  }), "CustomerAlreadyRegistered"));
+});
+
+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/tests/Customer/StateViewSlice/Customers_GWT.res

@@ -0,0 +1,45 @@
+@@reventless.gwt
+
+describe("Customers StateViewSlice", () => {
+  test("CustomerRegistered creates a row", () =>
+    givenEvents([])
+    ->whenEvent(CustomerRegistered({customerId: "c1", email: "alice@x.y", address: "123 Main"}))
+    ->thenStateWithId(
+      "c1",
+      {customerId: "c1", email: "alice@x.y", address: "123 Main", deactivated: false},
+    )
+  )
+
+  test("EmailChanged updates the email", () =>
+    givenEvents([
+      CustomerRegistered({customerId: "c1", email: "alice@x.y", address: "123 Main"}),
+    ])
+    ->whenEvent(EmailChanged({customerId: "c1", email: "alice2@x.y"}))
+    ->thenStateWithId(
+      "c1",
+      {customerId: "c1", email: "alice2@x.y", address: "123 Main", deactivated: false},
+    )
+  )
+
+  test("AddressChanged updates the address", () =>
+    givenEvents([
+      CustomerRegistered({customerId: "c1", email: "alice@x.y", address: "123 Main"}),
+    ])
+    ->whenEvent(AddressChanged({customerId: "c1", address: "789 Pine"}))
+    ->thenStateWithId(
+      "c1",
+      {customerId: "c1", email: "alice@x.y", address: "789 Pine", deactivated: false},
+    )
+  )
+
+  test("CustomerDeactivated sets deactivated flag", () =>
+    givenEvents([
+      CustomerRegistered({customerId: "c1", email: "alice@x.y", address: "123 Main"}),
+    ])
+    ->whenEvent(CustomerDeactivated({customerId: "c1"}))
+    ->thenStateWithId(
+      "c1",
+      {customerId: "c1", email: "alice@x.y", address: "123 Main", deactivated: true},
+    )
+  )
+})

package/tests/Customer/StateViewSlice/Customers_GWT.res.mjs

@@ -0,0 +1,124 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Customers$OrderingPlugin from "../../../src/Customer/StateViewSlice/Customers.res.mjs";
+import * as Projection_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Projection_GWT.res.mjs";
+import * as Customers_Projection$OrderingPlugin from "../../../src/Customer/StateViewSlice/Customers_Projection.res.mjs";
+
+let include = Projection_GWT$ReventlessGwt.Make({
+  name: Customers$OrderingPlugin.name,
+  stateSchema: Customers$OrderingPlugin.stateSchema,
+  consumedEventSchema: Customers$OrderingPlugin.consumedEventSchema,
+  subIdConfig: undefined
+})({
+  project: Customers_Projection$OrderingPlugin.project
+});
+
+let describe = include.describe;
+
+let test = include.test;
+
+let givenEvents = include.givenEvents;
+
+let whenEvent = include.whenEvent;
+
+let thenStateWithId = include.thenStateWithId;
+
+describe("Customers StateViewSlice", () => {
+  test("CustomerRegistered creates a row", undefined, () => thenStateWithId(whenEvent(givenEvents([]), {
+    TAG: "CustomerRegistered",
+    customerId: "c1",
+    email: "alice@x.y",
+    address: "123 Main"
+  }), "c1", {
+    customerId: "c1",
+    email: "alice@x.y",
+    address: "123 Main",
+    deactivated: false
+  }));
+  test("EmailChanged updates the email", undefined, () => thenStateWithId(whenEvent(givenEvents([{
+      TAG: "CustomerRegistered",
+      customerId: "c1",
+      email: "alice@x.y",
+      address: "123 Main"
+    }]), {
+    TAG: "EmailChanged",
+    customerId: "c1",
+    email: "alice2@x.y"
+  }), "c1", {
+    customerId: "c1",
+    email: "alice2@x.y",
+    address: "123 Main",
+    deactivated: false
+  }));
+  test("AddressChanged updates the address", undefined, () => thenStateWithId(whenEvent(givenEvents([{
+      TAG: "CustomerRegistered",
+      customerId: "c1",
+      email: "alice@x.y",
+      address: "123 Main"
+    }]), {
+    TAG: "AddressChanged",
+    customerId: "c1",
+    address: "789 Pine"
+  }), "c1", {
+    customerId: "c1",
+    email: "alice@x.y",
+    address: "789 Pine",
+    deactivated: false
+  }));
+  test("CustomerDeactivated sets deactivated flag", undefined, () => thenStateWithId(whenEvent(givenEvents([{
+      TAG: "CustomerRegistered",
+      customerId: "c1",
+      email: "alice@x.y",
+      address: "123 Main"
+    }]), {
+    TAG: "CustomerDeactivated",
+    customerId: "c1"
+  }), "c1", {
+    customerId: "c1",
+    email: "alice@x.y",
+    address: "123 Main",
+    deactivated: 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/Products_Extension_GWT.res

@@ -0,0 +1,23 @@
+// Boundary GWT for Ordering's Products extension: public Catalog events become
+// SyncCatalogProduct commands on Ordering's local shadow slice.
+@@reventless.gwt
+
+// `Mapping` is brought into scope by the PPX `open Products_Extension`; opening
+// it surfaces the extension point's events and the delegate's commands.
+open Mapping
+
+describe("Products Extension delegate", () => {
+  test("ProductBecameAvailable issues SyncNewProduct", () =>
+    whenIncomingEvent(
+      ExtensionPoint.ProductBecameAvailable({productId: "p1", name: "Book", price: 9.99}),
+    )->thenPublishesCommand(
+      Delegate.SyncNewProduct({productId: "p1", name: "Book", price: 9.99}),
+    )
+  )
+
+  test("ProductPriceChanged issues ChangeSyncedPrice", () =>
+    whenIncomingEvent(
+      ExtensionPoint.ProductPriceChanged({productId: "p1", price: 7.5}),
+    )->thenPublishesCommand(Delegate.ChangeSyncedPrice({productId: "p1", price: 7.5}))
+  )
+})