package GuaCaml

  1. Overview
  2. Docs
type test = {
  1. test_name : string;
  2. test_func : unit -> unit;
}
type test_poll = test list ref
type error = {
  1. error_name : string;
  2. error_text : string option;
  3. error_done : bool;
}
exception OUnitError of error
val error_string : string -> ?text:string -> unit -> 'a
val error_poll_enable : bool ref
type error_poll = string list ref
val error_poll : error_poll
val print_error : (unit -> string) -> unit
val print_error_endline : (unit -> string) -> unit
val print : string -> unit
val print_endline : string -> unit
val reset_error : unit -> unit
val print_error_poll : unit -> unit
val ouniterror : string -> ?func:(unit -> string option) -> 'a
val error_assert : string -> ?func:(unit -> string option) -> bool -> unit
val test_poll : test_poll
val push_test : string -> (unit -> unit) -> unit
exception NoGenericError
module ToS : sig ... end
val generic_error : exn -> string
val ouniterror_of_generic_error : string -> exn -> 'a
val catch_generic : string -> (unit -> 'b) -> 'b
val run_tests : unit -> unit
val eassert_not_found : string -> ?func:(unit -> string option) -> (unit -> unit) -> unit
val eassert_failure : string -> ?fmsg:string -> ?func:(unit -> string option) -> (unit -> unit) -> unit
val eassert_assert_failure : string -> ?func:(unit -> string option) -> (unit -> unit) -> unit
val catch_unop : string -> 'a option -> 'a
val assert_none : string -> 'a option -> unit
type track =
  1. | Error of error
  2. | Call of call_t
and call_t = {
  1. call_name : string;
  2. call_args : string;
  3. call_text : string;
  4. call_next : track;
}
module TrackToS : sig ... end
exception OUnitTrack of track
val track_of_exn : exn -> track
val push_track : string -> ?args:string -> ?text:string -> track -> track
val push_track_of_exn : string -> ?args:string -> ?text:string -> exn -> track
val cascade_exn : string -> ?args:string -> ?text:string -> exn -> exn
OCaml

Innovation. Community. Security.