add delay to testDuplicateMessage

This commit is contained in:
IC Rainbow
2023-11-21 20:10:14 +02:00
parent 2fe408666e
commit 79d9f41fd8
+1
View File
@@ -762,6 +762,7 @@ testDuplicateMessage t = do
get bob2 =##> \case ("", c, Msg "hello 3") -> c == aliceId; _ -> False
disconnectAgentClient alice2
disconnectAgentClient bob2
threadDelay 1000000
testSkippedMessages :: HasCallStack => ATransport -> IO ()
testSkippedMessages t = do