dandri/simplexmq
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplexmq.git synced 2026-08-29 03:28:42 +00:00
Code Issues Packages Projects Releases Wiki Activity

debug2

Browse Source
This commit is contained in:
Evgeny Poberezkin
2024-01-08 16:51:59 +00:00
parent 34e8b9dbe7
commit 58a188376b
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/AgentTests/NotificationTests.hs
+7 -1
View File
@@ -511,12 +511,18 @@ testNotificationsSMPRestartBatch n t APNSMockServer {apnsQ} = do
liftIO $ print 3
liftIO $ threadDelay 1500000
liftIO $ print 4
forM_ conns $ \(aliceId, bobId) -> do
forM_ (zip [0..] conns) $ \(i, (aliceId, bobId)) -> do
liftIO $ putStrLn $ "*** msg " <> show i
msgId <- sendMessage b aliceId (SMP.MsgFlags True) "hello"
liftIO $ putStrLn $ "*** msg " <> show i <> " called"
get b ##> ("", aliceId, SENT msgId)
liftIO $ putStrLn $ "*** msg " <> show i <> " sent"
void $ messageNotification apnsQ
liftIO $ putStrLn $ "*** msg " <> show i <> " ntf"
get a =##> \case ("", c, Msg "hello") -> c == bobId; _ -> False
liftIO $ putStrLn $ "*** msg " <> show i <> " received"
ackMessage a bobId msgId Nothing
liftIO $ putStrLn $ "*** msg " <> show i <> " ack"
liftIO $ print 5
pure conns