Test withFilePath: increase number of tests

haskell · Sep 15, 2023 · 29a6131 · 29a6131
1 parent 87c4b73
commit 29a6131
Showing 1 changed file with 11 additions and 10 deletions.
diff --git 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