mirror of
https://github.com/ilyakooo0/streamly.git
synced 2024-10-26 09:59:48 +03:00
Limit number of tests in large quick check properties
This commit is contained in:
parent
4997b47fe1
commit
041be85bb8
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user