junit-xml-0.1.0.3: test/Main.hs

{-# LANGUAGE OverloadedStrings #-}

module Main
  ( main,
  )
where

import Data.Function ((&))
import Test.Tasty
import Test.Tasty.Golden as Golden
import Text.XML.JUnit
import System.FilePath((</>))
import System.IO.Temp(withSystemTempDirectory)

main :: IO ()
main = withSystemTempDirectory "haskell-junit-xml-tests" (\tmp -> defaultMain (tests tmp))

tests :: FilePath -> TestTree
tests tmpdir =
  Golden.goldenVsFile
    "Generate sample XML"
    ("test" </> "sample-report.xml")
    out
    (writeXmlReport out suites)
  where
    out = tmpdir </> "junit-xml-haskell-test.xml"
    suites =
      [ passed "Passed test"
          & stdout "passing stdout"
          & time 0.3
          & inSuite "suite 1",
        skipped "Skipped test"
          & inSuite "suite 1",
        failed "Failed test"
          & stdout "failing stdout"
          & stderr "failing stderr"
          & time 0.2
          & failureMessage "failing message"
          & failureStackTrace ["frame1", "frame2"]
          & inSuite "suite 1",
        errored "Errored test"
          & stdout "errored stdout"
          & stderr "errored stderr"
          & time 0.1
          & errorMessage "errored message"
          & errorStackTrace ["single error frame"]
          & inSuite "suite 2"
      ]