package alcotest

  1. Overview
  2. Docs

Source file formatters.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
type stdout = Format.formatter
type stderr = Format.formatter

let stdout = ref Fmt.stdout
let stderr = ref Fmt.stderr
let set_stdout stdout' = stdout := stdout'
let set_stderr stderr' = stderr := stderr'
let get_stdout () = !stdout
let get_stderr () = !stderr
let ocaml_stdout = Format.std_formatter
let ocaml_stderr = Format.err_formatter
let make_stdout () = Format.formatter_of_out_channel Stdlib.stdout
let make_stderr () = Format.formatter_of_out_channel Stdlib.stderr
let pr fmt = Format.fprintf !stdout fmt
let epr fmt = Format.fprintf !stderr fmt