sig
type 'result t = 'result OUnitLogger.test_event -> unit
val create :
('a, 'b) OUnitLogger.logger -> 'a -> 'b OUnitLogger.test_event -> unit
val raw_printf :
('a OUnitLogger.test_event -> 'b) ->
('c, unit, string, 'b) Pervasives.format4 -> 'c
val logf :
('a OUnitLogger.test_event -> 'b) ->
OUnitLogger.log_severity ->
('c, unit, string, 'b) Pervasives.format4 -> 'c
end