module Runtime: sig
.. end
type
descr = string
type
filename = string
type
line_number = int
type
start_pos = int
type
end_pos = int
val set_lib : string -> unit
val unset_lib : string -> unit
val test : descr ->
filename ->
line_number ->
start_pos -> end_pos -> (unit -> bool) -> unit
val test_unit : descr ->
filename ->
line_number ->
start_pos -> end_pos -> (unit -> unit) -> unit
val test_module : descr ->
filename ->
line_number ->
start_pos -> end_pos -> (unit -> unit) -> unit
val summarize : unit -> unit
val collect : (unit -> unit) -> (unit -> unit) list
val testing : bool