From 79d9f41fd83eb59fcea2044322dca965ce1d9945 Mon Sep 17 00:00:00 2001
From: IC Rainbow <aenor.realm@gmail.com>
Date: Tue, 21 Nov 2023 20:10:14 +0200
Subject: [PATCH] add delay to testDuplicateMessage

---
 tests/AgentTests/FunctionalAPITests.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/tests/AgentTests/FunctionalAPITests.hs b/tests/AgentTests/FunctionalAPITests.hs
index 2774b620a..6a80a6927 100644
--- a/tests/AgentTests/FunctionalAPITests.hs
+++ b/tests/AgentTests/FunctionalAPITests.hs
@@ -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