Increase discard ratio so that tests won't prematurely fail

kaBeech · Jun 13, 2024 · a247059 · a247059
1 parent 9c402b6
commit a247059
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/test/TestCheck.hs b/test/TestCheck.hs
@@ -17,7 +17,7 @@ import Test.QuickCheck
 --   ...exit with failure
 check :: (Testable prop) => prop -> IO ()
 check prop = do
-  result <- quickCheckResult prop
+  result <- quickCheckResult (withDiscardRatio 2000 prop)
   unless (isPass result) exitFailure
 
 -- | Returns True if a test passes, and False otherwise