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