# 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.choiceend)

    include Plugin

    val allskip : t -> choice

    val failfirst : t -> choice