ilyakooo0/streamly
1
0
Fork 0
mirror of https://github.com/ilyakooo0/streamly.git synced 2024-10-06 05:07:07 +03:00
Code Issues Packages Projects Releases Wiki Activity

Modify boundary condition tests for lastN

Browse Source
This commit is contained in:
adithyaov 2020-02-24 18:58:22 +05:30 committed by Harendra Kumar
parent 59509cd378
commit 9fd164b012
1 changed files with 12 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
test/Streamly/Test/Array.hs
View File

@ -150,21 +150,12 @@ testLastN =
$ S.fromList list
assert (xs == lastN n list)
testLastNLT :: Property
testLastNLT =
forAll (choose (0, maxArrLen)) $ \len ->
forAll (vectorOf len (arbitrary :: Gen Int)) $ \list ->
monadicIO $ do
xs <- fmap A.toList $ S.fold (A.lastN 0) $ S.fromList list
assert (xs == lastN 0 list)
testLastNGT :: Property
testLastNGT =
forAll (choose (0, maxArrLen)) $ \len ->
forAll (vectorOf len (arbitrary :: Gen Int)) $ \list ->
monadicIO $ do
xs <- fmap A.toList $ S.fold (A.lastN (len + 1)) $ S.fromList list
assert (xs == lastN (len + 1) list)
testLastN_LN :: Int -> Int -> IO Bool
testLastN_LN len n = do
let list = [1..len]
l1 <- fmap A.toList $ S.fold (A.lastN n) $ S.fromList list
let l2 = lastN n list
return $ l1 == l2
#endif
main :: IO ()
@ -190,7 +181,10 @@ main =
#endif
#ifdef TEST_ARRAY
describe "Fold" $ do
prop "lastN : 0 <= n < len" $ testLastN
prop "lastN : n = 0" $ testLastNLT
prop "lastN : n = len + 1" $ testLastNGT
prop "lastN : 0 <= n <= len" $ testLastN
describe "lastN boundary conditions" $ do
it "lastN -1" (testLastN_LN 10 (-1) `shouldReturn` True)
it "lastN 0" (testLastN_LN 10 0 `shouldReturn` True)
it "lastN length" (testLastN_LN 10 10 `shouldReturn` True)
it "lastN (length + 1)" (testLastN_LN 10 11 `shouldReturn` True)
#endif