Entry (ppx_bench.Ppx_bench_lib.Benchmark

type 'a indexed_spec = {

arg_name : string;

arg_values : int list;

thunk : int -> unit -> 'a;

}

type test_spec =

| Regular_thunk : ([ `init ] -> unit -> 'a) -> test_spec

| Indexed_thunk : 'a indexed_spec -> test_spec

type t = private {

unique_id : int;

code : string;

type_conv_path : string;

name : string;

filename : string;

line : int;

startpos : int;

endpos : int;

test_spec : test_spec;

bench_module_name : string option;

}

val compare : t -> t -> int

val get_indexed_arg_name : t -> string option

val get_module_name_opt : t -> string option