diff --git a/test/Feature/ConcurrentSpec.hs b/test/Feature/ConcurrentSpec.hs
index 044d3020f..be154375d 100644
--- a/test/Feature/ConcurrentSpec.hs
+++ b/test/Feature/ConcurrentSpec.hs
@@ -20,7 +20,7 @@ spec :: SpecWith Application
 spec =
   describe "Queryiny in parallel" $
     it "should not raise 'transaction in progress' error" $
-      raceTest 3 $
+      raceTest 10 $
         get "/fakefake"
           `shouldRespondWith` ResponseMatcher {
             matchBody    = Just [json|
diff --git a/test/Main.hs b/test/Main.hs
index 918b8680d..cc52c0fb4 100644
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -23,7 +23,7 @@ main :: IO ()
 main = do
   setupDb
 
-  pool <- P.acquire (10, 10, cs testDbConn)
+  pool <- P.acquire (3, 10, cs testDbConn)
 
   result <- P.use pool $ getDbStructure "test"
   let dbStructure = either (error.show) id result