@reventlessdev/reventless-aws 3.0.0-alpha.167

package/tests/integration/EpTestSlice.res

@@ -0,0 +1,28 @@
+// Tiny slice spec exercised by `DcbCommandTopicEntryPoint_IntegrationTest`.
+// Standalone schema — does not depend on the example apps — so the test is
+// self-contained and the fixture's shape can drift independently of any
+// shipped slice.
+//
+// Hand-written explicit `@s.matches(...)` form rather than the
+// `@@reventless.spec` / `@partitionTag` PPX shorthand: the reventless-ppx
+// is only wired into reventless-core's rescript.json, not reventless-aws's.
+
+@schema
+type consumedEvent = WidgetAdded({widgetId: string})
+
+@schema
+type command = AddWidget({widgetId: @s.matches(Reventless.DcbTag.partition) string})
+
+@schema
+type error = AlreadyAdded
+
+@schema
+type event = WidgetAdded({widgetId: @s.matches(Reventless.DcbTag.partition) string})
+
+let name = "EpTestSlice"
+let moduleUrl = "ep-test://EpTestSlice"
+let commandAuthorization = (_: command): Reventless.Authorization.permission => AllowAnonymous
+let readConsistency = Reventless.ReadConsistency.EscalateOnRetry
+
+// `module Id = Reventless.Id.String` — patched in by `patchSpecId` at runtime,
+// so we don't need to expose it from this module.

package/tests/integration/EpTestSlice.res.mjs

@@ -0,0 +1,43 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.res.mjs";
+import * as DcbTag$Reventless from "@reventlessdev/reventless-spec/src/components/DcbTag.res.mjs";
+
+let consumedEventSchema = S.schema(s => ({
+  TAG: "WidgetAdded",
+  widgetId: s.m(S.string)
+}));
+
+let commandSchema = S.schema(s => ({
+  TAG: "AddWidget",
+  widgetId: s.m(DcbTag$Reventless.partition)
+}));
+
+let errorSchema = S.literal("AlreadyAdded");
+
+let eventSchema = S.schema(s => ({
+  TAG: "WidgetAdded",
+  widgetId: s.m(DcbTag$Reventless.partition)
+}));
+
+function commandAuthorization(param) {
+  return "AllowAnonymous";
+}
+
+let name = "EpTestSlice";
+
+let moduleUrl = "ep-test://EpTestSlice";
+
+let readConsistency = "EscalateOnRetry";
+
+export {
+  consumedEventSchema,
+  commandSchema,
+  errorSchema,
+  eventSchema,
+  name,
+  moduleUrl,
+  commandAuthorization,
+  readConsistency,
+}
+/* consumedEventSchema Not a pure module */

package/tests/integration/EpTestSliceBehavior.res

@@ -0,0 +1,18 @@
+// Behavior pair for `EpTestSlice`. Append-on-empty / reject-on-seen.
+
+type state = bool
+
+let initialState = false
+
+let evolve = (_state, _event: EpTestSlice.consumedEvent) => true
+
+let decide = (state, command: EpTestSlice.command): result<
+  array<EpTestSlice.event>,
+  EpTestSlice.error,
+> =>
+  switch (state, command) {
+  | (true, _) => Error(AlreadyAdded)
+  | (false, AddWidget({widgetId})) => Ok([WidgetAdded({widgetId: widgetId})])
+  }
+
+let moduleUrl = "ep-test://EpTestSliceBehavior"

package/tests/integration/EpTestSliceBehavior.res.mjs

@@ -0,0 +1,35 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+
+function evolve(_state, _event) {
+  return true;
+}
+
+function decide(state, command) {
+  if (state) {
+    return {
+      TAG: "Error",
+      _0: "AlreadyAdded"
+    };
+  } else {
+    return {
+      TAG: "Ok",
+      _0: [{
+          TAG: "WidgetAdded",
+          widgetId: command.widgetId
+        }]
+    };
+  }
+}
+
+let initialState = false;
+
+let moduleUrl = "ep-test://EpTestSliceBehavior";
+
+export {
+  initialState,
+  evolve,
+  decide,
+  moduleUrl,
+}
+/* No side effect */