module OUnitTest: sig .. end
See OUnit.mli.
exception Skip of string
exception Todo of string
exception OUnit_failure of string
type node =
| |
ListItem of int |
| |
Label of string |
See OUnit.mli.
type path = node list
See OUnit.mli.
type backtrace = string option
See OUnit2.mli.
type test_length =
| |
Immediate |
| |
Short |
| |
Long |
| |
Huge |
| |
Custom_length of float |
type result =
See OUnit.mli.
type result_full = path * result * OUnitLogger.position option
type result_list = result_full list
type ctxt = {
}
type log_event_t = (path, result) OUnitLogger.log_event_t
type logger = (path, result) OUnitLogger.logger
type test_fun = ctxt -> unit
type test =
val delay_of_length : test_length -> float
val get_shard_id : ctxt -> string
val section_ctxt : ctxt -> (ctxt -> 'a) -> 'a
Isolate a function inside a context. All the added tear down will run before
returning.
val with_ctxt : OUnitConf.conf ->
(path, result) OUnitLogger.logger ->
OUnitShared.shared ->
result_full list Pervasives.ref ->
path -> (ctxt -> 'a) -> 'a
Create a context and run the function.
val standard_modules : string list
val result_full_of_exception : ctxt ->
exn -> path * result * OUnitLogger.position option
Transform an exception in a result.
val report_result_full : ctxt ->
path * result * 'a ->
path * result * 'a
val non_fatal : ctxt -> (ctxt -> unit) -> unit
Isolate a function inside a context, just as !section_ctxt but don't
propagate a failure, register it for later.
val (>:) : string -> test -> test
val (>::) : string -> test_fun -> test
val (>:::) : string -> test list -> test
val test_decorate : (test_fun -> test_fun) ->
test -> test
val test_case_count : test -> int
val string_of_node : node -> string
module Path: sig .. end
module MapPath: Map.Make(Path)
val string_of_path : node list -> string
val test_case_paths : test -> node list list
module SetTestPath: Set.Make(String)
val test_filter : ?skip:bool ->
SetTestPath.elt list -> test -> test option