core: sending messages with files (#507)

Co-authored-by: Evgeny Poberezkin <2769109+epoberezkin@users.noreply.github.com>
2024-12-17 17:20:21 +01:00 · 2022-04-10 13:30:58 +04:00
parent 150b4196ea
commit 13f84f2a96
14 changed files with 670 additions and 297 deletions
@@ -125,6 +125,7 @@ testChatN ps test = withTmpFiles $ do
  test tcs
  concurrentlyN_ $ map (<// 100000) tcs
  where
+    getTestCCs :: [(Profile, FilePath)] -> [TestCC] -> IO [TestCC]
    getTestCCs [] tcs = pure tcs
    getTestCCs ((p, db) : envs') tcs = (:) <$> virtualSimplexChat db p <*> getTestCCs envs' tcs