core: use port 7001 for test server (#1857)

* core: use port 7001 for test server

* enable only failing tests

* start/stop server for every test

* log message that failed to parse

* stop chat synchronously

* print call stack

* add HasCallStack

* increase test timeout

* add call stacks

* more call stacks

* fix test

* disable failing test

* add delay between the tests

* make delay more visible

* remove change in error message

* reduce test delay, increase timeout

* increase delay between the tests

* run each test with a database in a different folder

* folder name

* refactor

* update nix file, more stacks

src/Simplex/Chat.hs

@@ -3360,10 +3360,15 @@ sendFileInline_ FileTransferMeta {filePath, chunkSize} sharedMsgId sendMsg =
     chSize = fromIntegral chunkSize
 
 parseChatMessage :: ChatMonad m => ByteString -> m (ChatMessage 'Json)
-parseChatMessage = liftEither . first (ChatError . CEInvalidChatMessage) . strDecode
+parseChatMessage = parseChatMessage_
+{-# INLINE parseChatMessage #-}
 
 parseAChatMessage :: ChatMonad m => ByteString -> m AChatMessage
-parseAChatMessage = liftEither . first (ChatError . CEInvalidChatMessage) . strDecode
+parseAChatMessage = parseChatMessage_
+{-# INLINE parseAChatMessage #-}
+
+parseChatMessage_ :: (ChatMonad m, StrEncoding s) => ByteString -> m s
+parseChatMessage_ = liftEither . first (ChatError . CEInvalidChatMessage) . strDecode
 
 sendFileChunk :: ChatMonad m => User -> SndFileTransfer -> m ()
 sendFileChunk user ft@SndFileTransfer {fileId, fileStatus, agentConnId = AgentConnId acId} =