test-sandbox-hunit 0.1.2 → 0.1.3

raw patch · 2 files changed

+9/−2 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• src/Test/Sandbox/HUnit.hs +8/−1
• test-sandbox-hunit.cabal +1/−1

@@ -16,7 +16,12 @@ import Control.Exception.Lifted  import qualified Test.HUnit++#if MIN_VERSION_HUnit(1,5,0)+import Test.HUnit.Lang (HUnitFailure (..), formatFailureReason)+#else import Test.HUnit.Lang (HUnitFailure (..))+#endif  -- | Unconditionally signals that a failure has occured. assertFailure :: String     -- ^ A message that is displayed with the assertion failure@@ -50,7 +55,9 @@   assertBool s =<< (a >> return False) `catchError` const (return True)  wrap :: Sandbox () -> Sandbox ()-#if MIN_VERSION_HUnit(1,3,0)+#if MIN_VERSION_HUnit(1,5,0)+wrap action = action `catch` (\ (HUnitFailure _ e :: HUnitFailure) -> throwError $ formatFailureReason e)+#elif MIN_VERSION_HUnit(1,3,0) wrap action = action `catch` (\ (HUnitFailure _ e :: HUnitFailure) -> throwError e) #else wrap action = action `catch` (\ (HUnitFailure e :: HUnitFailure) -> throwError e)

@@ -1,5 +1,5 @@ Name:           test-sandbox-hunit-Version:        0.1.2+Version:        0.1.3 Cabal-Version:  >= 1.14 Category:       Testing Synopsis:       HUnit convenience functions for use with test-sandbox