module OUnitTest:sig
..end
exception Skip of string
exception Todo of string
exception OUnit_failure of string
type
node =
| |
ListItem of |
| |
Label of |
See OUnit.mli.
typepath =
node list
See OUnit.mli.
typebacktrace =
string option
See OUnit2.mli.
type
test_length =
| |
Immediate |
| |
Short |
| |
Long |
| |
Huge |
| |
Custom_length of |
type
result =
| |
RSuccess |
| |
RFailure of |
| |
RError of |
| |
RSkip of |
| |
RTodo of |
| |
RTimeout of |
See OUnit.mli.
typeresult_full =
path * result * OUnitLogger.position option
typeresult_list =
result_full list
type
ctxt = {
|
conf : |
|
logger : |
|
: |
|
path : |
|
test_logger : |
|
mutable tear_down : |
|
tear_down_mutex : |
|
non_fatal : |
|
non_fatal_mutex : |
typelog_event_t =
(path, result) OUnitLogger.log_event_t
typelogger =
(path, result) OUnitLogger.logger
typetest_fun =
ctxt -> unit
type
test =
| |
TestCase of |
| |
TestList of |
| |
TestLabel of |
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