mirror of
https://github.com/simplex-chat/simplex-chat.git
synced 2026-04-26 10:58:02 +00:00
2f604d91ba
* chat types, chat protocol syntax idea * chat message syntax, raw message type * chat message format and parsing * raw chat message parsing test * add message parsing tests * interpret RawChatMessage * use chat message format when sending messages * save contacts and related connections to DB (WIP) * use contacts in all chat commands (add, connect, send, delete) * use contacts when receiving messages and notifications * handle contact not found error * automatically accept connection when CONF is received from the agent
58 lines
2.4 KiB
Haskell
58 lines
2.4 KiB
Haskell
{-# LANGUAGE OverloadedLists #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module ProtocolTests where
|
|
|
|
import Data.ByteString.Char8 (ByteString)
|
|
import Simplex.Chat.Protocol
|
|
import Simplex.Messaging.Parsers (parseAll)
|
|
import Test.Hspec
|
|
|
|
protocolTests :: Spec
|
|
protocolTests = do
|
|
parseChatMessageTest
|
|
|
|
(#==) :: ByteString -> RawChatMessage -> Expectation
|
|
s #== msg = parseAll rawChatMessageP s `shouldBe` Right msg
|
|
|
|
parseChatMessageTest :: Spec
|
|
parseChatMessageTest = describe "Raw chat message format" $ do
|
|
it "no parameters and content" $
|
|
"5 x.grp.mem.leave " #== RawChatMessage (Just 5) "x.grp.mem.leave" [] []
|
|
it "one parameter, no content" $
|
|
"6 x.msg.del 3 " #== RawChatMessage (Just 6) "x.msg.del" ["3"] []
|
|
it "with content that fits the message and optional trailing space" $
|
|
"7 x.msg.new c.text c.text:11 hello there "
|
|
#== RawChatMessage
|
|
(Just 7)
|
|
"x.msg.new"
|
|
["c.text"]
|
|
[RawMsgBodyContent (RawContentType "c" "text") Nothing $ MBFull (MsgData "hello there")]
|
|
it "with content that fits the message, without trailing space" $
|
|
"7 x.msg.new c.text c.text:11 hello there"
|
|
#== RawChatMessage
|
|
(Just 7)
|
|
"x.msg.new"
|
|
["c.text"]
|
|
[RawMsgBodyContent (RawContentType "c" "text") Nothing $ MBFull (MsgData "hello there")]
|
|
it "with DAG reference and partial content" $
|
|
"8 x.msg.new c.image x.dag:16,c.text:7,m.image/jpg:64:MDEyMzQ1Njc=,m.image/png:4000:MDEyMzQ1Njc= 0123456789012345 picture abcdef"
|
|
#== RawChatMessage
|
|
(Just 8)
|
|
"x.msg.new"
|
|
["c.image"]
|
|
[ RawMsgBodyContent (RawContentType "x" "dag") Nothing $ MBFull (MsgData "0123456789012345"),
|
|
RawMsgBodyContent (RawContentType "c" "text") Nothing $ MBFull (MsgData "picture"),
|
|
RawMsgBodyContent (RawContentType "m" "image/jpg") (Just "01234567") $ MBPartial 64 (MsgData "abcdef"),
|
|
RawMsgBodyContent (RawContentType "m" "image/png") (Just "01234567") $ MBEmpty 4000
|
|
]
|
|
it "message continuation" $
|
|
"#8.1 abcdef" #== RawChatMsgContinuation 8 1 "abcdef"
|
|
it "without message id" $
|
|
" x.grp.mem.inv 23456,123 c.json:46 {\"contactRef\":\"john\",\"displayName\":\"John Doe\"}"
|
|
#== RawChatMessage
|
|
Nothing
|
|
"x.grp.mem.inv"
|
|
["23456", "123"]
|
|
[RawMsgBodyContent (RawContentType "c" "json") Nothing $ MBFull (MsgData "{\"contactRef\":\"john\",\"displayName\":\"John Doe\"}")]
|