Module `Private.Pp`Source

Sourceval terminal_width : unit -> int

val info : 
  max_label:int ->
  doc_of_test_name:(Alcotest_engine__.Model.Test_name.t -> string) ->
  Alcotest_engine__.Model.Test_name.t Fmt.t

Sourceval tag : [ `Ok | `Fail | `Skip | `Todo | `Assert ] Fmt.t

Sourcetype event = [

| `Result of Alcotest_engine__.Model.Test_name.t * [ `Ok | `Exn of Alcotest_engine__.Model.Test_name.t * string * unit Fmt.t | `Error of Alcotest_engine__.Model.Test_name.t * unit Fmt.t | `Skip | `Todo of string ]
| `Start of Alcotest_engine__.Model.Test_name.t

]

Sourcetype result = {

success : int;
failures : int;
time : float;
errors : unit Fmt.t list;

}

Source

val rresult_error : 
  [ `Ok
  | `Exn of Alcotest_engine__.Model.Test_name.t * string * unit Fmt.t
  | `Error of Alcotest_engine__.Model.Test_name.t * unit Fmt.t
  | `Skip
  | `Todo of string ]
    Fmt.t

Source

val event_line : 
  max_label:int ->
  doc_of_test_name:(Alcotest_engine__.Model.Test_name.t -> string) ->
  [ `Result of
      Alcotest_engine__.Model.Test_name.t
      * [< Alcotest_engine__.Model.Run_result.t ]
  | `Start of Alcotest_engine__.Model.Test_name.t ]
    Fmt.t

Source

val event : 
  isatty:bool ->
  compact:bool ->
  max_label:int ->
  doc_of_test_name:(Alcotest_engine__.Model.Test_name.t -> string) ->
  selector_on_failure:bool ->
  tests_so_far:int ->
  event Fmt.t

Source

val suite_results : 
  verbose:bool ->
  show_errors:bool ->
  json:bool ->
  compact:bool ->
  log_dir:string ->
  result Fmt.t

Sourceval quoted : 'a Fmt.t -> 'a Fmt.t

Wraps a formatter with `GNU-style quotation marks'.

Sourceval with_surrounding_box : 'a Fmt.t -> 'a Fmt.t

Wraps a formatter with a Unicode box with width given by terminal_width. Uses box-drawing characters from code page 437.

Sourceval horizontal_rule : _ Fmt.t

Horizontal rule of length terminal_width. Uses box-drawing characters from code page 437.

Sourceval pp_plural : int Fmt.t

This is for adding an 's' to words that should be pluralized, e.g.

  let n = List.length items in
  Fmt.pr "Found %i item%a." n pp_plural n

Sourceval user_error : string -> _

Raise a user error, then fail.

package alcotest

Module Private.PpSource

Module `Private.Pp`Source