Safe Haskell	Safe-Inferred
Language	Haskell2010

Test.Framework.XmlOutput

Description

XML-output following the JUnit output format.

The data types exposed by this module give a rough specification of the output format.

Here is a sample ouput:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<testsuites tests="6" failures="2" errors="0" time="0.705">
  <testsuite id="0" tests="2" failures="0" errors="0" time="0.000" name=MyPkg.A package=MyPkg.A>
    <testcase classname=MyPkg.A name="test_funA2" time="0.000"/>
    <testcase classname=MyPkg.A name="test_funA1" time="0.000"/>
  </testsuite>
  <testsuite id="1" tests="2" failures="0" errors="0" time="0.000" name=MyPkg.B package=MyPkg.B>
    <testcase classname=MyPkg.B name="test_funB2" time="0.000"/>
    <testcase classname=MyPkg.B name="test_funB1" time="0.000"/>
  </testsuite>
  <testsuite id="2" tests="2" failures="2" errors="0" time="0.703" name="bbts" package="bbts">
    <testcase classname="bbts" name="bbt_bbt-dirshould-passx.num" time="0.230">
      <failure type="failure" message="test is supposed to succeed but failed with exit code 255">test is supposed to succeed but failed with exit code 255</failure>
    </testcase>
    <testcase classname="bbts" name="bbt_bbt-dirshould-failz.num" time="0.473">
      <failure type="failure" message="Mismatch on stderr:">Mismatch on stderr:
--- bbt-dirshould-failz.err	2015-09-05 18:37:30.000000000 +0200
+++ -	2022-03-06 09:49:55.480265000 +0100
@@ -1 +1 @@
-invalid input
+sample[88331]: [fatal] unable to read input graph: The data couldn’t be read because it isn’t in the correct format.
[end of diff output]
</failure>
    </testcase>
  </testsuite>
</testsuites>

Synopsis

data JunitXmlOutput = JunitXmlOutput Testsuites
data Testsuites = Testsuites {
- tss_tests :: Int
- tss_failures :: Int
- tss_errors :: Int
- tss_time :: Seconds
- tss_suites :: [Testsuite]
}
data Testsuite = Testsuite {
- ts_tests :: Int
- ts_failures :: Int
- ts_errors :: Int
- ts_time :: Seconds
- ts_id :: Int
- ts_name :: String
- ts_package :: String
- ts_testcases :: [Testcase]
}
data Testcase = Testcase {
- tc_classname :: String
- tc_name :: String
- tc_time :: Seconds
- tc_result :: Maybe Result
}
data Result = Result {
- r_elemName :: String
- r_message :: Text
- r_type :: String
- r_textContent :: Text
}
mkGlobalResultsXml :: ReportGlobalResultsArg -> ByteString

Documentation

data JunitXmlOutput Source #

A "specification" of the output format in terms of haskell data types: The name of each data type corresponds to the name of an XML element (lowercase first letter). The name of a field with a primitive corresponds to an attribute with then same name as the field (without the prefix up to the first _).

The root element is testsuites

Constructors

JunitXmlOutput Testsuites

data Testsuites Source #

Constructors

Testsuites
Fields tss_tests :: Int tss_failures :: Int tss_errors :: Int tss_time :: Seconds tss_suites :: [Testsuite]

data Testsuite Source #

Constructors

Testsuite
Fields ts_tests :: Int ts_failures :: Int ts_errors :: Int ts_time :: Seconds ts_id :: Int ts_name :: String ts_package :: String ts_testcases :: [Testcase]

data Testcase Source #

Constructors

Testcase
Fields tc_classname :: String tc_name :: String tc_time :: Seconds tc_result :: Maybe Result

data Result Source #

Constructors

Result
Fields r_elemName :: String r_message :: Text r_type :: String r_textContent :: Text

mkGlobalResultsXml :: ReportGlobalResultsArg -> ByteString Source #