diff options
| -rw-r--r-- | test/integration/Registration.ml | 21 | ||||
| -rw-r--r-- | test/test_rnt.ml | 1 |
2 files changed, 22 insertions, 0 deletions
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"] diff --git a/test/test_rnt.ml b/test/test_rnt.ml index c4fbbaf..a118898 100644 --- a/test/test_rnt.ml +++ b/test/test_rnt.ml @@ -1,4 +1,5 @@ let all_suites = Unit.Backend.Storage.suites () + @ Integration.Registration.suites () let () = Alcotest.run "RNT" all_suites |