diff --git a/tests/Test.hs b/tests/Test.hs
index 4c41b2e7822d6e6bbf10029b509e9d0d9f8d9a4c..5ce28ec4ad8e32d20f78ff5f08e0d0c023bcce87 100644
--- a/tests/Test.hs
+++ b/tests/Test.hs
@@ -254,16 +254,17 @@ posix010 = testCase "posix010" $ do
 
 testWithFilePath :: TestTree
 testWithFilePath =
-  testGroup "withFilePath"
-    [ testProperty "ByteString" $
-      \xs -> let ys = B.pack $ filter (/= 0) xs in
-        ioProperty $ BSFP.withFilePath ys
-          (\ptr -> (=== ys) <$> B.packCString ptr)
-    , testProperty "PosixPath" $
-      \xs -> let ys = Sh.pack $ filter (/= 0) xs in
-        ioProperty $ PPFP.withFilePath (PosixString ys)
-          (\ptr -> (=== ys) <$> Sh.packCString ptr)
-    ]
+  adjustOption (\(QuickCheckTests n) -> QuickCheckTests (n `max` 10000)) $
+    testGroup "withFilePath"
+      [ testProperty "ByteString" $
+        \xs -> let ys = B.pack $ filter (/= 0) xs in
+          ioProperty $ BSFP.withFilePath ys
+            (\ptr -> (=== ys) <$> B.packCString ptr)
+      , testProperty "PosixPath" $
+        \xs -> let ys = Sh.pack $ filter (/= 0) xs in
+          ioProperty $ PPFP.withFilePath (PosixString ys)
+            (\ptr -> (=== ys) <$> Sh.packCString ptr)
+      ]
 
 -------------------------------------------------------------------------------
 -- Utils