let with_ctxt conf logger shared non_fatal test_path f =
let ctxt =
{
conf = conf;
logger = logger;
path = test_path;
shared = shared;
test_logger = OUnitLogger.Test.create logger test_path;
tear_down = [];
tear_down_mutex = OUnitShared.Mutex.create OUnitShared.ScopeProcess;
non_fatal = non_fatal;
non_fatal_mutex = OUnitShared.Mutex.create OUnitShared.ScopeProcess;
}
in
section_ctxt ctxt f