tasty-rerun 1.1.0 → 1.1.1

raw patch · 3 files changed

+16/−9 lines, 3 filesdep ~tasty

Dependency ranges changed: tasty

Files

• Changelog.md +4/−0
• src/Test/Tasty/Ingredients/Rerun.hs +10/−7
• tasty-rerun.cabal +2/−2

@@ -1,3 +1,7 @@+# 1.1.1++* Update to work with tasty >= 0.8+ # 1.1.0  * The `TestTree` is filtered using a custom traversal now, rather than a

@@ -26,7 +26,6 @@ import qualified Data.Set as Set import qualified Options.Applicative as OptParse import qualified Test.Tasty.Options as Tasty-import qualified Test.Tasty.Providers as Tasty import qualified Test.Tasty.Runners as Tasty  --------------------------------------------------------------------------------@@ -123,7 +122,11 @@       let tryAndRun (Tasty.TestReporter _ f) = do             runner <- f options filteredTestTree             return $ do-              statusMap <- Tasty.launchTestTree options filteredTestTree+              (statusMap, outcome) <-+                Tasty.launchTestTree options filteredTestTree $ \sMap ->+                  do outcome <- runner sMap+                     return (sMap, outcome)+               let getTestResults =                     fmap getConst $                     flip State.evalStateT 0 $@@ -131,7 +134,7 @@                     getTraversal $                     Tasty.foldTestTree (observeResults statusMap)                                         options filteredTestTree-              outcome <- runner statusMap+               when updateLog (saveStateTo stateFile getTestResults)               return outcome @@ -202,10 +205,10 @@           status <- lift $ STM.atomically $ do             status <- lookupStatus i             case status of-              Tasty.Done result ->-                return (Completed (Tasty.resultSuccessful result))--              Tasty.Exception _ -> return ThrewException+              Tasty.Done result -> return $+                case Tasty.resultOutcome result of+                  Tasty.Failure (Tasty.TestThrewException _) -> ThrewException+                  _ -> Completed (Tasty.resultSuccessful result)                _ -> STM.retry 

@@ -1,5 +1,5 @@ name:                tasty-rerun-version:             1.1.0+version:             1.1.1 homepage:            http://github.com/ocharles/tasty-rerun license:             BSD3 license-file:        LICENSE@@ -80,7 +80,7 @@     split >= 0.1 && < 0.3,     stm >= 2.4.2,     tagged >= 0.7 && <0.8,-    tasty >=0.7 && <0.8,+    tasty >=0.8 && <0.9,     transformers >= 0.3.0.0   hs-source-dirs:      src   default-language:    Haskell2010