@@ -99,12 +99,20 @@ testCases = do
9999 (8 + 3 * 8 + 6 * 8)
100100 ([[1], [1, 2], [1, 2, 3]] :: [[Int]])
101101
102− prop "CustomDatatype"
102+ limitQC
103+ $ prop "CustomDatatype"
103104 $ \(x :: CustomDatatype) -> roundtrip x
104− prop "[CustomDatatype]"
105+
106+ limitQC
107+ $ prop "[CustomDatatype]"
105108 $ \(x :: [CustomDatatype]) -> roundtrip x
106109
107− prop "BinTree" $ \(x :: BinTree Int) -> roundtrip x
110+ limitQC
111+ $ prop "BinTree" $ \(x :: BinTree Int) -> roundtrip x
112+
113+ where
114+
115+ limitQC = modifyMaxSize (const 50)
108116
109117--------------------------------------------------------------------------------
110118-- Main function