genvalidity-hspec 0.6.0.1 → 0.6.0.2

raw patch · 2 files changed

+5/−27 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• genvalidity-hspec.cabal +2/−2
• src/Test/Validity/Utils.hs +3/−25

@@ -2,10 +2,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 926ad060108a21f0c185f483af0bfa8e11ed0401a0e74990ecc64ee15ee1ef93+-- hash: 5acc50959a50b61fe06ee750091b0d8a1b858be35b19f21c46a1f4159483beef  name:           genvalidity-hspec-version:        0.6.0.1+version:        0.6.0.2 synopsis:       Standard spec's for GenValidity instances description:    Note: There are companion packages for this library:                 .

@@ -20,16 +20,16 @@     ) where  import Data.Data-import Data.Validity -import Control.Monad- import Test.Hspec import Test.Hspec.Core.Formatters import Test.Hspec.Core.Runner import Test.Hspec.Core.Spec+ import Test.QuickCheck.Property +import Test.Validity.Property.Utils+ nameOf ::        forall a. Typeable a     => String@@ -117,25 +117,3 @@             { reason = unwords ["Should have failed:", reason res]             , expect = not $ expect res             }--shouldBeValid :: (Show a, Validity a) => a -> Expectation-shouldBeValid a = do-    case prettyValidation a of-        Right _ -> pure ()-        Left err ->-            expectationFailure $-            unlines-                [ "'validate' reported this value to be invalid: " ++ show a-                , err-                , ""-                ]-    unless (isValid a) $-        expectationFailure $-        unlines-            [ "isValid considered this value invalid: " ++ show a-            , "This is odd because 'validate' reported no issues."-            , "Are you sure 'Validity' is implemented correctly?"-            ]--shouldBeInvalid :: (Show a, Validity a) => a -> Expectation-shouldBeInvalid a = a `shouldNotSatisfy` isValid