ilyakooo0/streamly
1
0
Fork 0
mirror of https://github.com/ilyakooo0/streamly.git synced 2024-09-11 08:25:40 +03:00
Code Issues Packages Projects Releases Wiki Activity

Test the encoding and decoding functions in the roundtrip

Browse Source
This commit is contained in:
Adithya Kumar 2023-09-08 01:17:12 +05:30
parent cedc81cc40
commit b675912c27
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
test/Streamly/Test/Data/Serialize.hs
View File

@ -31,6 +31,7 @@ import qualified Streamly.Internal.Data.Serialize.TH as Serialize
)
import Data.Functor.Identity (Identity (..))
import qualified Streamly.Internal.Data.Array as Array
import qualified Streamly.Internal.Data.Serialize as Serialize
import Language.Haskell.TH
@ -120,17 +121,20 @@ roundtrip val = do
let sz = Serialize.size 0 val
-- putStrLn "----------------------------------------------------------------"
-- putStrLn $ show val
-- putStrLn $ "Size is: " ++ show sz
-- putStrLn "----------------------------------------------------------------"
arr <- newBytes sz
-- Use a proper slice to test instead of the array directly. This will catch
-- any hardcoded 0 offsets
let arrSize = sz + 100
serStartOff = 50
serEndOff = 50 + sz
arr <- newBytes arrSize
off1 <- Serialize.serialize 0 arr val
(off2, val2) <- Serialize.deserialize 0 arr sz
off1 <- Serialize.serialize serStartOff arr val
(off2, val2) <- Serialize.deserialize serStartOff arr serEndOff
val2 `shouldBe` val
off2 `shouldBe` off1
off2 `shouldBe` sz
off2 `shouldBe` serEndOff
val `shouldBe` Serialize.decode (Serialize.encode val)
val `shouldBe` Serialize.decode (Array.Array arr serStartOff serEndOff)
testSerializeList
:: forall a. (Eq a, Show a, Serialize.Serialize a)