mirror of
https://github.com/simplex-chat/simplexmq.git
synced 2026-03-30 20:45:52 +00:00
5e29e3698e
* binary SMP protocol encoding (server tests fail) * use 1 byte for bytestring length when encoding/decoding * Encoding class, binary tags * update server tests * negotiate SMP version in client/server handshake * add version columns to queues and connections * split parsing SMP client commands and server responses to different functions * check uniqueness of protocol tags * split client commands and server responses/messages to separate types * update types in SMP client * remove pattern synonyms for SMP errors * simplify getHandshake * update SMP protocol encoding in protocol spec * encode time as a number of seconds (64-bit integer) since epoch
47 lines
1.7 KiB
Haskell
47 lines
1.7 KiB
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module CoreTests.EncodingTests where
|
|
|
|
import Data.Bits (shiftR)
|
|
import Data.ByteString.Char8 (ByteString)
|
|
import qualified Data.ByteString.Char8 as B
|
|
import Data.ByteString.Internal (w2c)
|
|
import Data.Int (Int64)
|
|
import Data.Time.Clock.System (SystemTime (..), getSystemTime, utcToSystemTime)
|
|
import Data.Time.ISO8601 (parseISO8601)
|
|
import Simplex.Messaging.Encoding
|
|
import Simplex.Messaging.Parsers (parseAll)
|
|
import Test.Hspec
|
|
import Test.Hspec.QuickCheck (modifyMaxSuccess)
|
|
import Test.QuickCheck
|
|
|
|
int64 :: Int64
|
|
int64 = 1234567890123456789
|
|
|
|
s64 :: ByteString
|
|
s64 = B.pack $ map (w2c . fromIntegral . (int64 `shiftR`)) [56, 48, 40, 32, 24, 16, 8, 0]
|
|
|
|
encodingTests :: Spec
|
|
encodingTests = modifyMaxSuccess (const 1000) $ do
|
|
describe "Encoding Int64" $ do
|
|
it "should encode and decode Int64 example" $ do
|
|
s64 `shouldBe` "\17\34\16\244\125\233\129\21"
|
|
smpEncode int64 `shouldBe` s64
|
|
parseAll smpP s64 `shouldBe` Right int64
|
|
it "parse(encode(Int64) should equal the same Int64" . property $
|
|
\i -> parseAll smpP (smpEncode i) == Right (i :: Int64)
|
|
describe "Encoding SystemTime" $ do
|
|
it "should encode and decode SystemTime" $ do
|
|
t <- getSystemTime
|
|
testSystemTime t
|
|
Just t' <- pure $ utcToSystemTime <$> parseISO8601 "2022-01-01T10:24:05.000Z"
|
|
systemSeconds t' `shouldBe` 1641032645
|
|
testSystemTime t'
|
|
it "parse(encode(SystemTime) should equal the same Int64" . property $
|
|
\i -> parseAll smpP (smpEncode i) == Right (i :: Int64)
|
|
where
|
|
testSystemTime :: SystemTime -> Expectation
|
|
testSystemTime t = do
|
|
smpEncode t `shouldBe` smpEncode (systemSeconds t)
|
|
parseAll smpP (smpEncode t) `shouldBe` Right t {systemNanoseconds = 0}
|