Module Bench

module Bench: Bench

module Test: sig .. end

module Result: sig .. end

type 'a with_benchmark_flags = ?verbosity:[ `High | `Low | `Mid ] ->
       ?gc_prefs:Core.Gc.Control.t ->
       ?no_compactions:bool -> ?fast:bool -> ?clock:[ `Cpu | `Wall ] -> 'a 

type 'a with_print_flags = ?time_format:[ `Auto | `Ms | `Ns | `S | `Us ] -> 'a 

val bench : (Test.t list -> unit) with_benchmark_flags with_print_flags
       Core.Std.Or_error.t

val bench_raw : (Test.t list -> Result.t list) with_benchmark_flags
       Core.Std.Or_error.t

val print : (Result.t list -> unit) with_print_flags