From 4c45f50eb5950d9dfc21fe36839d90c77de13d54 Mon Sep 17 00:00:00 2001 From: Estevan Castilho Date: Sun, 23 Aug 2026 03:52:36 +0000 Subject: Registration tests stub --- test/integration/Registration.ml | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 test/integration/Registration.ml (limited to 'test/integration') diff --git a/test/integration/Registration.ml b/test/integration/Registration.ml new file mode 100644 index 0000000..8e7ef56 --- /dev/null +++ b/test/integration/Registration.ml @@ -0,0 +1,21 @@ +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) + + let run conn = + (* let open Utilities.Result in *) + let _root = I.initialize conn |> Helpers.condition_as_failure in + () + + let suite prefix = + ( "registration/" ^ prefix, + [test_case "registration tests" `Quick (H.with_connection run "registration-test")]) +end + +module LMDB = Make (Rnt.Backend.Storage.LMDB) (Helpers.Storage.LMDB_Configurator) + +let suites () = [LMDB.suite "lmdb"] -- cgit v1.2.3