mirror of
https://github.com/simplex-chat/simplex-chat.git
synced 2025-06-28 20:29:53 +00:00
19 lines
679 B
Haskell
19 lines
679 B
Haskell
|
module WebRTCTests where
|
||
|
|
|
||
|
|
import Crypto.Random (getRandomBytes)
|
||
|
|
import qualified Data.ByteString.Base64.URL as U
|
||
|
|
import qualified Data.ByteString.Char8 as B
|
||
|
|
import Simplex.Chat.Mobile.WebRTC
|
||
|
|
import Test.Hspec
|
||
|
|
|
||
|
|
webRTCTests :: Spec
|
||
|
|
webRTCTests = describe "WebRTC crypto" $ do
|
||
|
|
it "encrypts and decrypts media" $ do
|
||
|
|
key <- U.encode <$> getRandomBytes 32
|
||
|
|
frame <- getRandomBytes 1000
|
||
|
|
let reservedSize = authTagSize + ivSize
|
||
|
|
frame' <- chatEncryptMedia key $ frame <> B.replicate reservedSize '\NUL'
|
||
|
|
B.length frame' `shouldBe` B.length frame + reservedSize
|
||
|
|
frame'' <- chatDecryptMedia key frame'
|
||
|
|
frame'' `shouldBe` frame <> B.replicate reservedSize '\NUL'
|