genvalidity-bytestring (empty) → 0.0.0.1

raw patch · 6 files changed

+116/−0 lines, 6 filesdep +QuickCheckdep +basedep +bytestringsetup-changed

Dependencies added: QuickCheck, base, bytestring, genvalidity, genvalidity-bytestring, genvalidity-hspec, hspec, validity, validity-bytestring

Files

• LICENSE +21/−0
• Setup.hs +3/−0
• genvalidity-bytestring.cabal +48/−0
• src/Data/GenValidity/ByteString.hs +23/−0
• test/Data/GenValidity/ByteStringSpec.hs +20/−0
• test/Spec.hs +1/−0

@@ -0,0 +1,21 @@+The MIT License (MIT)++Copyright (c) 2016 Tom Sydney Kerckhove++Permission is hereby granted, free of charge, to any person obtaining a copy+of this software and associated documentation files (the "Software"), to deal+in the Software without restriction, including without limitation the rights+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell+copies of the Software, and to permit persons to whom the Software is+furnished to do so, subject to the following conditions:++The above copyright notice and this permission notice shall be included in all+copies or substantial portions of the Software.++THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE+SOFTWARE.

@@ -0,0 +1,3 @@+import Distribution.Simple++main = defaultMain

@@ -0,0 +1,48 @@+name: genvalidity-bytestring+version: 0.0.0.1+cabal-version: >=1.10+build-type: Simple+license: MIT+license-file: LICENSE+copyright: Copyright: (c) 2016 Tom Sydney Kerckhove+maintainer: syd.kerckhove@gmail.com+homepage: https://github.com/NorfairKing/validity#readme+synopsis: GenValidity support for ByteString+description:+    Please see README.md+category: Testing+author: Tom Sydney Kerckhove++source-repository head+    type: git+    location: https://github.com/NorfairKing/validity++library+    exposed-modules:+        Data.GenValidity.ByteString+    build-depends:+        base >= 4.7 && <5,+        validity -any,+        validity-bytestring >= 0.1,+        genvalidity -any,+        bytestring -any,+        QuickCheck -any+    default-language: Haskell2010+    hs-source-dirs: src++test-suite genvalidity-bytestring-test+    type: exitcode-stdio-1.0+    main-is: Spec.hs+    build-depends:+        base -any,+        hspec -any,+        QuickCheck,+        genvalidity -any,+        genvalidity-bytestring -any,+        genvalidity-hspec -any,+        bytestring -any+    default-language: Haskell2010+    hs-source-dirs: test+    other-modules:+        Data.GenValidity.ByteStringSpec+    ghc-options: -threaded -rtsopts -with-rtsopts=-N -Wall -fno-warn-name-shadowing

@@ -0,0 +1,23 @@+{-# OPTIONS_GHC -fno-warn-orphans #-}+{-# LANGUAGE CPP #-}++module Data.GenValidity.ByteString where++import Data.GenValidity+import Data.Validity.ByteString ()++import Test.QuickCheck++import Control.Monad+#if !MIN_VERSION_base(4,8,0)+import Data.Functor ((<$>))+#endif+import qualified Data.ByteString as SB+import Data.ByteString (ByteString)++instance GenUnchecked ByteString where+    genUnchecked = SB.pack <$> genUnchecked++instance GenValid ByteString++instance GenInvalid ByteString

@@ -0,0 +1,20 @@+module Data.GenValidity.ByteStringSpec+    ( spec+    ) where++import Test.Hspec+import Test.QuickCheck++import Data.GenValidity+import Data.GenValidity.ByteString ()++import Data.ByteString (ByteString)++spec :: Spec+spec = do+    describe "genValid" $+        it "generates valid bytestring" $+        forAll (genValid :: Gen ByteString) isValid+    describe "genUnchecked `suchThat` isValid" $+        it "generates valid bytestring" $+        forAll ((genUnchecked :: Gen ByteString) `suchThat` isValid) isValid

@@ -0,0 +1,1 @@+{-# OPTIONS_GHC -F -pgmF hspec-discover #-}