@reventlessdev/online-shop-aggregates-ordering 3.0.0-alpha.101

package/lib/bs/tests/CatalogProduct/ReadModel/AvailableProducts_GWT.res.mjs

@@ -0,0 +1,83 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as MultiSourceProjection_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/MultiSourceProjection_GWT.res.mjs";
+import * as AvailableProducts_Projections$OrderingPlugin from "../../../src/CatalogProduct/ReadModel/AvailableProducts_Projections.res.mjs";
+
+let include = MultiSourceProjection_GWT$ReventlessGwt.Make(AvailableProducts_Projections$OrderingPlugin.CatalogProductMapping);
+
+let describe = include.describe;
+
+let test = include.test;
+
+let givenEvents = include.givenEvents;
+
+let whenEvent = include.whenEvent;
+
+let thenState = include.thenState;
+
+describe("AvailableProducts ReadModel ← CatalogProduct", () => {
+  test("Synced sets initial read model state", undefined, () => thenState(whenEvent(givenEvents([]), {
+    TAG: "Synced",
+    name: "Laptop",
+    price: 999.99
+  }), {
+    name: "Laptop",
+    price: 999.99
+  }));
+  test("PriceUpdated updates the price", undefined, () => thenState(whenEvent(givenEvents([{
+      TAG: "Synced",
+      name: "Laptop",
+      price: 999.99
+    }]), {
+    TAG: "PriceUpdated",
+    price: 899.99
+  }), {
+    name: "Laptop",
+    price: 899.99
+  }));
+});
+
+let describeWithId = include.describeWithId;
+
+let givenEventsWithTime = include.givenEventsWithTime;
+
+let whenEvents = include.whenEvents;
+
+let whenEventWithTime = include.whenEventWithTime;
+
+let whenEventsWithTime = include.whenEventsWithTime;
+
+let thenStates = include.thenStates;
+
+let thenStatesWithId = include.thenStatesWithId;
+
+let thenAllStates = include.thenAllStates;
+
+let thenStateWithId = include.thenStateWithId;
+
+let thenNoState = include.thenNoState;
+
+let thenThrow = include.thenThrow;
+
+let thenFail = include.thenFail;
+
+export {
+  describe,
+  describeWithId,
+  test,
+  givenEvents,
+  givenEventsWithTime,
+  whenEvent,
+  whenEvents,
+  whenEventWithTime,
+  whenEventsWithTime,
+  thenStates,
+  thenStatesWithId,
+  thenAllStates,
+  thenState,
+  thenStateWithId,
+  thenNoState,
+  thenThrow,
+  thenFail,
+}
+/* include Not a pure module */

package/lib/bs/tests/Customer/Aggregate/Customer_GWT.res

