# 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