• en

Module OUnitChooser

type t = {
tests_planned : OUnitTest.path list;
tests_running : OUnitTest.path list;
tests_passed : OUnitTest.result_list;
cache : OUnitCache.cache;
}
type choice =
| ChooseToSkip of OUnitTest.path
| ChooseToPostpone
| Choose of OUnitTest.path
| NoChoice
val string_of_choice : choice -> string
type chooser = t -> choice
val simple : t -> choice
module Plugin : sig
val all : (int * (string * chooser)) list Pervasives.ref
val register : string -> int -> chooser -> unit
val of_name : string -> chooser
val choice : OUnitConf.conf -> (string * chooser)
val preset : (string * string) list -> (string * string) list
end
val all : (int * (string * chooser)) list Pervasives.ref
val register : string -> int -> chooser -> unit
val of_name : string -> chooser
val choice : OUnitConf.conf -> (string * chooser)
val preset : (string * string) list -> (string * string) list
val allskip : t -> choice
val failfirst : t -> choice