Module OUnitResultSummary

module OUnitResultSummary: sig .. end

type log_entry = float * OUnitLogger.log_severity option * string

type test_data = {

	`test_name : string;`
	`timestamp_start : float;`
	`timestamp_end : float;`
	`log_entries : log_entry list;`
	`test_result : OUnitTest.result;`

}

type t = {

	`suite_name : string;`
	`start_at : float;`
	`charset : string;`
	`conf : (string * string) list;`
	`running_time : float;`
	`global_results : OUnitTest.result_list;`
	`test_case_count : int;`
	`tests : test_data list;`
	`errors : int;`
	`failures : int;`
	`skips : int;`
	`todos : int;`
	`timeouts : int;`
	`successes : int;`

}

val is_success : OUnitTest.result -> bool

val is_failure : OUnitTest.result -> bool

val is_error : OUnitTest.result -> bool

val is_skip : OUnitTest.result -> bool

val is_todo : OUnitTest.result -> bool

val is_timeout : OUnitTest.result -> bool

val result_flavour : OUnitTest.result -> string

val result_msg : OUnitTest.result -> string

val worst_cmp : OUnitTest.result -> OUnitTest.result -> int

val worst_result_full : 'a * OUnitTest.result * 'b ->
       ('a * OUnitTest.result * 'b) list ->
       ('a * OUnitTest.result * 'b) * ('a * OUnitTest.result * 'b) list

val was_successful : ('a * OUnitTest.result * 'b) list -> bool

val encoding : OUnitConf.conf -> string

val of_log_events : OUnitConf.conf ->
       (OUnitTest.MapPath.key, OUnitTest.result) OUnitLogger.log_event list ->
       t