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