HUnit 1.3.1.1 → 1.3.1.2

raw patch · 3 files changed

+16/−1 lines, 3 filesPVP: minor bump suggested

API additions: PVP suggests at least a minor version bump

API changes (from Hackage documentation)

+ Test.HUnit.Base: infix 1 @?

+ Test.HUnit.Base: infixr 0 ~:

Files

CHANGELOG.md +4/−0
HUnit.cabal +1/−1
tests/HUnitTestExtended.hs +11/−0

CHANGELOG.md view

@@ -1,5 +1,9 @@ ## Changes +#### 1.3.1.2++- Fixes the test suite on GHC 8+ #### 1.3.1.1  - Various updates to metadata and documentation removing outdated information and making other things more visible

HUnit.cabal view

@@ -1,5 +1,5 @@ Name:                   HUnit-Version:                1.3.1.1+Version:                1.3.1.2 Cabal-Version:          >= 1.8 License:                BSD3 License-File:           LICENSE

tests/HUnitTestExtended.hs view

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} module HUnitTestExtended (     extendedTests     ) where@@ -5,6 +6,11 @@ import Test.HUnit import HUnitTestBase +#if MIN_VERSION_base(4,9,0)+errorCall :: a+errorCall = error "error"+#endif+ extendedTests :: Test extendedTests = test [ @@ -16,8 +22,13 @@     "list ref out of bounds" ~:         expectUnspecifiedError (TestCase ([1 .. 4 :: Integer] !! 10 `seq` return ())), +#if MIN_VERSION_base(4,9,0)     "error" ~:+        expectError "error\nCallStack (from HasCallStack):\n  error, called at tests/HUnitTestExtended.hs:11:13 in main:HUnitTestExtended" (TestCase errorCall),+#else+     "error" ~:         expectError "error" (TestCase (error "error")),+#endif      "tail []" ~:         expectUnspecifiedError (TestCase (tail [] `seq` return ()))