@@ -0,0 +1,90 @@
+@@reventless.gwt
+
+describe("Customer Behavior", () => {
+  test("Register on new aggregate produces Registered", () =>
+    givenEvents([])
+    ->whenCmd(Register({email: "alice@example.com", address: "123 Main St"}))
+    ->thenEvent(Registered({email: "alice@example.com", address: "123 Main St"}))
+  )
+
+  test("Register on existing aggregate returns CustomerAlreadyRegistered", () =>
+    givenEvents([Registered({email: "alice@example.com", address: "123 Main St"})])
+    ->whenCmd(Register({email: "bob@example.com", address: "456 Oak Ave"}))
+    ->thenError(CustomerAlreadyRegistered)
+  )
+
+  test("Register on deactivated aggregate returns CustomerAlreadyDeactivated", () =>
+    givenEvents([
+      Registered({email: "alice@example.com", address: "123 Main St"}),
+      Deactivated,
+    ])
+    ->whenCmd(Register({email: "bob@example.com", address: "456 Oak Ave"}))
+    ->thenError(CustomerAlreadyDeactivated)
+  )
+
+  test("UpdateEmail on non-existent aggregate returns CustomerNotFound", () =>
+    givenEvents([])
+    ->whenCmd(UpdateEmail({email: "x@y"}))
+    ->thenError(CustomerNotFound)
+  )
+
+  test("UpdateEmail on active customer produces EmailUpdated", () =>
+    givenEvents([Registered({email: "alice@example.com", address: "123 Main St"})])
+    ->whenCmd(UpdateEmail({email: "alice2@example.com"}))
+    ->thenEvent(EmailUpdated({email: "alice2@example.com"}))
+  )
+
+  test("UpdateEmail to same email produces no events (idempotent)", () =>
+    givenEvents([Registered({email: "alice@example.com", address: "123 Main St"})])
+    ->whenCmd(UpdateEmail({email: "alice@example.com"}))
+    ->thenNoEvent
+  )
+
+  test("UpdateEmail on deactivated customer returns CustomerAlreadyDeactivated", () =>
+    givenEvents([
+      Registered({email: "alice@example.com", address: "123 Main St"}),
+      Deactivated,
+    ])
+    ->whenCmd(UpdateEmail({email: "x@y"}))
+    ->thenError(CustomerAlreadyDeactivated)
+  )
+
+  test("UpdateAddress on non-existent aggregate returns CustomerNotFound", () =>
+    givenEvents([])
+    ->whenCmd(UpdateAddress({address: "x"}))
+    ->thenError(CustomerNotFound)
+  )
+
+  test("UpdateAddress on active customer produces AddressUpdated", () =>
+    givenEvents([Registered({email: "alice@example.com", address: "123 Main St"})])
+    ->whenCmd(UpdateAddress({address: "789 Pine Rd"}))
+    ->thenEvent(AddressUpdated({address: "789 Pine Rd"}))
+  )
+
+  test("UpdateAddress to same address produces no events (idempotent)", () =>
+    givenEvents([Registered({email: "alice@example.com", address: "123 Main St"})])
+    ->whenCmd(UpdateAddress({address: "123 Main St"}))
+    ->thenNoEvent
+  )
+
+  test("Deactivate on non-existent aggregate returns CustomerNotFound", () =>
+    givenEvents([])
+    ->whenCmd(Deactivate)
+    ->thenError(CustomerNotFound)
+  )
+
+  test("Deactivate on active customer produces Deactivated", () =>
+    givenEvents([Registered({email: "alice@example.com", address: "123 Main St"})])
+    ->whenCmd(Deactivate)
+    ->thenEvent(Deactivated)
+  )
+
+  test("Deactivate on deactivated customer produces no events (idempotent)", () =>
+    givenEvents([
+      Registered({email: "alice@example.com", address: "123 Main St"}),
+      Deactivated,
+    ])
+    ->whenCmd(Deactivate)
+    ->thenNoEvent
+  )
+})

package/lib/bs/tests/Customer/Aggregate/Customer_GWT.res.mjs

