@reventlessdev/reventless-core 3.0.0-alpha.169 → 3.0.0-alpha.171

package/src/plugin/component/Plugin_Builder.res

@@ -56,6 +56,7 @@ module Make = (
     ~outboundTranslationSlices: array<module(ReventlessInfra.OutboundTranslationSlice.T)>,
     ~inboundTranslationSlices: array<module(ReventlessInfra.InboundTranslationSlice.T)>,
     ~systemCallableComponents: array<string>,
+    ~componentRuntime: dict<ReventlessInfra.RuntimeHints.t>,
     ~uiFragments: option<Reventless.Plugin.uiFragmentManifest>,
     ~pluginStructure: option<Reventless.Plugin.pluginStructure>,
     self,
@@ -133,7 +134,8 @@ module Make = (
     // AutomationSlices created inside DcbBuilder. The same `aggregateEventTopics`
     // dict (after merging in the DCB EventLog topic) is reused later as
     // `allEventTopics` for ReadModels.
-    let aggregatesWithoutEventMappers = aggregates->createAggregatesWithoutEventMappers(~api, opts)
+    let aggregatesWithoutEventMappers =
+      aggregates->createAggregatesWithoutEventMappers(~api, ~componentRuntime, opts)
     let aggregateEventTopics = Aggregate.allEventTopics(aggregatesWithoutEventMappers)
 
     // Construct DCB components and derive DCB-specific API schema entries
@@ -157,6 +159,7 @@ module Make = (
       ~outboundTranslationSlices,
       ~inboundTranslationSlices,
       ~systemCallableComponents,
+      ~componentRuntime,
       ~pluginStructure?,
       ~opts,
     )
@@ -335,7 +338,8 @@ module Make = (
     | None => ()
     }
 
-    let readModelsOutputs = readModels->createReadModels(~api, ~apiRole, allEventTopics, opts)
+    let readModelsOutputs =
+      readModels->createReadModels(~api, ~apiRole, ~componentRuntime, allEventTopics, opts)
     let allQueryDbs = readModelsOutputs->ReadModel.allQueryDbs
     // Merge DCB StateViewSlice, InboundTranslation, AutomationSlice, and
     // OutboundTranslation QueryDbs into allQueryDbs so createResolvers builds
@@ -613,6 +617,7 @@ module Make = (
             ~scheduler,
             ~queryEngine,
             ~resourceNaming=Spec.resourceNaming,
+            ~componentRuntime,
             ~opts,
           )
 
@@ -858,6 +863,7 @@ module Make = (
           ~publishToAggregates,
           ~queryEngine,
           ~resourceNaming=Spec.resourceNaming,
+          ~componentRuntime,
           ~opts,
         )
 
@@ -1063,6 +1069,7 @@ module Make = (
     ~outboundTranslationSlices=[],
     ~inboundTranslationSlices=[],
     ~systemCallableComponents=[],
+    ~componentRuntime=Dict.make(),
     ~uiFragments: option<Reventless.Plugin.uiFragmentManifest>=?,
     ~pluginStructure: option<Reventless.Plugin.pluginStructure>=?,
     ~opts=?,
@@ -1086,6 +1093,7 @@ module Make = (
         ~outboundTranslationSlices,
         ~inboundTranslationSlices,
         ~systemCallableComponents,
+        ~componentRuntime,
         ~uiFragments,
         ~pluginStructure,
         ...

package/src/plugin/component/Plugin_Builder.res.mjs

@@ -103,7 +103,7 @@ function Make(Spec) {
       let componentChapters = componentChaptersOpt !== undefined ? componentChaptersOpt : ({});
       return Plugin_Structure$ReventlessCore.make(name, aggregates, readModels, stateViewSlices, stateChangeSlices, automationSlices, outboundTranslationSlices, inboundTranslationSlices, extensions, extensionPoints, componentChapters);
     };
-    let make = (name, heartbeatInterval, extensionPointsOpt, extensionsOpt, aggregatesOpt, readModelsOpt, tasksOpt, stateChangeSlicesOpt, stateViewSlicesOpt, automationSlicesOpt, outboundTranslationSlicesOpt, inboundTranslationSlicesOpt, systemCallableComponentsOpt, uiFragments, pluginStructure, opts) => {
+    let make = (name, heartbeatInterval, extensionPointsOpt, extensionsOpt, aggregatesOpt, readModelsOpt, tasksOpt, stateChangeSlicesOpt, stateViewSlicesOpt, automationSlicesOpt, outboundTranslationSlicesOpt, inboundTranslationSlicesOpt, systemCallableComponentsOpt, componentRuntimeOpt, uiFragments, pluginStructure, opts) => {
       let extensionPoints = extensionPointsOpt !== undefined ? extensionPointsOpt : [];
       let extensions = extensionsOpt !== undefined ? extensionsOpt : [];
       let aggregates = aggregatesOpt !== undefined ? aggregatesOpt : [];
@@ -115,6 +115,7 @@ function Make(Spec) {
       let outboundTranslationSlices = outboundTranslationSlicesOpt !== undefined ? outboundTranslationSlicesOpt : [];
       let inboundTranslationSlices = inboundTranslationSlicesOpt !== undefined ? inboundTranslationSlicesOpt : [];
       let systemCallableComponents = systemCallableComponentsOpt !== undefined ? systemCallableComponentsOpt : [];
+      let componentRuntime = componentRuntimeOpt !== undefined ? componentRuntimeOpt : ({});
       PluginRuntimeBuilder.registerPluginName(name);
       let version = PackageVersion$Reventless.fromCaller();
       return Component$ReventlessCore.make(ComponentType$ReventlessCore.toString(Plugin$ReventlessCore.componentType), name, (extra, extra$1) => {
@@ -142,12 +143,12 @@ function Make(Spec) {
           parent: opts_parent
         };
         let childName = ComponentType$ReventlessCore.name(extra$1, Plugin$ReventlessCore.componentType);
-        let aggregatesWithoutEventMappers = Plugin_Helpers$ReventlessCore.createAggregatesWithoutEventMappers(aggregates, api, opts);
+        let aggregatesWithoutEventMappers = Plugin_Helpers$ReventlessCore.createAggregatesWithoutEventMappers(aggregates, api, componentRuntime, opts);
         let aggregateEventTopics = Aggregate$ReventlessCore.allEventTopics(aggregatesWithoutEventMappers);
         let DcbBuilder = Dcb_Builder$ReventlessCore.Make(DcbEventLogStorage)(DcbEventTopicPublisher)(DcbCommandTopicChannel)(DcbCommandTopicChannelAsync)(PluginRuntimeBuilder)({
           hooks: Spec.hooks
         });
-        let dcbResult = DcbBuilder.construct(extra$1, childName, undefined, undefined, Spec.environment, Spec.platformName, aggregateEventTopics, stateChangeSlices, stateViewSlices, automationSlices, outboundTranslationSlices, inboundTranslationSlices, systemCallableComponents, pluginStructure, opts);
+        let dcbResult = DcbBuilder.construct(extra$1, childName, undefined, undefined, Spec.environment, Spec.platformName, aggregateEventTopics, stateChangeSlices, stateViewSlices, automationSlices, outboundTranslationSlices, inboundTranslationSlices, systemCallableComponents, componentRuntime, pluginStructure, opts);
         let mutationEntriesFromAggregates = aggregates.flatMap(M => {
           let commandSchema = M.Spec.commandSchema;
           if (ApiNoApiHelpers$ReventlessCore.isNoApi(commandSchema)) {
@@ -252,7 +253,7 @@ function Make(Spec) {
         if (dcbOutputs !== undefined) {
           aggregateEventTopics[extra$1 + "DcbEventLog"] = dcbOutputs.eventTopic;
         }
-        let readModelsOutputs = Plugin_Helpers$ReventlessCore.createReadModels(readModels, api, apiRole, aggregateEventTopics, opts);
+        let readModelsOutputs = Plugin_Helpers$ReventlessCore.createReadModels(readModels, api, apiRole, componentRuntime, aggregateEventTopics, opts);
         let allQueryDbs = ReadModel$ReventlessCore.allQueryDbs(readModelsOutputs);
         Object.entries(dcbResult.stateViewSlicesOutputs).forEach(param => {
           allQueryDbs[param[0]] = param[1].queryDb;
@@ -428,7 +429,7 @@ function Make(Spec) {
           let localAdminResolvedEP = match[1];
           let interstackAdminExtensionPoints = match[0];
           let aggregatesOutputs = Plugin_Helpers$ReventlessCore.addEventMappers(aggregateEventTopics, queryEngine);
-          let match$1 = Plugin_Helpers$ReventlessCore.createExtensionPoints(extensionPoints, aggregateResources, publishToAggregates, scheduler, queryEngine, Spec.resourceNaming, opts);
+          let match$1 = Plugin_Helpers$ReventlessCore.createExtensionPoints(extensionPoints, aggregateResources, publishToAggregates, scheduler, queryEngine, Spec.resourceNaming, componentRuntime, opts);
           let extensionPointsHandlers = match$1[1];
           let extensionPointsOutputs = match$1[0];
           let coreSetup;
@@ -531,7 +532,7 @@ function Make(Spec) {
           } else {
             EventCollectorHelper.connect(eventCollector, eventTopics, extensionPointsOutputs, extensionsOutputs, undefined, pluginDefinition, Primitive_option.some(uiFragments), undefined, extensionsHandlers, extensionPointsHandlers, undefined, extensionRegistryInfos, undefined, aggregateQueueUrls, readModelQueueUrls, Plugin_Helpers$ReventlessCore.readModelNamesForSourceName);
           }
-          let tasksOutputs = Plugin_Helpers$ReventlessCore.createTasks(tasks, aggregatesOutputs, scheduler, schedulerRoleUrn, publishToAggregates, queryEngine, Spec.resourceNaming, opts);
+          let tasksOutputs = Plugin_Helpers$ReventlessCore.createTasks(tasks, aggregatesOutputs, scheduler, schedulerRoleUrn, publishToAggregates, queryEngine, Spec.resourceNaming, componentRuntime, opts);
           let resolvers = Plugin_Helpers$ReventlessCore.createResolvers(allQueryDbs);
           Stdlib_Option.forEach(Spec.hooks.subscriptionInfraHook, hook => hook({
             allQueryDbs: allQueryDbs,

package/src/plugin/component/Plugin_Helpers.res

@@ -416,6 +416,7 @@ let createTasks = (
   ~publishToAggregates,
   ~queryEngine,
   ~resourceNaming,
+  ~componentRuntime: dict<ReventlessInfra.RuntimeHints.t>,
   ~opts,
 ) => {
   tasksOutputs :=
@@ -429,6 +430,7 @@ let createTasks = (
         ~queryEngine,
         ~resourceNaming,
         ~allAggregates=aggregatesOutputs,
+        ~runtime=?componentRuntime->Dict.get(SpecificTask.Spec.name),
         ~opts=Some(opts),
       ))
     )

package/src/plugin/component/Plugin_Helpers.res.mjs

@@ -243,11 +243,11 @@ let tasksOutputs = {
   contents: []
 };
 
-function createTasks(tasks, aggregatesOutputs, scheduler, schedulerRoleUrn, publishToAggregates, queryEngine, resourceNaming, opts) {
+function createTasks(tasks, aggregatesOutputs, scheduler, schedulerRoleUrn, publishToAggregates, queryEngine, resourceNaming, componentRuntime, opts) {
   tasksOutputs.contents = tasks.map(SpecificTask => SpecificTask.outputs(SpecificTask.make((taskName, bucketNameOpt) => {
     let bucketName = bucketNameOpt !== undefined ? bucketNameOpt : "Bucket";
     return ResourceQueryRuntime$ReventlessCore.bucketNameOfTaskExn(tasksOutputs.contents, taskName, bucketName);
-  }, scheduler, schedulerRoleUrn, publishToAggregates, queryEngine, resourceNaming, aggregatesOutputs, opts)));
+  }, scheduler, schedulerRoleUrn, publishToAggregates, queryEngine, resourceNaming, aggregatesOutputs, componentRuntime[SpecificTask.Spec.name], opts)));
   return tasksOutputs.contents;
 }
 

package/src/plugin/connect/PluginExtensionPoint_Builder.res

@@ -17,6 +17,7 @@ module Make = (
   EventTopicAdapter: EventTopic_Adapter.Publisher,
   ExtensionPointRuntimeBuilder: ExtensionPointRuntime_Builder.T
     with module CommandTopicChannel := CommandTopicChannel,
+  Defaults: ReventlessInfra.RuntimeDefaults.T,
 ): ExtensionPoint.T => {
   module PluginMappingInstance = PluginExtensionPoint_Plugin.Make(Spec)
 
@@ -41,5 +42,6 @@ module Make = (
     CommandTopicChannel,
     EventTopicAdapter,
     ExtensionPointRuntimeBuilder,
+    Defaults,
   )
 }

package/src/plugin/connect/PluginExtensionPoint_Builder.res.mjs

@@ -6,7 +6,7 @@ import * as PluginExtensionPoint_Plugin$ReventlessCore from "./PluginExtensionPo
 import * as PluginExtensionPoint_UiFragment$ReventlessCore from "./PluginExtensionPoint_UiFragment.res.mjs";
 
 function Make(Spec) {
-  return RuntimeEnvironment => (CommandTopicChannel => (EventTopicAdapter => (ExtensionPointRuntimeBuilder => {
+  return RuntimeEnvironment => (CommandTopicChannel => (EventTopicAdapter => (ExtensionPointRuntimeBuilder => (Defaults => {
     let PluginMappingInstance = PluginExtensionPoint_Plugin$ReventlessCore.Make(Spec);
     let name = PluginMappingInstance.Mapping.delegateName;
     let mappings = [
@@ -24,8 +24,8 @@ function Make(Spec) {
       commandSchema: PluginExtensionPointSpec$ReventlessInfra.commandSchema,
       eventSchema: PluginExtensionPointSpec$ReventlessInfra.eventSchema,
       directiveSchema: PluginExtensionPointSpec$ReventlessInfra.directiveSchema
-    })(Mappings)(RuntimeEnvironment)(CommandTopicChannel)(EventTopicAdapter)(ExtensionPointRuntimeBuilder);
-  })));
+    })(Mappings)(RuntimeEnvironment)(CommandTopicChannel)(EventTopicAdapter)(ExtensionPointRuntimeBuilder)(Defaults);
+  }))));
 }
 
 let PluginExtensionPointSpec;

package/tests/plugin/ManifestVisibilityTest.res

@@ -48,7 +48,7 @@ module PublicReadModel: ReventlessInfra.ReadModel.T
   // A read model that projects an event reaching it via a (DCB-log-sourced) mapping — the
   // case Plugin_Structure must surface as a qualified `consumedEventTypes` entry.
   let consumedEventNames: array<string> = ["OrderPlaced"]
-  let make = (~api as _, ~apiRole as _, ~allEventTopics as _, ~opts as _=?): component =>
+  let make = (~api as _, ~apiRole as _, ~allEventTopics as _, ~runtime as _=?, ~opts as _=?): component =>
     Obj.magic(0)
   let outputs = (_: component): ReventlessInfra.ReadModel.outputs => Obj.magic(0)
   let operations = (_: component): Pulumi.Output.t<ReventlessInfra.ReadModel.operations> =>
@@ -64,7 +64,7 @@ module InternalReadModel: ReventlessInfra.ReadModel.T
   type component
   let sourceNames: array<string> = []
   let consumedEventNames: array<string> = []
-  let make = (~api as _, ~apiRole as _, ~allEventTopics as _, ~opts as _=?): component =>
+  let make = (~api as _, ~apiRole as _, ~allEventTopics as _, ~runtime as _=?, ~opts as _=?): component =>
     Obj.magic(0)
   let outputs = (_: component): ReventlessInfra.ReadModel.outputs => Obj.magic(0)
   let operations = (_: component): Pulumi.Output.t<ReventlessInfra.ReadModel.operations> =>

package/tests/plugin/PluginStructureTest.res

@@ -27,7 +27,7 @@ module PsPlaceOrderSlice: ReventlessInfra.StateChangeSlice.T = {
   }
   let isAsync = false
   type component = scsComponent
-  let make = (~dcbEventLog as _, ~publishJsons as _, ~tagKeysByEventType as _=?, ~crossPartitionTagKeys as _=?, ~opts as _=?): component => Obj.magic(0)
+  let make = (~dcbEventLog as _, ~publishJsons as _, ~tagKeysByEventType as _=?, ~crossPartitionTagKeys as _=?, ~runtime as _=?, ~opts as _=?): component => Obj.magic(0)
 }
 module PsShipOrderSlice: ReventlessInfra.StateChangeSlice.T = {
   module Spec = PsShipOrder
@@ -40,7 +40,7 @@ module PsShipOrderSlice: ReventlessInfra.StateChangeSlice.T = {
   }
   let isAsync = false
   type component = scsComponent
-  let make = (~dcbEventLog as _, ~publishJsons as _, ~tagKeysByEventType as _=?, ~crossPartitionTagKeys as _=?, ~opts as _=?): component => Obj.magic(0)
+  let make = (~dcbEventLog as _, ~publishJsons as _, ~tagKeysByEventType as _=?, ~crossPartitionTagKeys as _=?, ~runtime as _=?, ~opts as _=?): component => Obj.magic(0)
 }
 module PsOrdersViewSlice: ReventlessInfra.StateViewSlice.T = {
   module Spec = PsOrdersView
@@ -49,7 +49,7 @@ module PsOrdersViewSlice: ReventlessInfra.StateViewSlice.T = {
     let moduleUrl = PsOrdersView.moduleUrl
   }
   type component = svsComponent
-  let make = (~dcbEventLog as _, ~opts as _=?): component => Obj.magic(0)
+  let make = (~dcbEventLog as _, ~runtime as _=?, ~opts as _=?): component => Obj.magic(0)
 }
 module PsAvailableProductsViewSlice: ReventlessInfra.StateViewSlice.T = {
   module Spec = PsAvailableProductsView
@@ -58,7 +58,7 @@ module PsAvailableProductsViewSlice: ReventlessInfra.StateViewSlice.T = {
     let moduleUrl = PsAvailableProductsView.moduleUrl
   }
   type component = svsComponent
-  let make = (~dcbEventLog as _, ~opts as _=?): component => Obj.magic(0)
+  let make = (~dcbEventLog as _, ~runtime as _=?, ~opts as _=?): component => Obj.magic(0)
 }
 module PsCustomersViewSlice: ReventlessInfra.StateViewSlice.T = {
   module Spec = PsCustomersView
@@ -67,7 +67,7 @@ module PsCustomersViewSlice: ReventlessInfra.StateViewSlice.T = {
     let moduleUrl = PsCustomersView.moduleUrl
   }
   type component = svsComponent
-  let make = (~dcbEventLog as _, ~opts as _=?): component => Obj.magic(0)
+  let make = (~dcbEventLog as _, ~runtime as _=?, ~opts as _=?): component => Obj.magic(0)
 }
 module PsAnnotatedViewSlice: ReventlessInfra.StateViewSlice.T = {
   module Spec = PsAnnotatedView
@@ -76,7 +76,7 @@ module PsAnnotatedViewSlice: ReventlessInfra.StateViewSlice.T = {
     let moduleUrl = PsAnnotatedView.moduleUrl
   }
   type component = svsComponent
-  let make = (~dcbEventLog as _, ~opts as _=?): component => Obj.magic(0)
+  let make = (~dcbEventLog as _, ~runtime as _=?, ~opts as _=?): component => Obj.magic(0)
 }
 
 let structure = Plugin_Structure.make(

package/tests/IdentityTest.res.mjs

@@ -1,174 +0,0 @@
-// Generated by ReScript, PLEASE EDIT WITH CARE
-
-import * as S from "sury/src/S.res.mjs";
-import * as Identity$Reventless from "@reventlessdev/reventless-spec/src/types/Identity.res.mjs";
-import * as RequestContext$ReventlessCore from "../src/RequestContext.res.mjs";
-
-S.enableJson();
-
-globalThis.describe("Identity", () => {
-  globalThis.describe("anonymous", () => {
-    globalThis.test("has userId 'anonymous'", () => {
-      globalThis.expect(Identity$Reventless.anonymous.userId).toBe("anonymous");
-    });
-    globalThis.test("has empty groups", () => {
-      globalThis.expect(Identity$Reventless.anonymous.groups).toEqual([]);
-    });
-    globalThis.test("has InMemory provider", () => {
-      globalThis.expect(Identity$Reventless.anonymous.provider).toEqual("InMemory");
-    });
-  });
-  globalThis.describe("hasGroup", () => {
-    let identity_groups = [
-      "admin",
-      "editors"
-    ];
-    let identity = {
-      userId: "user-1",
-      username: "alice",
-      groups: identity_groups,
-      provider: "Cognito"
-    };
-    globalThis.test("returns true when group is present", () => {
-      globalThis.expect(Identity$Reventless.hasGroup(identity, "admin")).toBe(true);
-    });
-    globalThis.test("returns false when group is absent", () => {
-      globalThis.expect(Identity$Reventless.hasGroup(identity, "viewers")).toBe(false);
-    });
-  });
-  globalThis.describe("getClaim", () => {
-    let identity_groups = [];
-    let identity_claims = Object.fromEntries([
-      [
-        "tenant",
-        "acme"
-      ],
-      [
-        "role",
-        "manager"
-      ]
-    ]);
-    let identity = {
-      userId: "user-1",
-      username: "alice",
-      groups: identity_groups,
-      claims: identity_claims,
-      provider: "InMemory"
-    };
-    globalThis.test("returns Some for existing claim", () => {
-      globalThis.expect(Identity$Reventless.getClaim(identity, "tenant")).toEqual("acme");
-    });
-    globalThis.test("returns None for missing claim", () => {
-      globalThis.expect(Identity$Reventless.getClaim(identity, "missing")).toEqual(undefined);
-    });
-    globalThis.test("returns None when claims are absent", () => {
-      let noClaims_groups = [];
-      let noClaims = {
-        userId: "user-2",
-        username: "bob",
-        groups: noClaims_groups,
-        provider: "InMemory"
-      };
-      globalThis.expect(Identity$Reventless.getClaim(noClaims, "tenant")).toEqual(undefined);
-    });
-  });
-  globalThis.describe("schema roundtrip", () => {
-    globalThis.test("encode then decode preserves identity", () => {
-      let identity_groups = ["admin"];
-      let identity_claims = Object.fromEntries([[
-          "tenant",
-          "acme"
-        ]]);
-      let identity = {
-        userId: "user-1",
-        username: "alice",
-        groups: identity_groups,
-        claims: identity_claims,
-        provider: "Cognito"
-      };
-      let json = S.reverseConvertToJsonOrThrow(identity, Identity$Reventless.schema);
-      let decoded = S.parseJsonOrThrow(json, Identity$Reventless.schema);
-      globalThis.expect(decoded).toEqual(identity);
-    });
-    globalThis.test("roundtrip with Custom provider", () => {
-      let identity_groups = [];
-      let identity_provider = {
-        TAG: "Custom",
-        _0: "oauth2"
-      };
-      let identity = {
-        userId: "ext-1",
-        username: "external",
-        groups: identity_groups,
-        provider: identity_provider
-      };
-      let json = S.reverseConvertToJsonOrThrow(identity, Identity$Reventless.schema);
-      let decoded = S.parseJsonOrThrow(json, Identity$Reventless.schema);
-      globalThis.expect(decoded).toEqual(identity);
-    });
-    globalThis.test("roundtrip without optional claims", () => {
-      let identity_groups = [];
-      let identity = {
-        userId: "user-3",
-        username: "charlie",
-        groups: identity_groups,
-        provider: "InMemory"
-      };
-      let json = S.reverseConvertToJsonOrThrow(identity, Identity$Reventless.schema);
-      let decoded = S.parseJsonOrThrow(json, Identity$Reventless.schema);
-      globalThis.expect(decoded.userId).toBe("user-3");
-      globalThis.expect(decoded.provider).toEqual("InMemory");
-    });
-  });
-});
-
-globalThis.describe("RequestContext", () => {
-  globalThis.describe("test() constructor", () => {
-    globalThis.test("defaults to anonymous identity", () => {
-      let ctx = RequestContext$ReventlessCore.test(undefined, undefined, undefined);
-      globalThis.expect(ctx.identity.userId).toBe("anonymous");
-    });
-    globalThis.test("accepts custom identity", () => {
-      let identity_groups = ["admin"];
-      let identity = {
-        userId: "user-1",
-        username: "alice",
-        groups: identity_groups,
-        provider: "Cognito"
-      };
-      let ctx = RequestContext$ReventlessCore.test(undefined, identity, undefined);
-      globalThis.expect(ctx.identity.userId).toBe("user-1");
-    });
-    globalThis.test("defaults to empty claims", () => {
-      let ctx = RequestContext$ReventlessCore.test(undefined, undefined, undefined);
-      globalThis.expect(Object.keys(ctx.claims)).toEqual([]);
-    });
-  });
-  globalThis.describe("getClaim", () => {
-    globalThis.test("returns claim value when present", () => {
-      let ctx = RequestContext$ReventlessCore.test(undefined, undefined, Object.fromEntries([[
-          "tenant",
-          "acme"
-        ]]));
-      globalThis.expect(RequestContext$ReventlessCore.getClaim(ctx, "tenant")).toEqual("acme");
-    });
-    globalThis.test("returns None when absent", () => {
-      let ctx = RequestContext$ReventlessCore.test(undefined, undefined, undefined);
-      globalThis.expect(RequestContext$ReventlessCore.getClaim(ctx, "missing")).toEqual(undefined);
-    });
-  });
-  globalThis.describe("withClaim", () => {
-    globalThis.test("adds a claim to the context", () => {
-      let ctx = RequestContext$ReventlessCore.test(undefined, undefined, undefined);
-      let updated = RequestContext$ReventlessCore.withClaim(ctx, "tenant", "acme");
-      globalThis.expect(RequestContext$ReventlessCore.getClaim(updated, "tenant")).toEqual("acme");
-    });
-    globalThis.test("does not mutate the original context", () => {
-      let ctx = RequestContext$ReventlessCore.test(undefined, undefined, undefined);
-      RequestContext$ReventlessCore.withClaim(ctx, "tenant", "acme");
-      globalThis.expect(RequestContext$ReventlessCore.getClaim(ctx, "tenant")).toEqual(undefined);
-    });
-  });
-});
-
-/*  Not a pure module */

package/tests/adapter/MonitoringTest.res.mjs

@@ -1,82 +0,0 @@
-// Generated by ReScript, PLEASE EDIT WITH CARE
-
-import * as Monitoring$ReventlessCore from "../../src/adapter/Monitoring/Monitoring.res.mjs";
-
-let stubResource = {};
-
-globalThis.describe("Monitoring", () => {
-  globalThis.test("Noop default: notify is silent and does not throw", () => {
-    Monitoring$ReventlessCore.notify("CommandHandler", "before", stubResource);
-    globalThis.expect(true).toBe(true);
-  });
-  globalThis.test("use registers a backend that receives every notify, role and name", () => {
-    let recorded = [];
-    let onProvisioned = (kind, name, param) => {
-      recorded.push([
-        kind,
-        name
-      ]);
-    };
-    let Recorder = {
-      onProvisioned: onProvisioned
-    };
-    Monitoring$ReventlessCore.use(Recorder);
-    Monitoring$ReventlessCore.notify("CommandHandler", "AllAggregatesCmdHandler", stubResource);
-    Monitoring$ReventlessCore.notify("Projection", "AllStateViewSlices", stubResource);
-    Monitoring$ReventlessCore.notify("DeadLetterSink", "DeadLetterQueue", stubResource);
-    Monitoring$ReventlessCore.notify({
-      TAG: "Other",
-      _0: "Counter"
-    }, "ProductCounter", stubResource);
-    globalThis.expect(recorded).toEqual([
-      [
-        "CommandHandler",
-        "AllAggregatesCmdHandler"
-      ],
-      [
-        "Projection",
-        "AllStateViewSlices"
-      ],
-      [
-        "DeadLetterSink",
-        "DeadLetterQueue"
-      ],
-      [
-        {
-          TAG: "Other",
-          _0: "Counter"
-        },
-        "ProductCounter"
-      ]
-    ]);
-    Monitoring$ReventlessCore.use(Monitoring$ReventlessCore.Noop);
-  });
-  globalThis.test("notify forwards the static name and component resource to the backend", () => {
-    let seen = {
-      contents: undefined
-    };
-    let onProvisioned = (param, name, component) => {
-      seen.contents = [
-        name,
-        component
-      ];
-    };
-    let Capture = {
-      onProvisioned: onProvisioned
-    };
-    Monitoring$ReventlessCore.use(Capture);
-    Monitoring$ReventlessCore.notify("Scheduler", "HeartbeatUnit", stubResource);
-    let match = seen.contents;
-    if (match !== undefined) {
-      globalThis.expect(match[0]).toBe("HeartbeatUnit");
-    } else {
-      globalThis.expect("no notify received").toBe("a notify");
-    }
-    Monitoring$ReventlessCore.use(Monitoring$ReventlessCore.Noop);
-  });
-});
-
-export {
-  stubResource,
-}
-/*  Not a pure module */