# 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