@@ -0,0 +1,170 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Customer$OrderingPlugin from "../../../src/Customer/Aggregate/Customer.res.mjs";
+import * as Behavior_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/Behavior_GWT.res.mjs";
+import * as Customer_Behavior$OrderingPlugin from "../../../src/Customer/Aggregate/Customer_Behavior.res.mjs";
+
+let include = Behavior_GWT$ReventlessGwt.MakeFromAggregate({
+  name: Customer$OrderingPlugin.name,
+  commandSchema: Customer$OrderingPlugin.commandSchema,
+  eventSchema: Customer$OrderingPlugin.eventSchema,
+  errorSchema: Customer$OrderingPlugin.errorSchema
+})({
+  Spec: {
+    name: Customer$OrderingPlugin.name,
+    commandSchema: Customer$OrderingPlugin.commandSchema,
+    eventSchema: Customer$OrderingPlugin.eventSchema,
+    errorSchema: Customer$OrderingPlugin.errorSchema
+  },
+  initialState: Customer_Behavior$OrderingPlugin.initialState,
+  evolve: Customer_Behavior$OrderingPlugin.evolve,
+  decide: Customer_Behavior$OrderingPlugin.decide,
+  moduleUrl: Customer_Behavior$OrderingPlugin.moduleUrl
+});
+
+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("Customer Behavior", () => {
+  test("Register on new aggregate produces Registered", () => thenEvent(whenCmd(givenEvents([]), {
+    TAG: "Register",
+    email: "alice@example.com",
+    address: "123 Main St"
+  }), {
+    TAG: "Registered",
+    email: "alice@example.com",
+    address: "123 Main St"
+  }));
+  test("Register on existing aggregate returns CustomerAlreadyRegistered", () => thenError(whenCmd(givenEvents([{
+      TAG: "Registered",
+      email: "alice@example.com",
+      address: "123 Main St"
+    }]), {
+    TAG: "Register",
+    email: "bob@example.com",
+    address: "456 Oak Ave"
+  }), "CustomerAlreadyRegistered"));
+  test("Register on deactivated aggregate returns CustomerAlreadyDeactivated", () => thenError(whenCmd(givenEvents([
+    {
+      TAG: "Registered",
+      email: "alice@example.com",
+      address: "123 Main St"
+    },
+    "Deactivated"
+  ]), {
+    TAG: "Register",
+    email: "bob@example.com",
+    address: "456 Oak Ave"
+  }), "CustomerAlreadyDeactivated"));
+  test("UpdateEmail on non-existent aggregate returns CustomerNotFound", () => thenError(whenCmd(givenEvents([]), {
+    TAG: "UpdateEmail",
+    email: "x@y"
+  }), "CustomerNotFound"));
+  test("UpdateEmail on active customer produces EmailUpdated", () => thenEvent(whenCmd(givenEvents([{
+      TAG: "Registered",
+      email: "alice@example.com",
+      address: "123 Main St"
+    }]), {
+    TAG: "UpdateEmail",
+    email: "alice2@example.com"
+  }), {
+    TAG: "EmailUpdated",
+    email: "alice2@example.com"
+  }));
+  test("UpdateEmail to same email produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([{
+      TAG: "Registered",
+      email: "alice@example.com",
+      address: "123 Main St"
+    }]), {
+    TAG: "UpdateEmail",
+    email: "alice@example.com"
+  })));
+  test("UpdateEmail on deactivated customer returns CustomerAlreadyDeactivated", () => thenError(whenCmd(givenEvents([
+    {
+      TAG: "Registered",
+      email: "alice@example.com",
+      address: "123 Main St"
+    },
+    "Deactivated"
+  ]), {
+    TAG: "UpdateEmail",
+    email: "x@y"
+  }), "CustomerAlreadyDeactivated"));
+  test("UpdateAddress on non-existent aggregate returns CustomerNotFound", () => thenError(whenCmd(givenEvents([]), {
+    TAG: "UpdateAddress",
+    address: "x"
+  }), "CustomerNotFound"));
+  test("UpdateAddress on active customer produces AddressUpdated", () => thenEvent(whenCmd(givenEvents([{
+      TAG: "Registered",
+      email: "alice@example.com",
+      address: "123 Main St"
+    }]), {
+    TAG: "UpdateAddress",
+    address: "789 Pine Rd"
+  }), {
+    TAG: "AddressUpdated",
+    address: "789 Pine Rd"
+  }));
+  test("UpdateAddress to same address produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([{
+      TAG: "Registered",
+      email: "alice@example.com",
+      address: "123 Main St"
+    }]), {
+    TAG: "UpdateAddress",
+    address: "123 Main St"
+  })));
+  test("Deactivate on non-existent aggregate returns CustomerNotFound", () => thenError(whenCmd(givenEvents([]), "Deactivate"), "CustomerNotFound"));
+  test("Deactivate on active customer produces Deactivated", () => thenEvent(whenCmd(givenEvents([{
+      TAG: "Registered",
+      email: "alice@example.com",
+      address: "123 Main St"
+    }]), "Deactivate"), "Deactivated"));
+  test("Deactivate on deactivated customer produces no events (idempotent)", () => thenNoEvent(whenCmd(givenEvents([
+    {
+      TAG: "Registered",
+      email: "alice@example.com",
+      address: "123 Main St"
+    },
+    "Deactivated"
+  ]), "Deactivate")));
+});
+
+let Spec = include.Spec;
+
+let thenCompareEvent = include.thenCompareEvent;
+
+let thenEventWithError = include.thenEventWithError;
+
+let thenEvents = include.thenEvents;
+
+let thenCompareEvents = include.thenCompareEvents;
+
+let thenEventsWithError = include.thenEventsWithError;
+
+export {
+  Spec,
+  describe,
+  test,
+  givenEvents,
+  whenCmd,
+  thenEvent,
+  thenCompareEvent,
+  thenNoEvent,
+  thenEventWithError,
+  thenEvents,
+  thenCompareEvents,
+  thenEventsWithError,
+  thenError,
+}
+/* include Not a pure module */

package/lib/bs/tests/Customer/ReadModel/Customers_GWT.res

@@ -0,0 +1,27 @@
+@@reventless.gwt(Customers_Projections.CustomerMapping)
+
+describe("Customers ReadModel ← Customer", () => {
+  test("Registered sets initial read model state", () =>
+    givenEvents([])
+    ->whenEvent(Customer.Registered({email: "alice@example.com", address: "123 Main St"}))
+    ->thenState({Customers.email: "alice@example.com", address: "123 Main St", deactivated: false})
+  )
+
+  test("EmailUpdated updates the email", () =>
+    givenEvents([Customer.Registered({email: "alice@example.com", address: "123 Main St"})])
+    ->whenEvent(Customer.EmailUpdated({email: "alice2@example.com"}))
+    ->thenState({Customers.email: "alice2@example.com", address: "123 Main St", deactivated: false})
+  )
+
+  test("AddressUpdated updates the address", () =>
+    givenEvents([Customer.Registered({email: "alice@example.com", address: "123 Main St"})])
+    ->whenEvent(Customer.AddressUpdated({address: "789 Pine Rd"}))
+    ->thenState({Customers.email: "alice@example.com", address: "789 Pine Rd", deactivated: false})
+  )
+
+  test("Deactivated sets deactivated flag", () =>
+    givenEvents([Customer.Registered({email: "alice@example.com", address: "123 Main St"})])
+    ->whenEvent(Customer.Deactivated)
+    ->thenState({Customers.email: "alice@example.com", address: "123 Main St", deactivated: true})
+  )
+})

