OUnitLogger.Test
type 'result t = 'result test_event -> unit
val create : ('a, 'b) logger -> 'c -> 'd test_event -> unit
val raw_printf :
('a test_event -> 'b) ->
('c, unit, string, 'd) Stdlib.format4 ->
'e
val logf :
('a test_event -> 'b) ->
log_severity ->
('c, unit, string, 'd) Stdlib.format4 ->
'e