diff --git a/tests/AgentTests/NotificationTests.hs b/tests/AgentTests/NotificationTests.hs index 0713cfcac..3479f9593 100644 --- a/tests/AgentTests/NotificationTests.hs +++ b/tests/AgentTests/NotificationTests.hs @@ -503,7 +503,7 @@ testNotificationsSMPRestartBatch :: Int -> ATransport -> APNSMockServer -> IO () testNotificationsSMPRestartBatch n t APNSMockServer {apnsQ} = do a <- getSMPAgentClient' agentCfg initAgentServers2 testDB b <- getSMPAgentClient' agentCfg initAgentServers2 testDB2 - threadDelay 5000000 + threadDelay 1000000 conns <- runServers $ do liftIO $ print 1 conns <- replicateM (n :: Int) $ makeConnection a b diff --git a/tests/Test.hs b/tests/Test.hs index f2bc8ac0a..b7fc3e9cb 100644 --- a/tests/Test.hs +++ b/tests/Test.hs @@ -35,7 +35,7 @@ logCfg = LogConfig {lc_file = Nothing, lc_stderr = True} main :: IO () main = do - setLogLevel LogInfo + setLogLevel LogError -- LogInfo withGlobalLogging logCfg $ do setEnv "APNS_KEY_ID" "H82WD9K9AQ" setEnv "APNS_KEY_FILE" "./tests/fixtures/AuthKey_H82WD9K9AQ.p8"