rhi/bytebuild
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add another test case

Browse source
This commit is contained in:
Andrew Martin 2022-06-14 10:41:15 -04:00
parent 59bb959608
commit 1fc4a1faba
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
test/Main.hs
View file

@ -260,6 +260,10 @@ tests = testGroup "Tests"
Chunks.concat (run 16 (word64LEB128 16)) Chunks.concat (run 16 (word64LEB128 16))
@=? @=?
Latin1.fromString "\x10" Latin1.fromString "\x10"
, THU.testCase "1000000" $
Chunks.concat (run 16 (word64LEB128 1000000))
@=?
Exts.fromList [0xc0,0x84,0x3d]
, THU.testCase "deadbeef-smile" $ do , THU.testCase "deadbeef-smile" $ do
let inp = Latin1.fromString "\xDE\xAD\xBE\xEF" let inp = Latin1.fromString "\xDE\xAD\xBE\xEF"
(Chunks.concat . run 16) (sevenEightSmile inp) (Chunks.concat . run 16) (sevenEightSmile inp)