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

Limit number of tests in large quick check properties

Browse Source
This commit is contained in:
Adithya Kumar 2023-08-18 11:21:03 +05:30
parent 4997b47fe1
commit 041be85bb8
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
test/Streamly/Test/Data/Serialize.hs
View File

@ -99,12 +99,20 @@ testCases = do
(8 + 3 * 8 + 6 * 8)
([[1], [1, 2], [1, 2, 3]] :: [[Int]])
prop "CustomDatatype"
limitQC
$ prop "CustomDatatype"
$ \(x :: CustomDatatype) -> roundtrip x
prop "[CustomDatatype]"
limitQC
$ prop "[CustomDatatype]"
$ \(x :: [CustomDatatype]) -> roundtrip x
prop "BinTree" $ \(x :: BinTree Int) -> roundtrip x
limitQC
$ prop "BinTree" $ \(x :: BinTree Int) -> roundtrip x
where
limitQC = modifyMaxSize (const 50)
--------------------------------------------------------------------------------
-- Main function