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