[commit: packages/filepath] master: #15, increase 100x the number of property tests (9a353ab)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/filepath

On branch  : master
Link       : http://git.haskell.org/packages/filepath.git/commitdiff/9a353ab3c09bf3e90bafa15fbccc389875bb2cd8

>---------------------------------------------------------------

commit 9a353ab3c09bf3e90bafa15fbccc389875bb2cd8
Author: Neil Mitchell <ndmitchell at gmail.com>
Date:   Sun Oct 26 20:28:48 2014 +0000

    #15, increase 100x the number of property tests


>---------------------------------------------------------------

9a353ab3c09bf3e90bafa15fbccc389875bb2cd8
 tests/AutoTest.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/AutoTest.hs b/tests/AutoTest.hs
index 96e6fbb..f9d8a90 100644
--- 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