`sig
module Test :
sig
type t
val create :
?name:string ->
?size:int -> (unit -> unit) -> Deprecated_bench.Test.t
val name : Deprecated_bench.Test.t -> string option
val size : Deprecated_bench.Test.t -> int
end
module Result :
sig
module Stat :
sig
type t = {
run_cycles : int;
compactions : int;
minor_allocated : int;
major_allocated : int;
promoted : int;
}
val empty : Deprecated_bench.Result.Stat.t
end
type t = string option * int * Deprecated_bench.Result.Stat.t array
val mean :
Deprecated_bench.Result.Stat.t array ->
Deprecated_bench.Result.Stat.t
val min :
Deprecated_bench.Result.Stat.t array ->
Deprecated_bench.Result.Stat.t
val max :
Deprecated_bench.Result.Stat.t array ->
Deprecated_bench.Result.Stat.t
val compactions_occurred : Deprecated_bench.Result.Stat.t array -> bool
end
type 'a with_benchmark_flags =
?verbosity:[ `High | `Low | `Mid ] ->
?gc_prefs:Core.Std.Gc.Control.t ->
?no_compactions:bool ->
?trials:[ `Auto | `Num of int ] -> ?clock:[ `Cpu | `Wall ] -> 'a
type column =
[ `Allocated
| `Cycles
| `Input_size
| `Name
| `Nanos
| `Normalized_cycles
| `Warnings ]
type 'a with_print_flags =
?limit_width_to:int ->
?columns:[ `Allocated
| `Cycles
| `If_not_empty of Deprecated_bench.column
| `Input_size
| `Name
| `Nanos
| `Normalized_cycles
| `Warnings ] list ->
?display:Textutils.Ascii_table.Display.t -> 'a
val bench :
(Deprecated_bench.Test.t list -> unit)
Deprecated_bench.with_benchmark_flags Deprecated_bench.with_print_flags
val bench_raw :
(Deprecated_bench.Test.t list -> Deprecated_bench.Result.t list)
Deprecated_bench.with_benchmark_flags
val print :
(Deprecated_bench.Result.t list -> unit)
Deprecated_bench.with_print_flags
end`