derive yojson for structs in test_config and runtime_config

Author: dkijania

src/lib/runtime_config/runtime_config.ml

@@ -1072,7 +1072,7 @@ module Proof_keys = struct
     ; account_creation_fee : Currency.Fee.Stable.Latest.t option
     ; fork : Fork_config.t option
     }
-  [@@deriving bin_io_unversioned]
+  [@@deriving bin_io_unversioned, yojson]
 
   let make ?level ?sub_windows_per_window ?ledger_depth ?work_delay
       ?block_window_duration_ms ?transaction_capacity ?coinbase_amount

src/lib/testing/integration_test_lib/test_config.ml

@@ -14,9 +14,10 @@ module Test_account = struct
     { account_name : string
     ; balance : string
     ; timing : Mina_base.Account_timing.t
-    ; permissions : Mina_base.Permissions.t option
-    ; zkapp : Mina_base.Zkapp_account.t option
+    ; permissions : Mina_base.Permissions.t option [@default None]
+    ; zkapp : Mina_base.Zkapp_account.t option [@default None]
     }
+  [@@deriving to_yojson]
 
   let create ~account_name ~balance ?timing ?permissions ?zkapp () =
     { account_name
@@ -36,13 +37,14 @@ module Epoch_data = struct
   module Data = struct
     (* the seed is a field value in Base58Check format *)
     type t = { epoch_ledger : Test_account.t list; epoch_seed : string }
+    [@@deriving to_yojson]
   end
 
-  type t = { staking : Data.t; next : Data.t option }
+  type t = { staking : Data.t; next : Data.t option } [@@deriving to_yojson]
 end
 
 module Block_producer_node = struct
-  type t = { node_name : string; account_name : string }
+  type t = { node_name : string; account_name : string } [@@deriving to_yojson]
 end
 
 module Snark_coordinator_node = struct
@@ -57,36 +59,6 @@ type constants =
   }
 [@@deriving to_yojson]
 
-type t =
-  { requires_graphql : bool
-        (* temporary flag to enable/disable graphql ingress deployments *)
-        (* testnet topography *)
-  ; genesis_ledger : Test_account.t list
-  ; epoch_data : Epoch_data.t option
-  ; block_producers : Block_producer_node.t list
-  ; snark_coordinator : Snark_coordinator_node.t option
-  ; snark_worker_fee : string
-  ; num_archive_nodes : int
-  ; log_precomputed_blocks : bool
-  ; start_filtered_logs : string list
-        (* ; num_plain_nodes : int  *)
-        (* blockchain constants *)
-  ; proof_config : Runtime_config.Proof_keys.t
-  ; k : int
-  ; delta : int
-  ; slots_per_epoch : int
-  ; slots_per_sub_window : int
-  ; grace_period_slots : int
-  ; txpool_max_size : int
-  ; slot_tx_end : int option
-  ; slot_chain_end : int option
-  ; hard_fork_genesis_slot_delta : int option
-  ; network_id : string option
-  ; block_window_duration_ms : int
-  ; transaction_capacity_log_2 : int
-  ; signature_kind : Mina_signature_kind.t
-  }
-
 let proof_config_default : Runtime_config.Proof_keys.t =
   { level = Some Full
   ; sub_windows_per_window = None
@@ -107,6 +79,39 @@ let proof_config_default : Runtime_config.Proof_keys.t =
         }
   }
 
+type t =
+  { requires_graphql : bool
+        [@default true]
+        (* temporary flag to enable/disable graphql ingress deployments *)
+        (* testnet topography *)
+  ; genesis_ledger : Test_account.t list
+  ; epoch_data : Epoch_data.t option [@default None]
+  ; block_producers : Block_producer_node.t list
+  ; snark_coordinator : Snark_coordinator_node.t option [@default None]
+  ; snark_worker_fee : string [@default "0.025"]
+  ; num_archive_nodes : int [@default 0]
+  ; log_precomputed_blocks : bool [@default false]
+  ; start_filtered_logs : string list
+        [@default []]
+        (* ; num_plain_nodes : int  *)
+        (* blockchain constants *)
+  ; proof_config : Runtime_config.Proof_keys.t [@default proof_config_default]
+  ; k : int [@default 159]
+  ; delta : int [@default 0]
+  ; slots_per_epoch : int [@default 3 * 8 * 20]
+  ; slots_per_sub_window : int [@default 2]
+  ; grace_period_slots : int [@default 140]
+  ; txpool_max_size : int [@default 3_000]
+  ; slot_tx_end : int option [@default None]
+  ; slot_chain_end : int option [@default None]
+  ; hard_fork_genesis_slot_delta : int option [@default None]
+  ; network_id : string option [@default None]
+  ; block_window_duration_ms : int [@default 0]
+  ; transaction_capacity_log_2 : int [@default 3]
+  ; signature_kind : Mina_signature_kind.t [@default Testnet]
+  }
+[@@deriving to_yojson]
+
 let log_filter_of_event_type ev_existential =
   let open Event_type in
   let (Event_type ev_type) = ev_existential in