Module Test

module Atomic = Atomic
val check : bool -> unit
val uid_gen : int Atomic.t
type t = {
  1. title : string;
  2. description : string;
  3. fn : unit -> unit;
  4. uid : int;
}
val test : title:string -> description:string -> (unit -> unit) -> t
type runner = {
  1. directory : string;
}
val mkdir_p : string -> Unix.file_perm -> unit
val mkdir : runner -> runner
val runner : ?g:Random.State.t -> ?fmt:(Format.formatter -> string -> unit) -> string -> runner
val run : runner -> t -> unit