sig
type res =
QCheck2.Test.res =
Success
| Failure
| FalseAssumption
| Error of exn * string
type 'a event =
'a QCheck2.Test.event =
Generating
| Collecting of 'a
| Testing of 'a
| Shrunk of int * 'a
| Shrinking of int * int * 'a
type 'a cell = 'a QCheck2.Test.cell
type 'a handler = 'a QCheck2.Test.handler
type 'a step = 'a QCheck2.Test.step
type 'a callback = 'a QCheck2.Test.callback
type t = QCheck2.Test.t
val fail_report : string -> 'a
val fail_reportf :
('a, Stdlib.Format.formatter, unit, 'b) Stdlib.format4 -> 'a
val make_cell :
?if_assumptions_fail:[ `Fatal | `Warning ] * float ->
?count:int ->
?long_factor:int ->
?max_gen:int ->
?max_fail:int ->
?small:('a -> int) ->
?name:string ->
'a QCheck.arbitrary -> ('a -> bool) -> 'a QCheck.Test.cell
val get_law : 'a QCheck.Test.cell -> 'a -> bool
val get_name : 'a QCheck.Test.cell -> string
val set_name : 'a QCheck.Test.cell -> string -> unit
val get_count : 'a QCheck.Test.cell -> int
val get_long_factor : 'a QCheck.Test.cell -> int
val make :
?if_assumptions_fail:[ `Fatal | `Warning ] * float ->
?count:int ->
?long_factor:int ->
?max_gen:int ->
?max_fail:int ->
?small:('a -> int) ->
?name:string -> 'a QCheck.arbitrary -> ('a -> bool) -> QCheck.Test.t
exception Test_fail of string * string list
exception Test_error of string * string * exn * string
val print_instance : 'a QCheck.Test.cell -> 'a -> string
val print_c_ex :
'a QCheck.Test.cell -> 'a QCheck.TestResult.counter_ex -> string
val print_fail :
'a QCheck.Test.cell ->
string -> 'a QCheck.TestResult.counter_ex list -> string
val print_fail_other : string -> msg:string -> string
val print_error :
?st:string ->
'a QCheck.Test.cell ->
string -> 'a QCheck.TestResult.counter_ex * exn -> string
val print_test_fail : string -> string list -> string
val print_test_error : string -> string -> exn -> string -> string
val check_cell :
?long:bool ->
?call:'a QCheck.Test.callback ->
?step:'a QCheck.Test.step ->
?handler:'a QCheck.Test.handler ->
?rand:Stdlib.Random.State.t ->
'a QCheck.Test.cell -> 'a QCheck.TestResult.t
val check_cell_exn :
?long:bool ->
?call:'a QCheck.Test.callback ->
?step:'a QCheck.Test.step ->
?rand:Stdlib.Random.State.t -> 'a QCheck.Test.cell -> unit
val check_exn :
?long:bool -> ?rand:Stdlib.Random.State.t -> QCheck.Test.t -> unit
end