package/lib/bs/tests/Customer/ReadModel/Customers_GWT.res.mjs

@@ -0,0 +1,106 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Customers_Projections$OrderingPlugin from "../../../src/Customer/ReadModel/Customers_Projections.res.mjs";
+import * as MultiSourceProjection_GWT$ReventlessGwt from "@reventlessdev/reventless-gwt/src/MultiSourceProjection_GWT.res.mjs";
+
+let include = MultiSourceProjection_GWT$ReventlessGwt.Make(Customers_Projections$OrderingPlugin.CustomerMapping);
+
+let describe = include.describe;
+
+let test = include.test;
+
+let givenEvents = include.givenEvents;
+
+let whenEvent = include.whenEvent;
+
+let thenState = include.thenState;
+
+describe("Customers ReadModel ← Customer", () => {
+  test("Registered sets initial read model state", undefined, () => thenState(whenEvent(givenEvents([]), {
+    TAG: "Registered",
+    email: "alice@example.com",
+    address: "123 Main St"
+  }), {
+    email: "alice@example.com",
+    address: "123 Main St",
+    deactivated: false
+  }));
+  test("EmailUpdated updates the email", undefined, () => thenState(whenEvent(givenEvents([{
+      TAG: "Registered",
+      email: "alice@example.com",
+      address: "123 Main St"
+    }]), {
+    TAG: "EmailUpdated",
+    email: "alice2@example.com"
+  }), {
+    email: "alice2@example.com",
+    address: "123 Main St",
+    deactivated: false
+  }));
+  test("AddressUpdated updates the address", undefined, () => thenState(whenEvent(givenEvents([{
+      TAG: "Registered",
+      email: "alice@example.com",
+      address: "123 Main St"
+    }]), {
+    TAG: "AddressUpdated",
+    address: "789 Pine Rd"
+  }), {
+    email: "alice@example.com",
+    address: "789 Pine Rd",
+    deactivated: false
+  }));
+  test("Deactivated sets deactivated flag", undefined, () => thenState(whenEvent(givenEvents([{
+      TAG: "Registered",
+      email: "alice@example.com",
+      address: "123 Main St"
+    }]), "Deactivated"), {
+    email: "alice@example.com",
+    address: "123 Main St",
+    deactivated: true
+  }));
+});
+
+let describeWithId = include.describeWithId;
+
+let givenEventsWithTime = include.givenEventsWithTime;
+
+let whenEvents = include.whenEvents;
+
+let whenEventWithTime = include.whenEventWithTime;
+
+let whenEventsWithTime = include.whenEventsWithTime;
+
+let thenStates = include.thenStates;
+
+let thenStatesWithId = include.thenStatesWithId;
+
+let thenAllStates = include.thenAllStates;
+
+let thenStateWithId = include.thenStateWithId;
+
+let thenNoState = include.thenNoState;
+
+let thenThrow = include.thenThrow;
+
+let thenFail = include.thenFail;
+
+export {
+  describe,
+  describeWithId,
+  test,
+  givenEvents,
+  givenEventsWithTime,
+  whenEvent,
+  whenEvents,
+  whenEventWithTime,
+  whenEventsWithTime,
+  thenStates,
+  thenStatesWithId,
+  thenAllStates,
+  thenState,
+  thenStateWithId,
+  thenNoState,
+  thenThrow,
+  thenFail,
+}
+/* include Not a pure module */

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

@@ -0,0 +1,21 @@
+// Boundary GWT for Ordering's Products extension: public Catalog events become
+// CatalogProduct commands on Ordering's local shadow aggregate.
+@@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 Sync", () =>
+    whenIncomingEvent(
+      ExtensionPoint.ProductBecameAvailable({productId: "p1", name: "Book", price: 9.99}),
+    )->thenPublishesAggregateCommand("p1", Delegate.Sync({name: "Book", price: 9.99}))
+  )
+
+  test("ProductPriceChanged issues UpdatePrice", () =>
+    whenIncomingEvent(
+      ExtensionPoint.ProductPriceChanged({productId: "p1", price: 7.5}),
+    )->thenPublishesAggregateCommand("p1", Delegate.UpdatePrice({price: 7.5}))
+  )
+})

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

