@reventlessdev/reventless-gwt 1.0.0-alpha.151 → 1.0.0-alpha.153

package/CHANGELOG.md

@@ -3,6 +3,21 @@
 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.153 (2026-08-03)
+
+### Features
+
+* **outbound:** let an outbound slice read an aggregate, and geocode addresses with it ([867e63e](https://github.com/ReventlessDev/reventless-core/commit/867e63e774ebc8b78b2b19c78645c8a12a8d06f6))
+
+
+# 1.0.0-alpha.152 (2026-08-02)
+
+**Note:** Version bump only for package @reventlessdev/reventless-gwt
+
+
+
+
+
 # 1.0.0-alpha.151 (2026-08-02)
 
 **Note:** Version bump only for package @reventlessdev/reventless-gwt

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@reventlessdev/reventless-gwt",
-  "version": "1.0.0-alpha.151",
+  "version": "1.0.0-alpha.153",
   "description": "Given-When-Then DSLs and test harness for Reventless slice testing",
   "license": "Apache-2.0",
   "jest": {
@@ -14,17 +14,17 @@
   },
   "dependencies": {
     "sury": "11.0.0-alpha.4",
-    "@reventlessdev/rescript-effect": "0.1.0-alpha.32",
+    "@reventlessdev/reventless-core": "3.0.0-alpha.206",
     "@reventlessdev/rescript-jest": "1.0.0-alpha.10",
+    "@reventlessdev/rescript-effect": "0.1.0-alpha.32",
     "@reventlessdev/rescript-node": "2.0.0-alpha.1",
-    "@reventlessdev/reventless-core": "3.0.0-alpha.204",
-    "@reventlessdev/reventless-infra": "3.0.0-alpha.121",
-    "@reventlessdev/reventless-spec": "3.0.0-alpha.96"
+    "@reventlessdev/reventless-infra": "3.0.0-alpha.123",
+    "@reventlessdev/reventless-spec": "3.0.0-alpha.98"
   },
   "devDependencies": {
     "rescript": "12.3.0",
     "sury-ppx": "11.0.0-alpha.2",
-    "@reventlessdev/reventless-ppx": "1.0.0-alpha.60"
+    "@reventlessdev/reventless-ppx": "1.0.0-alpha.62"
   },
   "peerDependencies": {
     "rescript": "12.3.0"

package/src/Flow_GWT.res

@@ -505,7 +505,11 @@ module OutboundStep = (Spec: OutboundTranslation_GWT.SliceSpec) => {
   let thenOutbound = async (flowP: flow, expected: array<(string, Spec.outboundItem)>) => {
     let s = await flowP
     let events = decodeMatching(s.log, consumedDecoder, [])
-    let collected = events->Array.map(e => e->Spec.collect)->Array.flat
+    // The flow log carries decoded events, not their envelopes, so there is no
+    // entity id to thread here. A collect that keys off `~sourceId` (an
+    // aggregate source) should be exercised by the dedicated
+    // `OutboundTranslation_GWT`, which can supply one.
+    let collected = events->Array.map(e => e->Spec.collect(~sourceId=""))->Array.flat
     let actual = encItems(collected)
     let expectedJson = encItems(expected)
     let o =

package/src/Flow_GWT.res.mjs

@@ -428,7 +428,7 @@ function OutboundStep(Spec) {
   let thenOutbound = async (flowP, expected) => {
     let s = await flowP;
     let events = decodeMatching(s.log, consumedDecoder, []);
-    let collected = events.map(e => Spec.collect(e)).flat();
+    let collected = events.map(e => Spec.collect(e, "")).flat();
     let actual = encItems(collected);
     let expectedJson = encItems(expected);
     let o = Primitive_object.equal(actual, expectedJson) ? Outcome$ReventlessGwt.pass : Outcome$ReventlessGwt.fail({

package/src/OutboundTranslation_GWT.res

@@ -16,7 +16,7 @@ module type SliceSpec = {
   @schema
   type inboundCommand
 
-  let collect: consumedEvent => array<(string, outboundItem)>
+  let collect: (consumedEvent, ~sourceId: string) => array<(string, outboundItem)>
 }
 
 // Status enum reflecting how the slice's runtime labels a TODO after a
@@ -48,7 +48,7 @@ module type T = {
 
   // Unit — collect
   let givenEvent: Spec.consumedEvent => Spec.consumedEvent
-  let whenCollect: Spec.consumedEvent => array<(string, Spec.outboundItem)>
+  let whenCollect: (Spec.consumedEvent, ~sourceId: string=?) => array<(string, Spec.outboundItem)>
   let thenTodos: (
     array<(string, Spec.outboundItem)>,
     array<(string, Spec.outboundItem)>,
@@ -105,8 +105,12 @@ module Make = (Spec: SliceSpec): (T with module Spec = Spec) => {
     c->Message.encode(Spec.inboundCommandSchema)
 
   // Unit: collect
+  //
+  // `~sourceId` defaults so a DCB-source test — whose event names its own subject
+  // in the payload — reads exactly as it did before this argument existed. An
+  // aggregate-source test passes the entity id it is exercising.
   let givenEvent = e => e
-  let whenCollect = e => e->Spec.collect
+  let whenCollect = (e, ~sourceId="") => e->Spec.collect(~sourceId)
   let thenTodos = (actual, expected) =>
     if actual == expected {
       Outcome.pass

package/src/OutboundTranslation_GWT.res.mjs

@@ -15,7 +15,10 @@ function Make(Spec) {
     Message$ReventlessCore.encode(param[1], Spec.outboundItemSchema)
   ]);
   let givenEvent = e => e;
-  let whenCollect = e => Spec.collect(e);
+  let whenCollect = (e, sourceIdOpt) => {
+    let sourceId = sourceIdOpt !== undefined ? sourceIdOpt : "";
+    return Spec.collect(e, sourceId);
+  };
   let thenTodos = (actual, expected) => {
     if (Primitive_object.equal(actual, expected)) {
       return Outcome$ReventlessGwt.pass;

package/tests/FlowGwtTest.res

@@ -159,7 +159,7 @@ module ConfirmSlice = {
   @schema
   type inboundCommand = unit
 
-  let collect = event =>
+  let collect = (event, ~sourceId as _) =>
     switch event {
     | OrderPlaced({orderId}) => [(orderId, ({orderId: orderId}: outboundItem))]
     }

package/tests/FlowGwtTest.res.mjs

@@ -293,7 +293,7 @@ let outboundItemSchema = S.schema(s => ({
   orderId: s.m(S.string)
 }));
 
-function collect$1(event) {
+function collect$1(event, param) {
   let orderId = event.orderId;
   return [[
       orderId,

package/tests/OutboundTranslationGwtTest.res

@@ -16,7 +16,7 @@ module SendTrackingEmailSlice = {
   @schema
   type inboundCommand = NoOp
 
-  let collect = event =>
+  let collect = (event, ~sourceId as _) =>
     switch event {
     | OrderShipped({orderId, email}) => [(orderId, {orderId, email})]
     }

package/tests/OutboundTranslationGwtTest.res.mjs

@@ -16,7 +16,7 @@ let outboundItemSchema = S.schema(s => ({
 
 let inboundCommandSchema = S.literal("NoOp");
 
-function collect(event) {
+function collect(event, param) {
   let orderId = event.orderId;
   return [[
       orderId,
@@ -63,7 +63,7 @@ describe("SendTrackingEmail OutboundTranslationSlice", () => {
     TAG: "OrderShipped",
     orderId: "o1",
     email: "x@y"
-  })), [[
+  }), undefined), [[
       "o1",
       {
         orderId: "o1",