Module OUnitCore

module OUnitCore: sig .. end

val perform_test : 'a ->
       'b ->
       ('a ->
        'b ->
        'c ->
        (OUnitTest.node list * OUnitTest.test_length * OUnitTest.test_fun) list ->
        'd) ->
       'c -> OUnitTest.test -> 'd

val run_test_tt : OUnitConf.conf ->
       ('a, 'b) OUnitLogger.logger ->
       (OUnitConf.conf ->
        ('a, 'b) OUnitLogger.logger ->
        'c ->
        (OUnitTest.node list * OUnitTest.test_length * OUnitTest.test_fun) list ->
        ('a, 'b) OUnitLogger.result_full list) ->
       'c -> OUnitTest.test -> ('a, 'b) OUnitLogger.result_full list

val run_test_tt_main_conf : (?preset:(string * string) list ->
        ?argv:string array -> (Arg.key * Arg.spec * Arg.doc) list -> OUnitConf.conf)
       Pervasives.ref

val suite_name : OUnitConf.conf -> string

val run_test_tt_main : ?exit:(int -> unit) -> OUnitTest.test -> unit