Module OUnitChooser

Heuristic to pick a test to run.

type t = {
  1. tests_planned : OUnitTest.path list;
  2. tests_running : OUnitTest.path list;
  3. tests_passed : OUnitTest.result_list;
  4. cache : OUnitCache.cache;
}
type choice =
  1. | ChooseToSkip of OUnitTest.path
  2. | ChooseToPostpone
  3. | Choose of OUnitTest.path
  4. | NoChoice
val string_of_choice : choice -> string
type chooser = t -> choice
val simple : t -> choice

Most simple heuristic, just pick the first test.

module Plugin : sig ... end
include module type of struct include Plugin end
val all : (int * (OUnitPlugin.name * chooser)) list ref
val register : OUnitPlugin.name -> int -> chooser -> unit
val of_name : OUnitPlugin.name -> chooser
val allskip : t -> choice
val failfirst : t -> choice