Module OUnitLogger


module OUnitLogger: sig .. end
See OUnit.mli.


type position = {
   filename : string;
   line : int;
}
type log_severity = [ `Error | `Info | `Warning ] 
See OUnit.mli.

type 'a test_event =
| EStart
| EEnd
| EResult of 'a
| ELog of log_severity * string
| ELogRaw of string
See OUnit.mli.
type ('a, 'b) result_full = 'a * 'b * position option 

type ('a, 'b) global_event =
| GConf of string * string (*Dump a configuration options.*)
| GLog of log_severity * string
| GStart (*Start running the tests.*)
| GEnd (*Finish running the tests.*)
| GResults of (float * ('a, 'b) result_full list * int)
Events which occur at the global level.

type ('a, 'b) log_event_t =
| GlobalEvent of ('a, 'b) global_event
| TestEvent of 'a * 'b test_event

type ('a, 'b) log_event = {
   shard : string;
   timestamp : float;
   event : ('a, 'b) log_event_t;
}
type ('a, 'b) logger = {
   lshard : string;
   fwrite : ('a, 'b) log_event -> unit;
   fpos : unit -> position option;
   fclose : unit -> unit;
}
val shard_default : string
val string_of_event : ('a, 'b) log_event_t -> string
val null_logger : ('a, 'b) logger
val fun_logger : (('a, 'b) log_event -> unit) ->
(unit -> unit) -> ('a, 'b) logger
val post_logger : (('a, 'b) log_event list -> unit) -> ('a, 'b) logger
val set_shard : string -> ('a, 'b) logger -> ('a, 'b) logger
val report : ('a, 'b) logger -> ('a, 'b) log_event_t -> unit
val infof : ('a, 'b) logger ->
('c, unit, string, unit) Pervasives.format4 -> 'c
val warningf : ('a, 'b) logger ->
('c, unit, string, unit) Pervasives.format4 -> 'c
val errorf : ('a, 'b) logger ->
('c, unit, string, unit) Pervasives.format4 -> 'c
val position : ('a, 'b) logger -> position option
val close : ('a, 'b) logger -> unit
val combine : ('a, 'b) logger list -> ('a, 'b) logger
module Test: sig .. end