diff options
| author | Estevan Castilho <tevo@riajuu.net> | 2026-09-24 02:17:01 +0000 |
|---|---|---|
| committer | Estevan Castilho <tevo@riajuu.net> | 2026-09-24 02:17:01 +0000 |
| commit | 5a1088413468f171886d39339a8de96697af64c5 (patch) | |
| tree | 0aca7b8ff9e5a1c8e0a907102f31408689fd0a0f /test/integration/Registration.ml | |
| parent | 2d7c5b7c6696f39028ab07064ff75548d71ee5cf (diff) | |
| download | RNT-5a1088413468f171886d39339a8de96697af64c5.tar.gz RNT-5a1088413468f171886d39339a8de96697af64c5.zip | |
Multigroup registration stub
Diffstat (limited to 'test/integration/Registration.ml')
| -rw-r--r-- | test/integration/Registration.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/test/integration/Registration.ml b/test/integration/Registration.ml index 9eb3e4e..a50bc2a 100644 --- a/test/integration/Registration.ml +++ b/test/integration/Registration.ml @@ -6,13 +6,16 @@ module Make (S : Abstract.Storage.STORAGE) (C : Helpers.Storage.CONFIGURATOR) = module H = Helpers.Storage.Make (S) (C) module I = Kernel.Initialization.Make (S) module B = Kernel.Branch.Make (S) + module M = Kernel.Multigroup.Make (S) let run conn = let open Utilities.Result in begin let* root = I.initialize ~evaluators:["fol", Evaluators.FOL.make ()] conn in + let* multigroup = M.make conn in let* branch = B.make conn in - Kernel.Path.(update root ("branch" @/ this) "master" None (Some branch)) + let* branch' = Kernel.Path.(assoc branch ("multigroup" @/ this) "library" (Some multigroup)) in + Kernel.Path.(update root ("branch" @/ this) "master" None (Some branch')) end |> Helpers.condition_as_failure |> ignore; begin |