alcotest: handle skipped tests

Khady · Dec 21, 2024 · 1586a3f · 1586a3f
1 parent a94df7d
commit 1586a3f
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/alcotest/junit_alcotest.ml b/alcotest/junit_alcotest.ml
@@ -34,6 +34,12 @@ let wrap_test ?classname handle_result (name, s, test) =
         exn_msg
       |> handle_result;
       raise exn
+    | Alcotest_engine__Core.Skip ->
+      Junit.Testcase.skipped
+        ~name
+        ~classname
+        ~time:0.
+      |> handle_result
     | exn ->
       let exn_msg = Printexc.to_string exn in
       Junit.Testcase.error

diff --git a/alcotest/test/alcotest_report.expected b/alcotest/test/alcotest_report.expected
@@ -1,4 +1,4 @@
-<testsuites><testsuite package="junit_alcotest" id="0" name="Skip test suite" timestamp="2013-05-24T10:23:58" hostname="localhost" tests="2" failures="0" errors="2" time="0"><properties></properties><testcase name="Skipped quick" classname="Skip test suite.Skipped tests" time="0"><error message="test crashed" type="exception raised">Alcotest_engine__Core.Skip</error></testcase><testcase name="Skipped slow" classname="Skip test suite.Skipped tests" time="0"><error message="test crashed" type="exception raised">Alcotest_engine__Core.Skip</error></testcase></testsuite><testsuite package="junit_alcotest" id="1" name="My first test" timestamp="2013-05-24T10:23:58" hostname="localhost" tests="4" failures="0" errors="2" time="0"><properties></properties><testcase name="Test with unexpected exception" classname="My first test.Basic tests" time="0"><error message="test crashed" type="exception raised">Invalid_argument(&quot;7&quot;)</error></testcase><testcase name="Capitalize" classname="My first test.Basic tests" time="0"></testcase><testcase name="Add entries" classname="My first test.Basic tests" time="0"></testcase><testcase name="Test with wrong result" classname="My first test.Basic tests" time="0"><error message="test crashed" type="exception raised">Alcotest assertion failure
+<testsuites><testsuite package="junit_alcotest" id="0" name="Skip test suite" timestamp="2013-05-24T10:23:58" hostname="localhost" tests="2" failures="0" errors="0" time="0"><properties></properties><testcase name="Skipped quick" classname="Skip test suite.Skipped tests" time="0"><skipped></skipped></testcase><testcase name="Skipped slow" classname="Skip test suite.Skipped tests" time="0"><skipped></skipped></testcase></testsuite><testsuite package="junit_alcotest" id="1" name="My first test" timestamp="2013-05-24T10:23:58" hostname="localhost" tests="4" failures="0" errors="2" time="0"><properties></properties><testcase name="Test with unexpected exception" classname="My first test.Basic tests" time="0"><error message="test crashed" type="exception raised">Invalid_argument(&quot;7&quot;)</error></testcase><testcase name="Capitalize" classname="My first test.Basic tests" time="0"></testcase><testcase name="Add entries" classname="My first test.Basic tests" time="0"></testcase><testcase name="Test with wrong result" classname="My first test.Basic tests" time="0"><error message="test crashed" type="exception raised">Alcotest assertion failure
 &#27;[1mFile &quot;alcotest/junit_alcotest.ml&quot;, line 20, character 6:
 &#27;[0m&#27;[31mFAIL&#27;[0m string_of_int equals to '7'