TAP support

[gildor478]

This feature request has been migrated from artifact #1098 on forge.ocamlcore.org. It was assigned to user102.

user102 posted on 2012-02-22 21:43:38:

It should be great to support TAP: http://testanything.org

user142 replied on 2012-06-05 14:28:49:

quick hack:

let run test = let test_number = ref 0 in let handle_event = function | EStart _ | EEnd _ -> incr test_number | EResult (RSuccess p) -> pf "ok %d - %s\n" !test_number (string_of_path p) | EResult (RFailure (p,m)) -> pf "not ok %d - %s # %s\n" !test_number (string_of_path p) m | EResult (RError (p,m)) -> pf "not ok %d - %s # ERROR:%s\n" !test_number (string_of_path p) m | EResult (RSkip (p,m)) -> pf "not ok %d - %s # skip %s\n" !test_number (string_of_path p) m | EResult (RTodo (p,m)) -> pf "not ok %d - %s # todo %s\n" !test_number (string_of_path p) m in let total_tests = test_case_count test in pf "1..%d\n" total_tests; perform_test handle_event test