tasty-ant-xml 1.0.0.5 → 1.0.0.6

raw patch · 3 files changed

+25/−10 lines, 3 filesdep ~tasty

Dependency ranges changed: tasty

Files

• Changelog.md +5/−1
• Test/Tasty/Runners/AntXML.hs +18/−7
• tasty-ant-xml.cabal +2/−2

@@ -1,6 +1,10 @@+# 1.0.0.6++* Updated to build with `tasty` 0.8.+ # 1.0.0.5 -* Updated to build with `tasty` 0.7+* Updated to build with `tasty` 0.7e.  # 1.0.0.4 

@@ -25,7 +25,6 @@ import qualified Data.Functor.Compose as Functor import qualified Data.IntMap as IntMap import qualified Test.Tasty.Options as Tasty-import qualified Test.Tasty.Providers as Tasty import qualified Test.Tasty.Runners as Tasty import qualified Text.XML.Light as XML @@ -98,13 +97,15 @@               -- If the test is done, generate XML for it               Tasty.Done result                 | Tasty.resultSuccessful result -> pure mkSuccess-                | otherwise -> pure $-                    (mkFailure (Tasty.resultDescription result))-                      { summaryFailures = Sum 1 }+                | otherwise ->+                    case resultException result of+                      Just e  -> pure $ (mkFailure (show e)) { summaryErrors = Sum 1 }+                      Nothing -> pure $+                        if resultTimedOut result+                          then (mkFailure "TimeOut") { summaryErrors = Sum 1 }+                          else (mkFailure (Tasty.resultDescription result))+                               { summaryFailures = Sum 1 } -              Tasty.Exception e -> pure $-                (mkFailure (show e)) { summaryErrors = Sum 1 }-                                            -- Otherwise the test has either not been started or is currently               -- executing               _ -> STM.retry@@ -145,3 +146,13 @@    appendChild parent child =     parent { XML.elContent = XML.elContent parent ++ [ XML.Elem child ] }++  resultException r =+    case Tasty.resultOutcome r of+         Tasty.Failure (Tasty.TestThrewException e) -> Just e+         _ -> Nothing++  resultTimedOut r =+    case Tasty.resultOutcome r of+         Tasty.Failure (Tasty.TestTimedOut _) -> True+         _ -> False

@@ -1,5 +1,5 @@ name: tasty-ant-xml-version: 1.0.0.5+version: 1.0.0.6 synopsis: Render tasty output to XML for Jenkins description: A tasty ingredient to output test results in XML, using the Ant schema. This XML can be consumed by the Jenkins continuous integration framework. homepage: http://github.com/ocharles/tasty-ant-xml@@ -23,7 +23,7 @@     reducers >= 3.10.1,     stm >= 2.4.2,     tagged >= 0.7,-    tasty >= 0.7,+    tasty >= 0.8 && < 0.9,     transformers >= 0.3.0.0,     xml >= 1.3.13   default-language: Haskell98