type return = unit M.ttype 'a test_case = string * speed_level * ('a -> return)val test_case : string -> speed_level -> ('a -> return) -> 'a test_casetype 'a test = string * 'a test_case listtype 'a with_options = ?and_exit:bool -> ?verbose:bool -> ?compact:bool -> ?tail_errors:[ `Limit of int | `Unlimited ] -> ?quick_only:bool -> ?show_errors:bool -> ?json:bool -> ?filter:(Re.re option * Alcotest_engine__Core.IntSet.t option) -> ?log_dir:string -> 'aval run : (string -> unit test list -> return) with_optionsval run_with_args : (string -> 'a -> 'a test list -> return) with_options