package ounit
type 'result test_event =
| EStart
| EEnd
| EResult of 'result
| ELog of log_severity * string
| ELogRaw of string
See OUnit.mli.
type ('path, 'result) result_full = 'path * 'result * position option
type ('path, 'result) 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 * ('path, 'result) result_full list * int
Events which occur at the global level.
type ('path, 'result) log_event_t =
| GlobalEvent of ('path, 'result) global_event
| TestEvent of 'path * 'result test_event
type ('path, 'result) log_event = {
shard : string;
timestamp : float;
event : ('path, 'result) log_event_t;
}
val string_of_event : ('a, 'b) log_event_t -> string
val null_logger : ('a, 'b) logger
val report : ('a, 'b) logger -> ('a, 'b) log_event_t -> unit
val close : ('a, 'b) logger -> unit
module Test : sig ... end
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>