Module OUnitBracket

module OUnitBracket: sig .. end

type t = (unit -> unit) list 

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

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

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

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

val chdir_mutex : int * OUnitShared.scope

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

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