From 3c0c890bcb8a555d351a72969ae6f10fc7c46ea4 Mon Sep 17 00:00:00 2001
From: Evgeny Poberezkin <2769109+epoberezkin@users.noreply.github.com>
Date: Mon, 8 Jan 2024 19:06:14 +0000
Subject: [PATCH] more delay, less worker delay

---
 tests/AgentTests/NotificationTests.hs | 4 ++--
 tests/SMPAgentClient.hs               | 4 ++--
 tests/Test.hs                         | 2 +-
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/tests/AgentTests/NotificationTests.hs b/tests/AgentTests/NotificationTests.hs
index 6338b8d0a..0713cfcac 100644
--- a/tests/AgentTests/NotificationTests.hs
+++ b/tests/AgentTests/NotificationTests.hs
@@ -503,14 +503,14 @@ testNotificationsSMPRestartBatch :: Int -> ATransport -> APNSMockServer -> IO ()
 testNotificationsSMPRestartBatch n t APNSMockServer {apnsQ} = do
   a <- getSMPAgentClient' agentCfg initAgentServers2 testDB
   b <- getSMPAgentClient' agentCfg initAgentServers2 testDB2
-  threadDelay 3000000
+  threadDelay 5000000
   conns <- runServers $ do
     liftIO $ print 1
     conns <- replicateM (n :: Int) $ makeConnection a b
     liftIO $ print 2
     _ <- registerTestToken a "abcd" NMInstant apnsQ
     liftIO $ print 3
-    liftIO $ threadDelay 3000000
+    liftIO $ threadDelay 10000000
     liftIO $ print 4
     forM_ (zip [0..] conns) $ \(i, (aliceId, bobId)) -> do
       liftIO $ putStrLn $ "*** msg " <> show i
diff --git a/tests/SMPAgentClient.hs b/tests/SMPAgentClient.hs
index a767218c0..c39f6fa43 100644
--- a/tests/SMPAgentClient.hs
+++ b/tests/SMPAgentClient.hs
@@ -198,8 +198,8 @@ agentCfg =
       ntfCfg = defaultClientConfig {qSize = 1, defaultTransport = (ntfTestPort, transport @TLS)},
       reconnectInterval = defaultReconnectInterval {initialInterval = 50_000},
       xftpNotifyErrsOnRetry = False,
-      ntfWorkerDelay = 1000,
-      ntfSMPWorkerDelay = 1000,
+      ntfWorkerDelay = 100,
+      ntfSMPWorkerDelay = 100,
       caCertificateFile = "tests/fixtures/ca.crt",
       privateKeyFile = "tests/fixtures/server.key",
       certificateFile = "tests/fixtures/server.crt"
diff --git a/tests/Test.hs b/tests/Test.hs
index b7fc3e9cb..f2bc8ac0a 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 LogError -- LogInfo
+  setLogLevel LogInfo
   withGlobalLogging logCfg $ do
     setEnv "APNS_KEY_ID" "H82WD9K9AQ"
     setEnv "APNS_KEY_FILE" "./tests/fixtures/AuthKey_H82WD9K9AQ.p8"