Module OUnitChooser

module OUnitChooser: sig .. end

Heuristic to pick a test to run.
Author(s): Sylvain Le Gall

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