Module Expect_test_config

Configuration for running expect tests

module Upon_unreleasable_issue : sig ... end
module type S = sig ... end
include S with type 'a S.IO_flush.t = 'a with type 'a S.IO_run.t = 'a
module IO_run : sig ... end
module IO_flush : sig ... end
val flush : unit -> unit IO_flush.t

Flush whatever need to be to get pending output out on file descriptor 0.

val run : (unit -> unit IO_run.t) -> unit

Run an IO operation until completion

val flushed : unit -> bool

Synchronous check that there is no pending output on file description 0. With async, there is no guarantee that on the rhs of a IO.bind (flush ()) ... the output is completely flushed, that's why we need this.

val upon_unreleasable_issue : Upon_unreleasable_issue.t

upon_unreleasable_issue specifies how to deal with output that should not be released even if it is accepted (e.g. backtraces). The default is `CR.