Commit 93302f6c authored by Don Stewart's avatar Don Stewart
Browse files

update bytestring tests

parent 3430737f
......@@ -32,6 +32,7 @@ import qualified Data.ByteString.Lazy as L
import Data.ByteString.Fusion
import qualified Data.ByteString as P
import qualified Data.ByteString.Lazy as L
import qualified Data.ByteString.Base as L (LazyByteString(..))
import qualified Data.ByteString.Char8 as PC
import qualified Data.ByteString.Lazy.Char8 as LC
......@@ -954,8 +955,8 @@ fusion_tests =
--
invariant :: L.ByteString -> Bool
invariant (LPS []) = True
invariant (LPS xs) = all (not . P.null) xs
invariant (L.LPS []) = True
invariant (L.LPS xs) = all (not . P.null) xs
prop_invariant = invariant
......@@ -28,6 +28,7 @@ import Foreign.Ptr
import Data.ByteString.Lazy (ByteString(..), pack , unpack)
import qualified Data.ByteString.Lazy as L
import qualified Data.ByteString.Base as L (LazyByteString(..))
import Data.ByteString.Fusion
import qualified Data.ByteString as P
......
......@@ -27,6 +27,7 @@ import Foreign.Ptr
import Data.ByteString.Lazy (ByteString(..), pack , unpack)
import qualified Data.ByteString.Lazy as L
import qualified Data.ByteString.Base as L (LazyByteString(..))
import Data.ByteString.Fusion
import qualified Data.ByteString as P
......@@ -285,8 +286,8 @@ instance IsNull P.ByteString where isNull = P.null
--
invariant :: L.ByteString -> Bool
invariant (LPS []) = True
invariant (LPS xs) = all (not . P.null) xs
invariant (L.LPS []) = True
invariant (L.LPS xs) = all (not . P.null) xs
prop_invariant = invariant
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment