1. Overview
  2. Docs
On This Page
  1. Internal Utils

Internal Utils

We provide NO stability guarantee for this module. Use at your own risks.

type ('b, 'c) printer = {
  1. info : 'a. ('a, 'b, 'c, unit) Pervasives.format4 -> 'a;
  2. fail : 'a. ('a, 'b, 'c, unit) Pervasives.format4 -> 'a;
  3. err : 'a. ('a, 'b, 'c, unit) Pervasives.format4 -> 'a;
}
val print_std : (Pervasives.out_channel, unit) printer
val callback : colors:bool -> verbose:bool -> print_res:bool -> print:('a, 'b) printer -> string -> 'c QCheck.Test.cell -> 'c QCheck.TestResult.t -> unit
type cli_args = {
  1. cli_verbose : bool;
  2. cli_long_tests : bool;
  3. cli_print_list : bool;
  4. cli_rand : Random.State.t;
  5. cli_slow_test : int;
  6. cli_colors : bool;
  7. cli_debug_shrink : Pervasives.out_channel option;
  8. cli_debug_shrink_list : string list;
}
val parse_cli : full_options:bool -> string array -> cli_args