From 29a61316f749fa11fb0d72df5301fd4070c3dbf4 Mon Sep 17 00:00:00 2001
From: Bodigrim <andrew.lelechenko@gmail.com>
Date: Sat, 16 Sep 2023 00:47:59 +0100
Subject: [PATCH] Test withFilePath: increase number of tests

---
 tests/Test.hs | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/tests/Test.hs b/tests/Test.hs
index 4c41b2e..5ce28ec 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
-- 
GitLab