Limit number of tests in large quick check properties

composewell · Aug 18, 2023 · 041be85 · 041be85
1 parent 4997b47
commit 041be85
Showing 1 changed file with 11 additions and 3 deletions.
diff --git a/test/Streamly/Test/Data/Serialize.hs b/test/Streamly/Test/Data/Serialize.hs
@@ -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