Module Mdx.Cram

type t = {
  1. command : string list;
  2. output : [ `Ellipsis | `Output of string ] list;
  3. exit_code : int;
}
type cram_tests = {
  1. start_pad : int;
  2. hpad : int;
  3. tests : t list;
  4. end_pad : string option;
}
val exit_code : t -> int
val use_heredoc : t -> bool
val command_line : t -> string
val of_lines : string list -> cram_tests
val pp : ?pad:int -> t Fmt.t
val pp_vertical_pad : int Fmt.t
val dump : t Fmt.t
val dump_cram_tests : cram_tests Fmt.t
val pp_command : ?pad:int -> t Fmt.t
val pp_exit_code : ?pad:int -> int Fmt.t