HUnit 1.5.0.0 → 1.6.0.0
raw patch · 4 files changed
+9/−5 lines, 4 filesdep ~basePVP ok
version bump matches the API change (PVP)
Dependency ranges changed: base
API changes (from Hackage documentation)
- Test.HUnit.Lang: instance GHC.Exception.Exception Test.HUnit.Lang.HUnitFailure
+ Test.HUnit.Lang: instance GHC.Exception.Type.Exception Test.HUnit.Lang.HUnitFailure
- Test.HUnit.Base: assertFailure :: HasCallStack => String -> Assertion
+ Test.HUnit.Base: assertFailure :: HasCallStack => String -> IO a
- Test.HUnit.Lang: Error :: (Maybe SrcLoc) -> String -> Result
+ Test.HUnit.Lang: Error :: Maybe SrcLoc -> String -> Result
- Test.HUnit.Lang: ExpectedButGot :: (Maybe String) -> String -> String -> FailureReason
+ Test.HUnit.Lang: ExpectedButGot :: Maybe String -> String -> String -> FailureReason
- Test.HUnit.Lang: Failure :: (Maybe SrcLoc) -> String -> Result
+ Test.HUnit.Lang: Failure :: Maybe SrcLoc -> String -> Result
- Test.HUnit.Lang: HUnitFailure :: (Maybe SrcLoc) -> FailureReason -> HUnitFailure
+ Test.HUnit.Lang: HUnitFailure :: Maybe SrcLoc -> FailureReason -> HUnitFailure
- Test.HUnit.Lang: assertFailure :: HasCallStack => String -> Assertion
+ Test.HUnit.Lang: assertFailure :: HasCallStack => String -> IO a
Files
- CHANGELOG.md +4/−0
- HUnit.cabal +2/−2
- src/Test/HUnit/Lang.hs +1/−1
- tests/HUnitTestBase.lhs +2/−2
CHANGELOG.md view
@@ -1,5 +1,9 @@ ## Changes +#### 1.6.0.0++- Generalize return type of `assertFailure` to `IO a`+ #### 1.5.0.0 - Preserve actual/expected for `assertEqual` failures
HUnit.cabal view
@@ -1,9 +1,9 @@--- This file has been generated from package.yaml by hpack version 0.15.0.+-- This file has been generated from package.yaml by hpack version 0.17.0. -- -- see: https://github.com/sol/hpack name: HUnit-version: 1.5.0.0+version: 1.6.0.0 cabal-version: >= 1.10 license: BSD3 license-file: LICENSE
src/Test/HUnit/Lang.hs view
@@ -55,7 +55,7 @@ assertFailure :: HasCallStack => String -- ^ A message that is displayed with the assertion failure- -> Assertion+ -> IO a assertFailure msg = msg `deepseq` E.throwIO (HUnitFailure location $ Reason msg) -- | Asserts that the specified actual value is equal to the expected value.
tests/HUnitTestBase.lhs view
@@ -81,7 +81,7 @@ > ok :: Test > ok = test (assert ()) > bad :: String -> Test-> bad m = test (assertFailure m)+> bad m = test (assertFailure m :: Assertion) > assertTests :: Test@@ -108,7 +108,7 @@ > "assertFailure" ~: > let msg = "simple assertFailure"-> in expectFailure msg (test (assertFailure msg)),+> in expectFailure msg (test (assertFailure msg :: Assertion)), > "assertString null" ~: expectSuccess (TestCase (assertString "")),