MinaProtocol / mina / 535

open Async_kernel

let time_genesis_creation () =

  let logger = Logger.create () in

    ~processor:Internal_tracing.For_logger.processor

    ~transport:

      (Logger_file_system.dumb_logrotate ~directory:"."

         ~log_filename:"internal-tracing.log"

         ~max_size:(1024 * 1024 * 10)

         ~num_rotate:50 )

    () ;

  let%bind worker_state =

      { Prover.Worker_state.conf_dir = "<skipped for unit test>"

      ; enable_internal_tracing = false

      ; internal_trace_filename = None

      ; logger

      ; proof_level = Full

      ; constraint_constants =

          Genesis_constants.For_unit_tests.Constraint_constants.t

      ; commit_id

      }

  in

  match%map

  with

      printf "%s,%s\n"