OCaml Forge
SCM

Detail: [#1098] TAP support

Feature Requests: Browse | Download .csv | Monitor

[#1098] TAP support

Date:
2012-02-22 21:43
Priority:
3
State:
Open
Submitted by:
Sylvain Le Gall (gildor-admin)
Assigned to:
Sylvain Le Gall (gildor-admin)
Component:
General
Operating System:
None
Product:
ounit
 
Summary:
TAP support

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

Followup

Message
Date: 2012-06-05 14:28
Sender: Edgar Friendly

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

Attached Files:

Changes:

Field Old Value Date By
assigned_tonone2012-09-05 03:57gildor-admin