Module OUnitChooser

module OUnitChooser: sig .. end

Heuristic to pick a test to run.


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

Most simple heuristic, just pick the first test.

module Plugin: OUnitPlugin.Make(sig
type t = OUnitChooser.chooser 
val name : string
val conf_help : string
val default_name : string
val default_value : t -> OUnitChooser.choice
end)
include Plugin
val allskip : t -> choice
val failfirst : t -> choice