Home

My Page

Projects

Code Snippets

OUnit

Summary

Activity

Tracker

Lists

News

SCM

Files

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_to none 2012-09-05 03:57 gildor-admin