Revert "format"

This reverts commit fee14f4b29840357f87f02d51953f41ce90f7d9e.

4 files changed, 19 insertions, 22 deletions

diff --git a/test/Helpers.ml b/test/Helpers.ml
index aa24160..784170c 100644
--- a/test/Helpers.ml
+++ b/test/Helpers.ml
@@ -33,12 +33,12 @@ module Storage = struct
   module Make (S : Abstract.Storage.STORAGE) (C : CONFIGURATOR) = struct
     let with_connection f dir () =
       with_temporary_directory dir begin fun dir ->
-          begin
-            let open Utilities.Result in
-            let* conn = S.connect (C.configure dir) in
-            Ok (f conn)
-          end
-          |> condition_as_failure
+        begin
+          let open Utilities.Result in
+          let* conn = S.connect (C.configure dir) in
+          Ok (f conn)
+        end
+        |> condition_as_failure
         end
   end
 end
diff --git a/test/test_rnt.ml b/test/test_rnt.ml
index 584ea65..d46be1e 100644
--- a/test/test_rnt.ml
+++ b/test/test_rnt.ml
@@ -2,8 +2,6 @@ let all_suites =
   Unit.Concepts.Serialization.suites ()
   @ Unit.Backend.Storage.suites ()
   @ Unit.Backend.Lifecycle.suites ()
-  @ [Unit.Backend.ObjectManager.suite]
   @ Unit.Kernel.Merkle.suites ()
-  @ [Unit.Kernel.Runtime.suite]
 
 let () = Alcotest.run "RNT" all_suites
diff --git a/test/unit/backend/Storage.ml b/test/unit/backend/Storage.ml
index 970e2c4..76bda8b 100644
--- a/test/unit/backend/Storage.ml
+++ b/test/unit/backend/Storage.ml
@@ -2,6 +2,7 @@ open Rnt
 
 module Make (S : Abstract.Storage.STORAGE) (C : Helpers.Storage.CONFIGURATOR) = struct
   open Alcotest
+
   module H = Helpers.Storage.Make (S) (C)
 
   let storage_and_retrieval conn =
@@ -25,8 +26,7 @@ module Make (S : Abstract.Storage.STORAGE) (C : Helpers.Storage.CONFIGURATOR) =
 
   let suite prefix =
     ( "storage/" ^ prefix,
-      [ test_case "storage-and-retrieval" `Quick
-          (H.with_connection storage_and_retrieval "storage-test") ] )
+      [test_case "storage-and-retrieval" `Quick (H.with_connection storage_and_retrieval "storage-test")] )
 end
 
 module LMDB = Make (Rnt.Backend.Storage.LMDB) (Helpers.Storage.LMDB_Configurator)
diff --git a/test/unit/kernel/Merkle.ml b/test/unit/kernel/Merkle.ml
index ae15cf1..f12182a 100644
--- a/test/unit/kernel/Merkle.ml
+++ b/test/unit/kernel/Merkle.ml
@@ -10,6 +10,7 @@ end
 
 module Make (S : Abstract.Storage.STORAGE) (C : Helpers.Storage.CONFIGURATOR) = struct
   open Alcotest
+
   module H = Helpers.Storage.Make (S) (C)
   module T = Rnt.Kernel.Merkle.Interface (S) (StringKey) (StringKey)
 
@@ -19,11 +20,10 @@ module Make (S : Abstract.Storage.STORAGE) (C : Helpers.Storage.CONFIGURATOR) =
       begin
         let open Utilities.Result in
         let* tx = S.start conn in
-        let* node =
-          T.empty
-          |> T.insert tx "k1" "v1"
-          |> fmap (T.insert tx "k2" "v2")
-          |> fmap (T.insert tx "k3" "v3")
+        let* node = T.empty
+                    |> T.insert tx "k1" "v1"
+                    |> fmap (T.insert tx "k2" "v2")
+                    |> fmap (T.insert tx "k3" "v3")
         in
         let* node' = T.insert tx "k3" "toodles" node in
         let* v1 = T.lookup tx "k1" node in
@@ -46,11 +46,10 @@ module Make (S : Abstract.Storage.STORAGE) (C : Helpers.Storage.CONFIGURATOR) =
       begin
         let open Utilities.Result in
         let* tx = S.start conn in
-        let* node =
-          T.empty
-          |> T.insert tx "k1" "v1"
-          |> fmap (T.insert tx "k2" "v2")
-          |> fmap (T.insert tx "k3" "v3")
+        let* node = T.empty
+                    |> T.insert tx "k1" "v1"
+                    |> fmap (T.insert tx "k2" "v2")
+                    |> fmap (T.insert tx "k3" "v3")
         in
         let* () = S.commit tx in
         Ok (T.hash_of node)
@@ -79,8 +78,8 @@ module Make (S : Abstract.Storage.STORAGE) (C : Helpers.Storage.CONFIGURATOR) =
 
   let suite prefix =
     ( "merkle/" ^ prefix,
-      [ test_case "insert-and-lookup" `Quick (H.with_connection insert_and_lookup "merkle-test");
-        test_case "persistence" `Quick (H.with_connection persistence "merkle-test") ] )
+      [test_case "insert-and-lookup" `Quick (H.with_connection insert_and_lookup "merkle-test");
+       test_case "persistence" `Quick (H.with_connection persistence "merkle-test")])
 end
 
 module LMDB = Make (Rnt.Backend.Storage.LMDB) (Helpers.Storage.LMDB_Configurator)