OUnitBracket (docs.findlib-1.ounit2.advanced.OUnitBracket)

type t = (unit -> unit) list

val create : 
  (OUnitTest.ctxt -> 'a) ->
  ('b -> OUnitTest.ctxt -> unit) ->
  OUnitTest.ctxt ->
  'c

val logf : 
  ('a OUnitLogger.test_event -> 'b) ->
  OUnitLogger.log_severity ->
  ('c, unit, string, 'b) format4 ->
  'd

val bracket_tmpfile : 
  ?prefix:string ->
  ?suffix:string ->
  ?mode:open_flag list ->
  OUnitTest.ctxt ->
  string * out_channel

val bracket_tmpdir : 
  ?prefix:string ->
  ?suffix:string ->
  OUnitTest.ctxt ->
  string

val chdir_mutex : int * OUnitShared.scope

val bracket_chdir : string -> OUnitTest.ctxt -> string

val with_bracket : 
  OUnitTest.ctxt ->
  (OUnitTest.ctxt -> 'a) ->
  ('b -> OUnitTest.ctxt -> 'c) ->
  'd