# 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