reformat mina_automation

Author: dkijania

src/test/mina_automation/daemon.ml

@@ -2,6 +2,7 @@
 Module to run daemon process.
 *)
 open Core
+
 open Integration_test_lib
 open Async
 
@@ -112,7 +113,6 @@ module Client = struct
 end
 
 module Config = struct
-
   module ConfigDirs = struct
     type t =
       { root_path : string
@@ -143,21 +143,31 @@ module Config = struct
     let mina_log t = t.conf ^/ "mina.log"
   end
 
-  type t = { port : int; dirs : ConfigDirs.t; config: Test_config.t ; runtime_config : Runtime_config.t; genesis_ledger : Genesis_ledger.t }
+  type t =
+    { port : int
+    ; dirs : ConfigDirs.t
+    ; config : Test_config.t
+    ; runtime_config : Runtime_config.t
+    ; genesis_ledger : Genesis_ledger.t
+    }
 
-  let create ?(port = 8031) ~(dirs:ConfigDirs.t) ~(config:Test_config.t) () =
+  let create ?(port = 8031) ~(dirs : ConfigDirs.t) ~(config : Test_config.t) ()
+      =
     let genesis_ledger = Genesis_ledger.create config.genesis_ledger in
     let runtime_config =
       Runtime_config_builder.create ~test_config:config ~genesis_ledger
     in
 
-    Yojson.Safe.to_file (dirs.conf ^/ "daemon.json")
+    Yojson.Safe.to_file
+      (dirs.conf ^/ "daemon.json")
       (Runtime_config.to_yojson runtime_config) ;
 
     { port; dirs; config; runtime_config; genesis_ledger }
 
   let default () =
-    create ~dirs:ConfigDirs.default ~config:(Test_config.default ~constants:Test_config.default_constants) ()
+    create ~dirs:ConfigDirs.default
+      ~config:(Test_config.default ~constants:Test_config.default_constants)
+      ()
 
   let libp2p_keypair_folder t = ConfigDirs.libp2p_keypair_folder t.dirs
 
@@ -203,10 +213,11 @@ let archive_blocks_from_files t ~archive_address ~format ?(sleep = 5) blocks =
       let%bind _ = archive_blocks t ~archive_address ~format [ block ] () in
       after (Time.Span.of_sec (Float.of_int sleep)) )
 
-let of_test_config test_config = {
-  config = Config.create ~dirs:Config.ConfigDirs.default ~config:test_config ()
+let of_test_config test_config =
+  { config =
+      Config.create ~dirs:Config.ConfigDirs.default ~config:test_config ()
   ; executor = Executor.AutoDetect
-}
+  }
 
 let of_config config = { config; executor = Executor.AutoDetect }
 

src/test/mina_automation/fixture/daemon.ml

@@ -43,7 +43,8 @@ module type TestCaseWithBootstrap = TestCase with type t = after_bootstrap
 
 module type TestCaseWithoutBootstrap = TestCase with type t = before_bootstrap
 
-module type TestCaseWithoutBootstrapAndWithSetup = TestCaseWithSetup with type t = Integration_test_lib.Test_config.t
+module type TestCaseWithoutBootstrapAndWithSetup =
+  TestCaseWithSetup with type t = Integration_test_lib.Test_config.t
 
 module Make_FixtureWithBootstrap (M : TestCaseWithBootstrap) :
   Fixture with type t = after_bootstrap = struct
@@ -111,10 +112,9 @@ module Make_FixtureWithBootstrapAndFromTestConfig
 
   let test_case = M.test_case
 
-  let setup () =
-    Deferred.Or_error.return ( M.setup () )
+  let setup () = Deferred.Or_error.return (M.setup ())
 
   let teardown _t = Deferred.Or_error.ok_unit
 
   let on_test_fail _t = Deferred.unit
-end
+end

src/test/mina_automation/fixture/daemon.mli

@@ -15,13 +15,15 @@ module type TestCaseWithBootstrap = TestCase with type t = after_bootstrap
 
 module type TestCaseWithoutBootstrap = TestCase with type t = before_bootstrap
 
-module type TestCaseWithoutBootstrapAndWithSetup = TestCaseWithSetup with type t = Integration_test_lib.Test_config.t
+module type TestCaseWithoutBootstrapAndWithSetup =
+  TestCaseWithSetup with type t = Integration_test_lib.Test_config.t
 
 module Make_FixtureWithBootstrap (M : TestCaseWithBootstrap) :
   Fixture with type t = after_bootstrap
 
 module Make_FixtureWithoutBootstrap (M : TestCaseWithoutBootstrap) :
   Fixture with type t = before_bootstrap
 
-module Make_FixtureWithBootstrapAndFromTestConfig (M : TestCaseWithoutBootstrapAndWithSetup) :
+module Make_FixtureWithBootstrapAndFromTestConfig
+    (M : TestCaseWithoutBootstrapAndWithSetup) :
   Fixture with type t = Integration_test_lib.Test_config.t

src/test/mina_automation/fixture/intf.ml

@@ -16,7 +16,6 @@ module type TestCaseWithSetup = sig
   val test_case : t -> test_result Deferred.Or_error.t
 end
 
-
 module type Fixture = sig
   type t
 

src/test/mina_automation/js_signer.ml

@@ -7,8 +7,7 @@ open Async
 open Integration_test_lib
 
 module Config = struct
-
- type t =
+  type t =
     { sender_sk : String.t
     ; receiver_address : String.t
     ; graphql_url : string option
@@ -27,23 +26,19 @@ let repo_path = "scripts/tests/mina-signer/test-signer.js"
 
 let official_name = "mina-test-signer"
 
-
 let run config =
   let open Deferred.Let_syntax in
   let logger = Logger.create () in
   match%bind Sys.file_exists repo_path with
-        | `Yes ->
-          [%log info]
-            "Running command node %s" (String.concat ~sep:" " (repo_path :: Config.to_args config));
-          Util.run_cmd_or_error "." "node"
-            ( [ repo_path ] @ Config.to_args config )
-        | _ -> (
-            match Utils.exists_at_path "" official_name with
-            | Some _ ->
-          [%log info]
-            "Running command %s %s" official_name (String.concat ~sep:" " (Config.to_args config));
-              Util.run_cmd_or_error "" official_name
-                  ( Config.to_args config )
-            | None -> (
-                Deferred.Or_error.error_string
-                  "Could not find js_signer executable" ) )
+  | `Yes ->
+      [%log info] "Running command node %s"
+        (String.concat ~sep:" " (repo_path :: Config.to_args config)) ;
+      Util.run_cmd_or_error "." "node" ([ repo_path ] @ Config.to_args config)
+  | _ -> (
+      match Utils.exists_at_path "" official_name with
+      | Some _ ->
+          [%log info] "Running command %s %s" official_name
+            (String.concat ~sep:" " (Config.to_args config)) ;
+          Util.run_cmd_or_error "" official_name (Config.to_args config)
+      | None ->
+          Deferred.Or_error.error_string "Could not find js_signer executable" )

src/test/mina_automation/utils.ml

@@ -6,11 +6,11 @@ let paths =
   Option.value_map ~f:(String.split ~on:':') ~default:[] (Sys.getenv "PATH")
 
 let exists_at_path folder file =
-    match Sys.file_exists (folder ^/ file) with
-    | `Yes ->
-        Some (folder ^/ file)
-    | _ ->
-        None
+  match Sys.file_exists (folder ^/ file) with
+  | `Yes ->
+      Some (folder ^/ file)
+  | _ ->
+      None
 
 let possible_locations ~file possible_locations =
   possible_locations @ paths