git.iko.soy/streamly
on master help sign in
Limit number of tests in large quick check properties
041be85Adithya Kumar
test/Streamly/Test/Data/Serialize.hs+11−3
compare with master
unifiedsplit
@@ -99,12 +99,20 @@ testCases = do
99 (8 + 3 * 8 + 6 * 8)
99 (8 + 3 * 8 + 6 * 8)
100 ([[1], [1, 2], [1, 2, 3]] :: [[Int]])
100 ([[1], [1, 2], [1, 2, 3]] :: [[Int]])
101
101
102+ limitQC
102− prop "CustomDatatype"
103+ $ prop "CustomDatatype"
103 $ \(x :: CustomDatatype) -> roundtrip x
104 $ \(x :: CustomDatatype) -> roundtrip x
105+
106+ limitQC
104− prop "[CustomDatatype]"
107+ $ prop "[CustomDatatype]"
105 $ \(x :: [CustomDatatype]) -> roundtrip x
108 $ \(x :: [CustomDatatype]) -> roundtrip x
106
109
110+ limitQC
107− prop "BinTree" $ \(x :: BinTree Int) -> roundtrip x
111+ $ prop "BinTree" $ \(x :: BinTree Int) -> roundtrip x
112+
113+ where
114+
115+ limitQC = modifyMaxSize (const 50)
108
116
109--------------------------------------------------------------------------------
117--------------------------------------------------------------------------------
110-- Main function
118-- Main function