broken 0.4.2 · OCaml Package

type t

type !'a printer = Format.formatter -> 'a -> unit

val assert_success : string -> t

val assert_failure : string -> t

val assert_equal : 
  string ->
  ?expected_failure:bool ->
  ?printer:'b printer ->
  ?equal:('b -> 'b -> bool) ->
  ('a -> 'b) ->
  'a ->
  'b ->
  t

val assert_true : string -> ?expected_failure:bool -> ('a -> bool) -> 'a -> t

val assert_false : string -> ?expected_failure:bool -> ('a -> bool) -> 'a -> t

val assert_for_all : 
  string ->
  ?expected_failure:bool ->
  ?printer:'a printer ->
  ('a -> bool) ->
  'a list ->
  t

val assert_exists : 
  string ->
  ?expected_failure:bool ->
  ?printer:'a printer ->
  ('a -> bool) ->
  'a list ->
  t

val assert_string : 
  string ->
  ?expected_failure:bool ->
  ('a -> string) ->
  'a ->
  string ->
  t

val assert_int : 
  string ->
  ?expected_failure:bool ->
  ('a -> int) ->
  'a ->
  int ->
  t

val assert_zero : string -> ?expected_failure:bool -> ('a -> int) -> 'a -> t

val assert_nonzero : string -> ?expected_failure:bool -> ('a -> int) -> 'a -> t

val assert_float : 
  string ->
  ?expected_failure:bool ->
  ('a -> float) ->
  'a ->
  float ->
  t

val assert_precision : 
  string ->
  ?expected_failure:bool ->
  int ->
  ('a -> float) ->
  'a ->
  float ->
  t

val assert_exception : 
  string ->
  ?expected_failure:bool ->
  exn ->
  ('a -> 'b) ->
  'a ->
  t

val for_all : string -> ?expected_failure:bool -> t list -> t

val exists : string -> ?expected_failure:bool -> t list -> t

val ident : t -> string

type fixture

val make_fixture : (unit -> unit) -> (unit -> unit) -> fixture

val relax : fixture

val tmpfile : string -> string -> string ref -> fixture

val tmpdir : string -> string -> string ref -> fixture

type supervisor

val verbose : supervisor

val concise : supervisor

val not_implemented : unit -> unit

val skip_if : bool -> unit

val only_for : bool -> unit

type suite

val make_suite : ?fixture:fixture -> string -> string -> suite

val add_case : ?fixture:fixture -> suite -> t -> unit

val add_suite : ?fixture:fixture -> suite -> suite -> unit

val register : suite -> unit

val register_suite : ?fixture:fixture -> string -> string -> t list -> unit

val (|&) : suite -> t -> suite

val (|@) : suite -> t list -> suite

val (|*) : suite -> suite -> suite

val (|:) : suite -> suite list -> suite

val main : unit -> unit

package broken