sig type t val create : ?name:string -> (unit -> unit) -> Bench_main.Test.t val name : Bench_main.Test.t -> string option end