Skip to content
GitLab
Menu
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
dc91add4
Commit
dc91add4
authored
May 25, 2006
by
Don Stewart
Browse files
Update expected output
parent
d0fbffab
Changes
2
Show whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/lib/Data.ByteString/bytestring001.hs
View file @
dc91add4
...
...
@@ -158,7 +158,7 @@ prop_compare4 xs = (not (null xs)) ==> (pack xs `compare` P.empty) == GT
prop_compare5
xs
=
(
not
(
null
xs
))
==>
(
P
.
empty
`
compare
`
pack
xs
)
==
LT
prop_compare6
xs
ys
=
(
not
(
null
ys
))
==>
(
pack
(
xs
++
ys
)
`
compare
`
pack
xs
)
==
GT
prop_compare7
x
y
=
x
`
compare
`
y
==
(
P
.
packChar
x
`
compare
`
P
.
packChar
y
)
prop_compare7
x
y
=
x
`
compare
`
y
==
(
P
.
singleton
x
`
compare
`
P
.
singleton
y
)
prop_compare8
xs
ys
=
xs
`
compare
`
ys
==
(
P
.
pack
xs
`
compare
`
P
.
pack
ys
)
-- prop_nil1 xs = (null xs) ==> pack xs == P.empty
...
...
@@ -298,12 +298,12 @@ prop_lineIndices1 xs = P.elemIndices '\n' xs == P.lineIndices xs
prop_count
c
xs
=
length
(
P
.
elemIndices
c
xs
)
==
P
.
count
c
xs
prop_elemIndex
Last
1
c
xs
=
(
P
.
elemIndex
Last
c
(
pack
xs
))
==
prop_elemIndex
End
1
c
xs
=
(
P
.
elemIndex
End
c
(
pack
xs
))
==
(
case
P
.
elemIndex
c
(
pack
(
reverse
xs
))
of
Nothing
->
Nothing
Just
i
->
Just
(
length
xs
-
1
-
i
))
prop_elemIndex
Last
2
c
xs
=
(
P
.
elemIndex
Last
c
(
pack
xs
))
==
prop_elemIndex
End
2
c
xs
=
(
P
.
elemIndex
End
c
(
pack
xs
))
==
((
-
)
(
length
xs
-
1
)
`
fmap
`
P
.
elemIndex
c
(
pack
$
reverse
xs
))
prop_elemIndices
xs
c
=
elemIndices
c
xs
==
P
.
elemIndices
c
(
pack
xs
)
...
...
@@ -357,16 +357,6 @@ prop_spanChar c xs =
prop_spanChar_1
c
xs
=
(
P
.
span
(
==
c
)
xs
)
==
P
.
spanChar
c
xs
prop_breakFirst
c
xs
=
(
let
(
x
,
y
)
=
break
(
==
c
)
xs
in
if
null
y
then
Nothing
else
Just
(
pack
x
,
pack
$
drop
1
y
))
==
(
P
.
breakFirst
c
(
pack
xs
))
prop_breakLast
c
xs
=
(
let
(
x
,
y
)
=
break
(
==
c
)
(
reverse
xs
)
in
if
null
y
then
Nothing
else
Just
(
pack
(
reverse
$
drop
1
y
),
pack
(
reverse
x
)))
==
(
P
.
breakLast
c
(
pack
xs
))
prop_words'
xs
=
(
unpack
.
P
.
unwords
.
P
.
words'
.
pack
)
xs
==
(
map
(
\
c
->
if
isSpace
c
then
' '
else
c
)
xs
)
...
...
@@ -374,7 +364,7 @@ prop_words' xs =
prop_lines'
xs
=
(
unpack
.
P
.
unlines'
.
P
.
lines'
.
pack
)
xs
==
(
xs
)
prop_unfoldr
c
=
(
P
.
unfoldrN
100
(
\
x
->
Just
(
x
,
chr
(
ord
x
+
1
)))
c
)
==
(
fst
$
P
.
unfoldrN
100
(
\
x
->
Just
(
x
,
chr
(
ord
x
+
1
)))
c
)
==
(
pack
$
take
100
$
unfoldr
(
\
x
->
Just
(
x
,
chr
(
ord
x
+
1
)))
c
)
prop_prefix
xs
ys
=
isPrefixOf
xs
ys
==
(
P
.
pack
xs
`
P
.
isPrefixOf
`
P
.
pack
ys
)
...
...
@@ -399,7 +389,7 @@ prop_replicate1 n c =
unpack
(
P
.
replicate
n
c
)
==
replicate
n
c
prop_replicate2
n
c
=
P
.
replicate
n
c
==
P
.
unfoldrN
n
(
\
u
->
Just
(
u
,
u
))
c
P
.
replicate
n
c
==
fst
(
P
.
unfoldrN
n
(
\
u
->
Just
(
u
,
u
))
c
)
prop_replicate3
c
=
unpack
(
P
.
replicate
0
c
)
==
replicate
0
c
...
...
@@ -416,7 +406,7 @@ prop_filterChar3 c xs = P.filterChar c xs == P.replicate (P.count c xs) c
prop_filterNotChar1
c
xs
=
(
filter
(
/=
c
)
xs
)
==
((
P
.
unpack
.
P
.
filterNotChar
c
.
P
.
pack
)
xs
)
prop_filterNotChar2
c
xs
=
(
P
.
filter
(
/=
c
)
(
P
.
pack
xs
))
==
(
P
.
filterNotChar
c
(
P
.
pack
xs
))
prop_joinjoinpath
xs
ys
c
=
P
.
joinWithChar
c
xs
ys
==
P
.
join
(
P
.
packChar
c
)
[
xs
,
ys
]
prop_joinjoinpath
xs
ys
c
=
P
.
joinWithChar
c
xs
ys
==
P
.
join
(
P
.
singleton
c
)
[
xs
,
ys
]
prop_zip
xs
ys
=
zip
xs
ys
==
P
.
zip
(
pack
xs
)
(
pack
ys
)
prop_zip1
xs
ys
=
P
.
zip
xs
ys
==
zip
(
P
.
unpack
xs
)
(
P
.
unpack
ys
)
...
...
@@ -519,10 +509,8 @@ main = do
,
(
"breakSpace"
,
mytest
prop_breakSpace
)
,
(
"dropSpace"
,
mytest
prop_dropSpace
)
,
(
"spanEnd"
,
mytest
prop_spanEnd
)
,
(
"breakFirst"
,
mytest
prop_breakFirst
)
,
(
"breakLast"
,
mytest
prop_breakLast
)
,
(
"elemIndexLast1"
,
mytest
prop_elemIndexLast1
)
,
(
"elemIndexLast2"
,
mytest
prop_elemIndexLast2
)
,
(
"elemIndexEnd1"
,
mytest
prop_elemIndexEnd1
)
,
(
"elemIndexEnd2"
,
mytest
prop_elemIndexEnd2
)
,
(
"words'"
,
mytest
prop_words'
)
,
(
"lines'"
,
mytest
prop_lines'
)
,
(
"dropSpaceEnd"
,
mytest
prop_dropSpaceEnd
)
...
...
testsuite/tests/ghc-regress/lib/Data.ByteString/bytestring001.stdout
View file @
dc91add4
...
...
@@ -84,10 +84,8 @@ spanChar1 : 01234567891011121314151617181920
breakSpace : 0123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899OK, 100 tests.
dropSpace : 0123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899OK, 100 tests.
spanEnd : 0123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899OK, 100 tests.
breakFirst : 0123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899OK, 100 tests.
breakLast : 0123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899OK, 100 tests.
elemIndexLast1 : 0123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899OK, 100 tests.
elemIndexLast2 : 0123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899OK, 100 tests.
elemIndexEnd1 : 0123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899OK, 100 tests.
elemIndexEnd2 : 0123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899OK, 100 tests.
words' : 0123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899OK, 100 tests.
lines' : 0123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899OK, 100 tests.
dropSpaceEnd : 0123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899OK, 100 tests.
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a 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