Module OUnitLogger

type position = {
  1. filename : string;
  2. line : int;
}
type log_severity = [
  1. | `Error
  2. | `Info
  3. | `Warning
]
type !'result test_event =
  1. | EStart
  2. | EEnd
  3. | EResult of 'result
  4. | ELog of log_severity * string
  5. | ELogRaw of string
type (!'path, !'result) result_full = 'path * 'result * position option
type (!'path, !'result) global_event =
  1. | GConf of string * string
  2. | GLog of log_severity * string
  3. | GStart
  4. | GEnd
  5. | GResults of float * ('path, 'result) result_full list * int
type (!'path, !'result) log_event_t =
  1. | GlobalEvent of ('path, 'result) global_event
  2. | TestEvent of 'path * 'result test_event
type (!'path, !'result) log_event = {
  1. shard : string;
  2. timestamp : float;
  3. event : ('path, 'result) log_event_t;
}
type (!'path, !'result) logger = {
  1. lshard : string;
  2. fwrite : ('path, 'result) log_event -> unit;
  3. fpos : unit -> position option;
  4. 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) format4 -> 'c
val warningf : ('a, 'b) logger -> ('c, unit, string, unit) format4 -> 'c
val errorf : ('a, 'b) logger -> ('c, unit, string, unit) 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