composewell/streamly
1
1
Fork 0
mirror of https://github.com/composewell/streamly.git synced 2024-09-11 11:37:22 +03:00
Code Issues Packages Projects Releases Wiki Activity

Apply hlint suggesstions on common array test file

Browse Source
This commit is contained in:
adithyaov 2021-11-27 02:57:08 +05:30 committed by Adithya Kumar
parent 9c04f40999
commit 5998dd8c41
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
test/Streamly/Test/Data/Array/Common.hs
View File

@ -32,7 +32,7 @@ genericTestFrom arrFold =
assert (A.length arr == len)
testLength :: Property
testLength = genericTestFrom (\n -> S.fold (A.writeN n))
testLength = genericTestFrom (S.fold . A.writeN)
testLengthFromStreamN :: Property
testLengthFromStreamN = genericTestFrom A.fromStreamN
@ -53,16 +53,16 @@ genericTestFromTo arrFold arrUnfold listEq =
testFoldNUnfold :: Property
testFoldNUnfold =
genericTestFromTo (\n -> S.fold (A.writeN n)) (S.unfold A.read) (==)
genericTestFromTo (S.fold . A.writeN) (S.unfold A.read) (==)
testFoldNToStream :: Property
testFoldNToStream =
genericTestFromTo (\n -> S.fold (A.writeN n)) A.toStream (==)
genericTestFromTo (S.fold . A.writeN) A.toStream (==)
testFoldNToStreamRev :: Property
testFoldNToStreamRev =
genericTestFromTo
(\n -> S.fold (A.writeN n))
(S.fold . A.writeN)
A.toStreamRev
(\xs list -> xs == reverse list)
@ -79,7 +79,7 @@ testFromListN =
forAll (vectorOf len (arbitrary :: Gen Int)) $ \list ->
monadicIO $ do
let arr = A.fromListN n list
xs <- run $ S.toList $ (S.unfold A.read) arr
xs <- run $ S.toList $ S.unfold A.read arr
listEquals (==) xs (take n list)
foldManyWith :: (Int -> Fold IO Int (Array Int)) -> Property