Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
93302f6c
Commit
93302f6c
authored
Sep 09, 2006
by
Don Stewart
Browse files
update bytestring tests
parent
3430737f
Changes
3
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/lib/Data.ByteString/bytestring001.hs
View file @
93302f6c
...
...
@@ -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
testsuite/tests/ghc-regress/lib/Data.ByteString/bytestring004.hs
View file @
93302f6c
...
...
@@ -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
...
...
testsuite/tests/ghc-regress/lib/Data.ByteString/bytestring005.hs
View file @
93302f6c
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment