Source file `in_expect_test.ml`

1
2
3
4
5
6
7
8
let formatter = ref None

let printf fmt =
  match !formatter with
  | None ->
    failwith "Not running an expect test"
  | Some formatter ->
    Format.fprintf formatter fmt