haskell#15, increase 100x the number of property tests

bgamari · Oct 26, 2014 · 9a353ab · 9a353ab
1 parent 4285ef6
commit 9a353ab
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/AutoTest.hs b/tests/AutoTest.hs
@@ -36,7 +36,7 @@ instance Arbitrary QChar where
 
 quickSafe :: Testable a => a -> IO ()
 quickSafe prop = do
-    res <- quickCheckWithResult (stdArgs { chatty = False }) prop
+    res <- quickCheckWithResult stdArgs{chatty=False, maxSuccess=10000} prop
     case res of
         Success{} -> return ()
         _ -> error $ show res