msgpack-testsuite 0.0.16 → 0.1.0

raw patch · 2 files changed

+3/−25 lines, 2 filesdep +quickcheck-instancesPVP ok

version bump matches the API change (PVP)

Dependencies added: quickcheck-instances

API changes (from Hackage documentation)

- Test.MessagePack.Spec: instance (Data.Hashable.Class.Hashable k, GHC.Classes.Ord k, GHC.Classes.Eq k, Test.QuickCheck.Arbitrary.Arbitrary k, Test.QuickCheck.Arbitrary.Arbitrary v) => Test.QuickCheck.Arbitrary.Arbitrary (Data.HashMap.Internal.HashMap k v)

- Test.MessagePack.Spec: instance (Test.QuickCheck.Arbitrary.Arbitrary a, Data.Vector.Unboxed.Base.Unbox a) => Test.QuickCheck.Arbitrary.Arbitrary (Data.Vector.Unboxed.Base.Vector a)

- Test.MessagePack.Spec: instance (Test.QuickCheck.Arbitrary.Arbitrary a, Foreign.Storable.Storable a) => Test.QuickCheck.Arbitrary.Arbitrary (Data.Vector.Storable.Vector a)

- Test.MessagePack.Spec: instance Test.QuickCheck.Arbitrary.Arbitrary Data.ByteString.Internal.ByteString

- Test.MessagePack.Spec: instance Test.QuickCheck.Arbitrary.Arbitrary Data.ByteString.Lazy.Internal.ByteString

- Test.MessagePack.Spec: instance Test.QuickCheck.Arbitrary.Arbitrary Data.Text.Internal.Lazy.Text

- Test.MessagePack.Spec: instance Test.QuickCheck.Arbitrary.Arbitrary a => Test.QuickCheck.Arbitrary.Arbitrary (Data.Vector.Vector a)

msgpack-testsuite.cabal view

@@ -1,5 +1,5 @@ name:                 msgpack-testsuite-version:              0.0.16+version:              0.1.0 synopsis:             A Haskell implementation of MessagePack homepage:             http://msgpack.org/ license:              BSD3@@ -42,6 +42,7 @@     , monad-validate     , msgpack-arbitrary     , msgpack-types             >= 0.3 && < 0.4+    , quickcheck-instances     , text     , unordered-containers     , vector

src/Test/MessagePack/Spec.hs view

@@ -8,12 +8,12 @@ import           Test.Hspec import           Test.QuickCheck import qualified Test.QuickCheck.Gen         as Gen+import           Test.QuickCheck.Instances   ()  import qualified Data.ByteString.Char8       as S import qualified Data.ByteString.Lazy        as L8 import qualified Data.ByteString.Lazy.Char8  as L import qualified Data.HashMap.Strict         as HashMap-import           Data.Hashable               (Hashable) import           Data.Int                    (Int16, Int32, Int64, Int8) import qualified Data.IntMap                 as IntMap import qualified Data.Map                    as Map@@ -79,29 +79,6 @@     , Foo8 <$> arbitrary <*> arbitrary     , Foo9 <$> arbitrary <*> arbitrary <*> arbitrary     ]---instance (Hashable k, Ord k, Eq k, Arbitrary k, Arbitrary v)-    => Arbitrary (HashMap.HashMap k v) where-  arbitrary = HashMap.fromList . Map.assocs <$> arbitrary--instance Arbitrary a => Arbitrary (V.Vector a) where-  arbitrary = V.fromList <$> arbitrary--instance (Arbitrary a, VS.Storable a) => Arbitrary (VS.Vector a) where-  arbitrary = VS.fromList <$> arbitrary--instance (Arbitrary a, VU.Unbox a) => Arbitrary (VU.Vector a) where-  arbitrary = VU.fromList <$> arbitrary--instance Arbitrary S.ByteString where-  arbitrary = S.pack <$> arbitrary--instance Arbitrary L.ByteString where-  arbitrary = L.pack <$> arbitrary--instance Arbitrary LT.Text where-  arbitrary = LT.pack <$> arbitrary   type UnpackResult a = Either DecodeError a