diff options
Diffstat (limited to 'test/integration/Registration.ml')
| -rw-r--r-- | test/integration/Registration.ml | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/test/integration/Registration.ml b/test/integration/Registration.ml index daecc22..9ac26f4 100644 --- a/test/integration/Registration.ml +++ b/test/integration/Registration.ml @@ -2,7 +2,6 @@ open Rnt module Make (S : Abstract.Storage.STORAGE) (C : Helpers.Storage.CONFIGURATOR) = struct open Alcotest - module H = Helpers.Storage.Make (S) (C) module I = Kernel.Initialization.Make (S) module B = Kernel.Branch.Make (S) @@ -14,13 +13,18 @@ module Make (S : Abstract.Storage.STORAGE) (C : Helpers.Storage.CONFIGURATOR) = let* root = I.initialize ~evaluators:["fol", Evaluators.FOL.make ()] conn in let* multigroup = M.make conn in let* branch = B.make conn in - let* branch' = Kernel.Path.(assoc branch ("multigroup" @/ this) "library" (Some multigroup)) in + 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; + |> Helpers.condition_as_failure + |> ignore; begin let* root = I.initialize ~evaluators:["fol", Evaluators.FOL.make ()] conn in - let* _ = Kernel.Path.(lookup root ("branch" @/ "master" @/ "multigroup" @/ "library" @/ this)) in + let* _ = + Kernel.Path.(lookup root ("branch" @/ "master" @/ "multigroup" @/ "library" @/ this)) + in let* _ = Kernel.Path.(lookup root ("evaluator" @/ "fol" @/ this)) in Ok () end @@ -28,7 +32,7 @@ module Make (S : Abstract.Storage.STORAGE) (C : Helpers.Storage.CONFIGURATOR) = let suite prefix = ( "registration/" ^ prefix, - [test_case "registration tests" `Quick (H.with_connection run "registration-test")]) + [test_case "registration tests" `Quick (H.with_connection run "registration-test")] ) end module LMDB = Make (Rnt.Backend.Storage.LMDB) (Helpers.Storage.LMDB_Configurator) |