@reventlessdev/reventless-core 3.0.0-alpha.238 → 3.0.0-alpha.240

package/tests/commandgenerator/CommandGeneratorFixtures.res

@@ -1,4 +1,3 @@
-S.enableJson()
 
 // ─────────────────────────────────────────────────────────────
 // Aggregate spec for CommandGenerator tests

package/tests/commandgenerator/CommandGeneratorFixtures.res.mjs

@@ -1,32 +1,30 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 import * as Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
 import * as DcbTag$Reventless from "@reventlessdev/reventless-spec/src/components/DcbTag.res.mjs";
 import * as CommandGenerator_Callback$ReventlessCore from "../../src/components/CommandGenerator/CommandGenerator_Callback.res.mjs";
 
-S.enableJson();
-
 let name = "TestCmdGenAgg";
 
-let commandSchema = S.union([
-  S.literal("Create"),
-  S.schema(s => ({
+let commandSchema = Sury.union([
+  Sury.literal("Create"),
+  Sury.$schema(s => ({
     TAG: "CreateWithName",
-    name: s.m(S.string)
+    name: s.m(Sury.string)
   })),
-  S.literal("Invalid")
+  Sury.literal("Invalid")
 ]);
 
-let eventSchema = S.union([
-  S.literal("Created"),
-  S.schema(s => ({
+let eventSchema = Sury.union([
+  Sury.literal("Created"),
+  Sury.$schema(s => ({
     TAG: "CreatedWithName",
-    name: s.m(S.string)
+    name: s.m(Sury.string)
   }))
 ]);
 
-let errorSchema = S.literal("InvalidCommand");
+let errorSchema = Sury.literal("InvalidCommand");
 
 let moduleUrl = import.meta.url;
 
@@ -111,24 +109,24 @@ let TestGenerator = CommandGenerator_Callback$ReventlessCore.Make(MockPublishSpe
   commandAuthorization: commandAuthorization
 });
 
-let singleTagCommandSchema = S.schema(s => ({
+let singleTagCommandSchema = Sury.$schema(s => ({
   TAG: "CreateItem",
   itemId: s.m(DcbTag$Reventless.string),
-  name: s.m(S.string)
+  name: s.m(Sury.string)
 }));
 
-let compositeTagCommandSchema = S.schema(s => ({
+let compositeTagCommandSchema = Sury.$schema(s => ({
   TAG: "DeployVersion",
   environment: s.m(DcbTag$Reventless.compositePartitionMember(0, "-")),
   service: s.m(DcbTag$Reventless.compositePartitionMember(1, undefined)),
-  version: s.m(S.string)
+  version: s.m(Sury.string)
 }));
 
-let optionalFieldCommandSchema = S.schema(s => ({
+let optionalFieldCommandSchema = Sury.$schema(s => ({
   TAG: "StoreItem",
   itemId: s.m(DcbTag$Reventless.string),
-  data: s.m(S.json),
-  note: s.m(S.option(S.string))
+  data: s.m(Sury.json),
+  note: s.m(Sury.$option(Sury.string))
 }));
 
 let optionalFieldSliceGen = CommandGenerator_Callback$ReventlessCore.makeGenerateCommand(publishJsons, undefined, "OptionalFieldSlice", optionalFieldCommandSchema, "StateChangeSlice", false);
@@ -205,4 +203,4 @@ export {
   makeOneParamPayload,
   reset,
 }
-/*  Not a pure module */
+/* commandSchema Not a pure module */

package/tests/commandgenerator/OwnerStampingTest.res

@@ -1,6 +1,5 @@
 open JestGlobals
 
-S.enableJson()
 
 // Driven through `makeGenerateCommand` rather than by calling `stampOwnerFields`
 // directly. The unit under test is not really the stamp — it is the claim that

package/tests/commandgenerator/OwnerStampingTest.res.mjs

@@ -1,6 +1,6 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 import * as Stdlib_JSON from "@rescript/runtime/lib/es6/Stdlib_JSON.js";
 import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
 import * as Effect from "effect/Effect";
@@ -12,19 +12,17 @@ import * as OwnerScope$Reventless from "@reventlessdev/reventless-spec/src/types
 import * as Plugin_ResolverError$ReventlessCore from "../../src/plugin/component/Plugin_ResolverError.res.mjs";
 import * as CommandGenerator_Callback$ReventlessCore from "../../src/components/CommandGenerator/CommandGenerator_Callback.res.mjs";
 
-S.enableJson();
-
-let commandSchema = S.union([
-  S.schema(s => ({
+let commandSchema = Sury.union([
+  Sury.$schema(s => ({
     TAG: "PlaceOrder",
     orderId: s.m(DcbTag$Reventless.string),
     customerId: s.m(Owner$Reventless.string),
-    note: s.m(S.string)
+    note: s.m(Sury.string)
   })),
-  S.schema(s => ({
+  Sury.$schema(s => ({
     TAG: "ImportProducts",
     batchId: s.m(DcbTag$Reventless.string),
-    source: s.m(S.string)
+    source: s.m(Sury.string)
   }))
 ]);
 
@@ -195,7 +193,7 @@ globalThis.describe("@owner stamping on the command path:", () => {
 globalThis.describe("the schema a generator is built with must answer for its commands:", () => {
   let permissive = CommandGenerator_Callback$ReventlessCore.makeGenerateCommand(async cmds => {
     published.contents = published.contents.concat(cmds);
-  }, undefined, "Ordering", S.json, "StateChangeSlice", false);
+  }, undefined, "Ordering", Sury.json, "StateChangeSlice", false);
   globalThis.test("a permissive schema silently stamps nothing — the defect, pinned", async () => {
     await Effect.runPromise(permissive(placeOrder("cust-B", cognito("cust-A", ["User"]))));
     globalThis.expect(fieldOf(published.contents[published.contents.length - 1 | 0], "customerId")).toEqual("cust-B");
@@ -207,7 +205,7 @@ globalThis.describe("the schema a generator is built with must answer for its co
   globalThis.test("every command of a spec resolves its owner fields through that spec's schema", async () => {
     globalThis.expect(Owner$Reventless.variantFieldNames(commandSchema, "PlaceOrder")).toEqual(["customerId"]);
     globalThis.expect(Owner$Reventless.variantFieldNames(commandSchema, "ImportProducts")).toEqual([]);
-    globalThis.expect(Owner$Reventless.variantFieldNames(S.json, "PlaceOrder")).toEqual([]);
+    globalThis.expect(Owner$Reventless.variantFieldNames(Sury.json, "PlaceOrder")).toEqual([]);
   });
 });
 
@@ -223,4 +221,4 @@ export {
   fieldOf,
   lastPublished,
 }
-/*  Not a pure module */
+/* commandSchema Not a pure module */

package/tests/commandtopic/CommandTopicCallbackFixtures.res

@@ -1,4 +1,3 @@
-S.enableJson()
 
 // ─────────────────────────────────────────────────────────────
 // Command spec for CommandTopic_Callback tests

package/tests/commandtopic/CommandTopicCallbackFixtures.res.mjs

@@ -1,6 +1,6 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 import * as Stream from "@reventlessdev/rescript-effect/src/Stream.res.mjs";
 import * as Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
 import * as Effect from "effect/Effect";
@@ -8,18 +8,16 @@ import * as Stdlib_JsError from "@rescript/runtime/lib/es6/Stdlib_JsError.js";
 import * as Message$ReventlessCore from "../../src/Message.res.mjs";
 import * as CommandTopic_Callback$ReventlessCore from "../../src/components/CommandTopic/CommandTopic_Callback.res.mjs";
 
-S.enableJson();
-
 let name = "TestCommandTopic";
 
-let commandSchema = S.union([
-  S.schema(s => ({
+let commandSchema = Sury.union([
+  Sury.$schema(s => ({
     TAG: "CreateItem",
-    itemId: s.m(S.string)
+    itemId: s.m(Sury.string)
   })),
-  S.schema(s => ({
+  Sury.$schema(s => ({
     TAG: "DeleteItem",
-    itemId: s.m(S.string)
+    itemId: s.m(Sury.string)
   }))
 ]);
 
@@ -149,4 +147,4 @@ export {
   makeTopicItem,
   reset,
 }
-/*  Not a pure module */
+/* commandSchema Not a pure module */

package/tests/counter/CounterFixtures.res

@@ -1,4 +1,3 @@
-S.enableJson()
 
 // ─────────────────────────────────────────────────────────────
 // Shared captures — reset in beforeEach

package/tests/counter/CounterFixtures.res.mjs

@@ -1,13 +1,10 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
 import * as Stream from "@reventlessdev/rescript-effect/src/Stream.res.mjs";
 import * as Effect from "effect/Effect";
 import * as Message$ReventlessCore from "../../src/Message.res.mjs";
 import * as Counter_Callback$ReventlessCore from "../../src/components/Counter/Counter_Callback.res.mjs";
 
-S.enableJson();
-
 let capturedCountCalls = {
   contents: []
 };
@@ -64,4 +61,4 @@ export {
   makeCountsJson,
   reset,
 }
-/*  Not a pure module */
+/* TestCounterHandler Not a pure module */

package/tests/dcb/DcbDecodeTest.res.mjs

@@ -1,57 +1,57 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 import * as Primitive_string from "@rescript/runtime/lib/es6/Primitive_string.js";
 import * as DcbTag$Reventless from "@reventlessdev/reventless-spec/src/components/DcbTag.res.mjs";
 import * as DcbDecode$Reventless from "@reventlessdev/reventless-spec/src/components/DcbDecode.res.mjs";
 
-let eventSchema = S.union([
-  S.schema(s => ({
+let eventSchema = Sury.union([
+  Sury.$schema(s => ({
     TAG: "ItemCreated",
     itemId: s.m(DcbTag$Reventless.string),
-    name: s.m(S.string)
+    name: s.m(Sury.string)
   })),
-  S.schema(s => ({
+  Sury.$schema(s => ({
     TAG: "ItemRenamed",
     itemId: s.m(DcbTag$Reventless.string),
-    newName: s.m(S.string)
+    newName: s.m(Sury.string)
   })),
-  S.schema(s => ({
+  Sury.$schema(s => ({
     TAG: "ItemArchived",
     itemId: s.m(DcbTag$Reventless.string)
   }))
 ]);
 
-let consumedPayloadLessSchema = S.union([
-  S.literal("ItemCreated"),
-  S.literal("ItemArchived")
+let consumedPayloadLessSchema = Sury.union([
+  Sury.literal("ItemCreated"),
+  Sury.literal("ItemArchived")
 ]);
 
-let consumedPartialSchema = S.union([
-  S.schema(s => ({
+let consumedPartialSchema = Sury.union([
+  Sury.$schema(s => ({
     TAG: "ItemCreated",
-    itemId: s.m(S.string)
+    itemId: s.m(Sury.string)
   })),
-  S.schema(s => ({
+  Sury.$schema(s => ({
     TAG: "ItemRenamed",
-    itemId: s.m(S.string)
+    itemId: s.m(Sury.string)
   }))
 ]);
 
-let consumedFullSchema = S.union([
-  S.schema(s => ({
+let consumedFullSchema = Sury.union([
+  Sury.$schema(s => ({
     TAG: "ItemCreated",
-    itemId: s.m(S.string),
-    name: s.m(S.string)
+    itemId: s.m(Sury.string),
+    name: s.m(Sury.string)
   })),
-  S.schema(s => ({
+  Sury.$schema(s => ({
     TAG: "ItemRenamed",
-    itemId: s.m(S.string),
-    newName: s.m(S.string)
+    itemId: s.m(Sury.string),
+    newName: s.m(Sury.string)
   })),
-  S.schema(s => ({
+  Sury.$schema(s => ({
     TAG: "ItemArchived",
-    itemId: s.m(S.string)
+    itemId: s.m(Sury.string)
   }))
 ]);
 

package/tests/dcb/DcbEventLogOperationsTest.res

@@ -26,7 +26,7 @@ let _ = beforeEach(() => mock.reset())
 
 // Helper to encode a TestEventLogSpec event to a rawEvent for testing
 let encodeEvent = (event: DcbFixtures.TestEventLogSpec.event): ReventlessInfra.DcbEventLog.rawEvent => {
-  let json = event->S.reverseConvertToJsonOrThrow(DcbFixtures.TestEventLogSpec.eventSchema)
+  let json = event->Reventless.Util_Sury.toJson(DcbFixtures.TestEventLogSpec.eventSchema)
   let (eventType, data) = json->Message.splitMessage
   let tags = Reventless.DcbTag.extractTags(DcbFixtures.TestEventLogSpec.eventSchema, event)
   let meta = Message.generateMeta(~service="test")
@@ -39,7 +39,7 @@ let decodeEvent = (raw: ReventlessInfra.DcbEventLog.rawSequencedEvent): DcbFixtu
     raw.eventType,
     raw.data->JSON.Decode.object->Option.getOr(Dict.make()),
   )
-  json->S.parseJsonOrThrow(DcbFixtures.TestEventLogSpec.eventSchema)
+  json->Reventless.Util_Sury.fromJson(DcbFixtures.TestEventLogSpec.eventSchema)
 }
 
 describe("DcbEventLog_Operations:", () => {

package/tests/dcb/DcbEventLogOperationsTest.res.mjs

@@ -1,10 +1,10 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
 import * as Stdlib_JSON from "@rescript/runtime/lib/es6/Stdlib_JSON.js";
 import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
 import * as Stdlib_Result from "@rescript/runtime/lib/es6/Stdlib_Result.js";
 import * as DcbTag$Reventless from "@reventlessdev/reventless-spec/src/components/DcbTag.res.mjs";
+import * as Util_Sury$Reventless from "@reventlessdev/reventless-spec/src/util/Util_Sury.res.mjs";
 import * as Message$ReventlessCore from "../../src/Message.res.mjs";
 import * as DcbFixtures$ReventlessCore from "./DcbFixtures.res.mjs";
 import * as DcbEventLog_Operations$ReventlessCore from "../../src/components/DcbEventLog/DcbEventLog_Operations.res.mjs";
@@ -40,7 +40,7 @@ let OpsAlt = DcbEventLog_Operations$ReventlessCore.Make(TestOpsAlt);
 globalThis.beforeEach(() => mock.reset());
 
 function encodeEvent(event) {
-  let json = S.reverseConvertToJsonOrThrow(event, DcbFixtures$ReventlessCore.TestEventLogSpec.eventSchema);
+  let json = Util_Sury$Reventless.toJson(event, DcbFixtures$ReventlessCore.TestEventLogSpec.eventSchema);
   let match = Message$ReventlessCore.splitMessage(json);
   let tags = DcbTag$Reventless.extractTags(DcbFixtures$ReventlessCore.TestEventLogSpec.eventSchema, event);
   let meta = Message$ReventlessCore.generateMeta("test", undefined, undefined, undefined, undefined, undefined, undefined, undefined);
@@ -54,7 +54,7 @@ function encodeEvent(event) {
 
 function decodeEvent(raw) {
   let json = Message$ReventlessCore.combineMessage(raw.eventType, Stdlib_Option.getOr(Stdlib_JSON.Decode.object(raw.data), {}));
-  return S.parseJsonOrThrow(json, DcbFixtures$ReventlessCore.TestEventLogSpec.eventSchema);
+  return Util_Sury$Reventless.fromJson(json, DcbFixtures$ReventlessCore.TestEventLogSpec.eventSchema);
 }
 
 globalThis.describe("DcbEventLog_Operations:", () => {

package/tests/dcb/DcbEventLogSchemaTest.res.mjs

@@ -1,14 +1,14 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 import * as DcbTag$Reventless from "@reventlessdev/reventless-spec/src/components/DcbTag.res.mjs";
 import * as StorageRef$Reventless from "@reventlessdev/reventless-spec/src/semantic/StorageRef.res.mjs";
 import * as Dcb_Builder$ReventlessCore from "../../src/components/Dcb/Dcb_Builder.res.mjs";
 import * as StorageRefFields$ReventlessCore from "../../src/components/Api/StorageRefFields.res.mjs";
 
 function variant(tag, fields) {
-  return S.object(s => {
-    s.f("TAG", S.literal(tag));
+  return Sury.object(s => {
+    s.f("TAG", Sury.literal(tag));
     fields.forEach(param => {
       s.f(param[0], param[1]);
     });
@@ -19,19 +19,19 @@ function ref_(store) {
   return StorageRef$Reventless.forStore(undefined, store);
 }
 
-let addCategory = S.union([variant("CategoryAdded", [[
+let addCategory = Sury.union([variant("CategoryAdded", [[
       "imageUrl",
       StorageRef$Reventless.forStore(undefined, "categoryImages")
     ]])]);
 
-let addProduct = S.union([variant("ProductAdded", [[
+let addProduct = Sury.union([variant("ProductAdded", [[
       "imageUrl",
       StorageRef$Reventless.forStore(undefined, "productImages")
     ]])]);
 
-let renameCategory = S.union([variant("CategoryRenamed", [[
+let renameCategory = Sury.union([variant("CategoryRenamed", [[
       "name",
-      S.string
+      Sury.string
     ]])]);
 
 globalThis.describe("Dcb_Builder.mergedEventSchema", () => {

package/tests/dcb/DcbFixtures.res

@@ -1,4 +1,3 @@
-S.enableJson()
 
 // --- Test Event Log Spec (events with DCB tags) ---