From 2d0698bbd33f69e351d06187808de58f8eb27f29 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Louis=20Roch=C3=A9?= <louis@louisroche.net>
Date: Sat, 21 Dec 2024 12:01:29 +0100
Subject: [PATCH] test: add skipped tests with alcotest

---
 alcotest/test/alcotest_report.expected |  6 +++---
 alcotest/test/alcotest_report.ml       | 13 +++++++++++--
 2 files changed, 14 insertions(+), 5 deletions(-)

diff --git a/alcotest/test/alcotest_report.expected b/alcotest/test/alcotest_report.expected
index 90876c5..7cdf8e7 100644
--- a/alcotest/test/alcotest_report.expected
+++ b/alcotest/test/alcotest_report.expected
@@ -1,15 +1,15 @@
-<testsuites><testsuite package="junit_alcotest" id="0" 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="Capitalize" classname="Skip test suite.Skipped tests" time="0"></testcase><testcase name="Add entries" classname="Skip test suite.Skipped tests" time="0"></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'
 
    Expected: `&#27;[32m&quot;7&quot;&#27;[0m'
    Received: `&#27;[31m&quot;8&quot;&#27;[0m'
 
-</error></testcase></testsuite><testsuite package="junit_alcotest" id="1" name="My second 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 second test.Basic tests" time="0"><error message="test crashed" type="exception raised">Invalid_argument(&quot;7&quot;)</error></testcase><testcase name="Capitalize" classname="My second test.Basic tests" time="0"></testcase><testcase name="Add entries" classname="My second test.Basic tests" time="0"></testcase><testcase name="Test with wrong result" classname="My second test.Basic tests" time="0"><error message="test crashed" type="exception raised">Alcotest assertion failure
+</error></testcase></testsuite><testsuite package="junit_alcotest" id="2" name="My second 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 second test.Basic tests" time="0"><error message="test crashed" type="exception raised">Invalid_argument(&quot;7&quot;)</error></testcase><testcase name="Capitalize" classname="My second test.Basic tests" time="0"></testcase><testcase name="Add entries" classname="My second test.Basic tests" time="0"></testcase><testcase name="Test with wrong result" classname="My second 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'
 
    Expected: `&#27;[32m&quot;7&quot;&#27;[0m'
    Received: `&#27;[31m&quot;8&quot;&#27;[0m'
 
-</error></testcase></testsuite><testsuite package="junit_alcotest" id="2" name="Success test suite" timestamp="2013-05-24T10:23:58" hostname="localhost" tests="2" failures="0" errors="0" time="0"><properties></properties><testcase name="Capitalize" classname="Success test suite.Good tests" time="0"></testcase><testcase name="Add entries" classname="Success test suite.Good tests" time="0"></testcase></testsuite></testsuites>
+</error></testcase></testsuite><testsuite package="junit_alcotest" id="3" name="Success test suite" timestamp="2013-05-24T10:23:58" hostname="localhost" tests="2" failures="0" errors="0" time="0"><properties></properties><testcase name="Capitalize" classname="Success test suite.Good tests" time="0"></testcase><testcase name="Add entries" classname="Success test suite.Good tests" time="0"></testcase></testsuite></testsuites>
diff --git a/alcotest/test/alcotest_report.ml b/alcotest/test/alcotest_report.ml
index 3659343..2c76195 100644
--- a/alcotest/test/alcotest_report.ml
+++ b/alcotest/test/alcotest_report.ml
@@ -10,7 +10,7 @@ let capit () =
   A.(check char) "Check A" 'A' (To_test.capit 'a')
 
 let plus () =
-  A.(check int)"Sum equals to 7" 7 (To_test.plus [1;1;2;3])
+  A.(check int) "Sum equals to 7" 7 (To_test.plus [1;1;2;3])
 
 let wrong_result () =
   A.(check string) "string_of_int equals to '7'" "7" (string_of_int 8)
@@ -30,6 +30,11 @@ let success_test_set = [
   A.test_case "Add entries" `Slow plus;
 ]
 
+let skipped_test_set = [
+  A.test_case "Skipped quick" `Quick (fun () -> A.skip ());
+  A.test_case "Skipped slow" `Slow (fun () -> A.skip ());
+]
+
 let timestamp =
   match Ptime.of_date_time ((2013, 5, 24), ((10, 23, 58), 0)) with
   | Some t -> t
@@ -37,6 +42,10 @@ let timestamp =
 
 let alcotest path =
   let package = "junit_alcotest" in
+  let (testsuite0, _) = JA.run_and_report ~package ~timestamp "Skip test suite" [
+    "Skipped tests", success_test_set;
+  ]
+  in
   let (testsuite1, _) = JA.run_and_report ~package ~timestamp "My first test" [
     "Basic tests", test_set;
   ]
@@ -49,7 +58,7 @@ let alcotest path =
     "Good tests", success_test_set;
   ]
   in
-  let report = Junit.make [testsuite1; testsuite2; testsuite3] in
+  let report = Junit.make [testsuite0; testsuite1; testsuite2; testsuite3] in
   begin match path with
     | None ->
       let xml_report = Junit.to_xml report in