From 4c45f50eb5950d9dfc21fe36839d90c77de13d54 Mon Sep 17 00:00:00 2001
From: Estevan Castilho <tevo@riajuu.net>
Date: Sun, 23 Aug 2026 03:52:36 +0000
Subject: Registration tests stub

---
 test/integration/Registration.ml | 21 +++++++++++++++++++++
 test/test_rnt.ml                 |  1 +
 2 files changed, 22 insertions(+)
 create mode 100644 test/integration/Registration.ml

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
-- 
cgit v1.2.3