diff --git a/tests/XFTPAgent.hs b/tests/XFTPAgent.hs
index dc77b09c3..0f1fa0c69 100644
--- a/tests/XFTPAgent.hs
+++ b/tests/XFTPAgent.hs
@@ -275,6 +275,7 @@ testXFTPAgentSendRestore = withGlobalLogging logCfgNoLogs $ do
     liftIO $ sfId' `shouldBe` sfId
 
     -- prefix path should be removed after sending file
+    threadDelay 100000
     liftIO $ print 21
     doesDirectoryExist prefixPath `shouldReturn` False
     liftIO $ print 22