format

Author: dkijania

src/lib/testing/integration_test_lib/test_config.ml

@@ -60,23 +60,23 @@ type constants =
 [@@deriving to_yojson]
 
 let default_constants =
-    let protocol =
-      { Genesis_constants.Compiled.genesis_constants.protocol with
-        k = 20
-      ; delta = 0
-      ; slots_per_epoch = 3 * 8 * 20
-      ; slots_per_sub_window = 2
-      ; grace_period_slots = 140
-      }
-    in
-    { genesis_constants =
-        { Genesis_constants.Compiled.genesis_constants with
-          protocol
-        ; txpool_max_size = 3000
-        }
-    ; constraint_constants = Genesis_constants.Compiled.constraint_constants
-    ; compile_config = Mina_compile_config.Compiled.t
+  let protocol =
+    { Genesis_constants.Compiled.genesis_constants.protocol with
+      k = 20
+    ; delta = 0
+    ; slots_per_epoch = 3 * 8 * 20
+    ; slots_per_sub_window = 2
+    ; grace_period_slots = 140
     }
+  in
+  { genesis_constants =
+      { Genesis_constants.Compiled.genesis_constants with
+        protocol
+      ; txpool_max_size = 3000
+      }
+  ; constraint_constants = Genesis_constants.Compiled.constraint_constants
+  ; compile_config = Mina_compile_config.Compiled.t
+  }
 
 let proof_config_default : Runtime_config.Proof_keys.t =
   { level = Some Full

src/test/command_line_tests/command_line_tests.ml

@@ -14,34 +14,38 @@ module MinaSignerIntegrationTest = struct
         [ create ~account_name:"bp" ~balance:"400000" ()
         ; create ~account_name:"sender" ~balance:"30" ()
         ; create ~account_name:"receiver" ~balance:"1" ()
-        ] )
-    ; block_producers =
-        [ { node_name = "node"; account_name = "bp" }
-        ]
+        ])
+    ; block_producers = [ { node_name = "node"; account_name = "bp" } ]
     }
+
   let test_case (config : t) =
     let daemon = Daemon.of_test_config config in
-    let sender = Core.Map.find_exn daemon.config.genesis_ledger.keypairs "sender" in
-    let receiver = Core.Map.find_exn daemon.config.genesis_ledger.keypairs "receiver" in
+    let sender =
+      Core.Map.find_exn daemon.config.genesis_ledger.keypairs "sender"
+    in
+    let receiver =
+      Core.Map.find_exn daemon.config.genesis_ledger.keypairs "receiver"
+    in
     let%bind process = Daemon.start daemon in
     let%bind.Deferred.Result () =
       Daemon.Client.wait_for_bootstrap process.client ()
     in
-    let%bind.Deferred.Result (_) =
+    let%bind.Deferred.Result _ =
       Mina_automation.Js_signer.run
-      (  { Mina_automation.Js_signer.Config.sender_sk =
-            (Private_key.to_base58_check sender.keypair.private_key)
+        { Mina_automation.Js_signer.Config.sender_sk =
+            Private_key.to_base58_check sender.keypair.private_key
         ; receiver_address = receiver.public_key
-        ; graphql_url = Some (Printf.sprintf "http://localhost:%d/graphql" daemon.config.port)
+        ; graphql_url =
+            Some
+              (Printf.sprintf "http://localhost:%d/graphql" daemon.config.port)
         ; nonce = Some 0
-        })
+        }
     in
     (*let%bind () = Daemon.Client.stop_daemon process.client in
 *)
     Deferred.Or_error.return @@ Mina_automation_fixture.Intf.Passed
 end
 
-
 module BackgroundMode = struct
   type t = Mina_automation_fixture.Daemon.before_bootstrap
 

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