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;
}