Library
Module
Module type
Parameter
Class
Class type
A lightweight and colourful test framework.
type test_case = string * speed_level * (unit -> unit)
A test case is an UTF-8 encoded documentation string, a speed level and a function to execute.
type test = string * test_case list
A test is an US-ASCII encoded name and a list of test cases.
The exception return by run
in case of errors.
val run : ?and_exit:bool -> string -> test list -> unit
run n t
runs the test suite t
. n
is is the name of the tested library. The optional argument and_exit
controls what happens when the function ends. By default, and_exit
is set, which makes the function exit with 0
if everything is fine or 1
if there is an issue. If and_exit
then the function raises Test_error
on error.
val line : Pervasives.out_channel -> ?color:[ `Blue | `Yellow ] -> char -> unit
Draw a line on the given channel
module type TESTABLE = sig ... end
val int : int testable
val char : char testable
val string : string testable
val check : 'a testable -> string -> 'a -> 'a -> unit
Check that two values are equal.