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 ...@@ -32,6 +32,7 @@ import qualified Data.ByteString.Lazy as L
import Data.ByteString.Fusion import Data.ByteString.Fusion
import qualified Data.ByteString as P import qualified Data.ByteString as P
import qualified Data.ByteString.Lazy as L 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.Char8 as PC
import qualified Data.ByteString.Lazy.Char8 as LC import qualified Data.ByteString.Lazy.Char8 as LC
...@@ -954,8 +955,8 @@ fusion_tests = ...@@ -954,8 +955,8 @@ fusion_tests =
-- --
invariant :: L.ByteString -> Bool invariant :: L.ByteString -> Bool
invariant (LPS []) = True invariant (L.LPS []) = True
invariant (LPS xs) = all (not . P.null) xs invariant (L.LPS xs) = all (not . P.null) xs
prop_invariant = invariant prop_invariant = invariant
...@@ -28,6 +28,7 @@ import Foreign.Ptr ...@@ -28,6 +28,7 @@ import Foreign.Ptr
import Data.ByteString.Lazy (ByteString(..), pack , unpack) import Data.ByteString.Lazy (ByteString(..), pack , unpack)
import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy as L
import qualified Data.ByteString.Base as L (LazyByteString(..))
import Data.ByteString.Fusion import Data.ByteString.Fusion
import qualified Data.ByteString as P import qualified Data.ByteString as P
......
...@@ -27,6 +27,7 @@ import Foreign.Ptr ...@@ -27,6 +27,7 @@ import Foreign.Ptr
import Data.ByteString.Lazy (ByteString(..), pack , unpack) import Data.ByteString.Lazy (ByteString(..), pack , unpack)
import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy as L
import qualified Data.ByteString.Base as L (LazyByteString(..))
import Data.ByteString.Fusion import Data.ByteString.Fusion
import qualified Data.ByteString as P import qualified Data.ByteString as P
...@@ -285,8 +286,8 @@ instance IsNull P.ByteString where isNull = P.null ...@@ -285,8 +286,8 @@ instance IsNull P.ByteString where isNull = P.null
-- --
invariant :: L.ByteString -> Bool invariant :: L.ByteString -> Bool
invariant (LPS []) = True invariant (L.LPS []) = True
invariant (LPS xs) = all (not . P.null) xs invariant (L.LPS xs) = all (not . P.null) xs
prop_invariant = invariant 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