mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-06 11:15:31 -05:00
31 lines
673 B
OCaml
31 lines
673 B
OCaml
|
|
type 'a eq = 'a -> 'a -> bool
|
|
type 'a print = 'a -> string
|
|
|
|
module Test : sig
|
|
type t
|
|
end
|
|
|
|
module type S = sig
|
|
module Q = QCheck
|
|
|
|
val t : (unit -> bool) -> unit
|
|
|
|
val eq : ?cmp:'a eq -> ?printer:'a print -> 'a -> 'a -> unit
|
|
|
|
val q : ?count:int -> ?long_factor:int -> 'a Q.arbitrary -> ('a -> bool) -> unit
|
|
|
|
val assert_equal :
|
|
?printer:('a -> string) -> ?cmp:('a -> 'a -> bool) ->
|
|
'a -> 'a -> unit
|
|
|
|
val assert_failure : string -> 'a
|
|
|
|
val assert_raises : (exn -> bool) -> (unit -> 'b) -> unit
|
|
|
|
val get : unit -> Test.t list
|
|
end
|
|
|
|
val make : __FILE__:string -> unit -> (module S)
|
|
|
|
val run_all : ?seed:string -> descr:string -> Test.t list list -> unit
|