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