sig
type 'a indexed_spec = {
arg_name : string;
arg_values : int list;
thunk : int -> unit -> 'a;
}
type test_spec =
Regular_thunk :
(unit -> unit -> 'a) -> Benchmark_accumulator.Entry.test_spec
| Indexed_thunk :
'a Benchmark_accumulator.Entry.indexed_spec -> Benchmark_accumulator.Entry.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 : Benchmark_accumulator.Entry.test_spec;
bench_module_name : string option;
}
val compare :
Benchmark_accumulator.Entry.t -> Benchmark_accumulator.Entry.t -> int
val get_indexed_arg_name : Benchmark_accumulator.Entry.t -> string option
val get_module_name_opt : Benchmark_accumulator.Entry.t -> string option
end