@@ -0,0 +1,106 @@
+// 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 CatalogProduct$OrderingPlugin from "../../src/CatalogProduct/Aggregate/CatalogProduct.res.mjs";
+import * as Products_Extension$OrderingPlugin from "../../src/Extension/Products_Extension.res.mjs";
+import * as Products_ExtensionPoint$CatalogSpec from "@reventlessdev/online-shop-aggregates-catalog-spec/src/Products_ExtensionPoint.res.mjs";
+
+let include = Delegate_GWT$ReventlessGwt.FromExtension({
+  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: CatalogProduct$OrderingPlugin.name,
+    eventSchema: CatalogProduct$OrderingPlugin.eventSchema,
+    errorSchema: CatalogProduct$OrderingPlugin.errorSchema,
+    commandSchema: CatalogProduct$OrderingPlugin.commandSchema,
+    moduleUrl: CatalogProduct$OrderingPlugin.moduleUrl,
+    commandAuthorization: CatalogProduct$OrderingPlugin.commandAuthorization
+  },
+  moduleUrl: Products_Extension$OrderingPlugin.Mapping.moduleUrl,
+  delegateModuleUrl: Products_Extension$OrderingPlugin.Mapping.delegateModuleUrl,
+  mapIncomingEvent: Products_Extension$OrderingPlugin.Mapping.mapIncomingEvent,
+  mapOutgoingEvent: Products_Extension$OrderingPlugin.Mapping.mapOutgoingEvent
+});
+
+let describe = include.describe;
+
+let test = include.test;
+
+let whenIncomingEvent = include.whenIncomingEvent;
+
+let thenPublishesAggregateCommand = include.thenPublishesAggregateCommand;
+
+describe("Products Extension delegate", () => {
+  test("ProductBecameAvailable issues Sync", undefined, () => thenPublishesAggregateCommand(whenIncomingEvent({
+    TAG: "ProductBecameAvailable",
+    productId: "p1",
+    name: "Book",
+    price: 9.99
+  }), "p1", {
+    TAG: "Sync",
+    name: "Book",
+    price: 9.99
+  }));
+  test("ProductPriceChanged issues UpdatePrice", undefined, () => thenPublishesAggregateCommand(whenIncomingEvent({
+    TAG: "ProductPriceChanged",
+    productId: "p1",
+    price: 7.5
+  }), "p1", {
+    TAG: "UpdatePrice",
+    price: 7.5
+  }));
+});
+
+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 thenPublishesCommand = include.thenPublishesCommand;
+
+let thenPublishesCommands = include.thenPublishesCommands;
+
+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/Orders_ExtensionPointMapping_GWT.res

@@ -0,0 +1,33 @@
+// Boundary GWT for the Orders extension point: batch order events decompose
+// into one public per-product event each (one-to-many fan-out).
+@@reventless.gwt
+
+describe("Orders ExtensionPoint mapping — per-product fan-out", () => {
+  test("Placed fans out to one ItemOrdered per product", () =>
+    whenDelegateEvent(
+      Delegate.Placed({customerId: "c1", productIds: ["p1", "p2"]}),
+    )->thenPublishesEvents([
+      ("p1", ExtensionPoint.ItemOrdered({productId: "p1", orderId: "gwt-id", customerId: "c1"})),
+      ("p2", ExtensionPoint.ItemOrdered({productId: "p2", orderId: "gwt-id", customerId: "c1"})),
+    ])
+  )
+
+  test("Cancelled fans out to one ItemOrderCancelled per product", () =>
+    whenDelegateEvent(
+      Delegate.Cancelled({productIds: ["p1", "p2"]}),
+    )->thenPublishesEvents([
+      ("p1", ExtensionPoint.ItemOrderCancelled({productId: "p1", orderId: "gwt-id"})),
+      ("p2", ExtensionPoint.ItemOrderCancelled({productId: "p2", orderId: "gwt-id"})),
+    ])
+  )
+
+  test("Shipped publishes nothing", () =>
+    whenDelegateEvent(Delegate.Shipped)->thenPublishesNothing
+  )
+
+  test("Refunded publishes nothing", () =>
+    whenDelegateEvent(
+      Delegate.Refunded({reason: "customer-changed-mind"}),
+    )->thenPublishesNothing
+  )
+})