tasty-expected-failure 0.12 → 0.12.1

raw patch · 2 files changed

+11/−1 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Test/Tasty/ExpectedFailure.hs +10/−0
• tasty-expected-failure.cabal +1/−1

@@ -1,9 +1,13 @@+{-# LANGUAGE CPP #-} {-# LANGUAGE DeriveDataTypeable, ScopedTypeVariables, LambdaCase #-} module Test.Tasty.ExpectedFailure (expectFail, expectFailBecause, ignoreTest, ignoreTestBecause, wrapTest) where  import Test.Tasty.Options import Test.Tasty.Runners import Test.Tasty.Providers+#if MIN_VERSION_tasty(1,3,1)+import Test.Tasty.Providers.ConsoleFormat ( ResultDetailsPrinter(..) )+#endif import Test.Tasty ( Timeout(..) ) import Data.Typeable import Data.Tagged@@ -43,12 +47,18 @@                    , resultDescription = "Timed out after " <> s                    , resultShortDescription = "TIMEOUT"                    , resultTime = fromIntegral t+#if MIN_VERSION_tasty(1,3,1)+                   , resultDetailsPrinter = ResultDetailsPrinter . const . const $ return ()+#endif                    }           exceptionResult e =             Result { resultOutcome = Failure $ TestThrewException e                    , resultDescription = "Exception: " ++ displayException e                    , resultShortDescription = "FAIL"                    , resultTime = 0+#if MIN_VERSION_tasty(1,3,1)+                   , resultDetailsPrinter = ResultDetailsPrinter . const . const $ return ()+#endif                    }       in wrap $ try (pre $ run opts t prog) >>= \case         Right r -> return (post r)

@@ -1,5 +1,5 @@ name:                tasty-expected-failure-version:             0.12+version:             0.12.1 synopsis:            Mark tasty tests as failure expected description:  With the function 'Test.Tasty.ExpectedFailure.expectFail' in the provided module