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

Inline pragmas for better LEB encoding perf

Browse source
This commit is contained in:
Andrew Martin 2022-04-11 15:49:02 -04:00
parent dde5a9b07d
commit 5fb3bdbeaa
3 changed files with 16 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
test/Main.hs
View file

@ -255,6 +255,16 @@ tests = testGroup "Tests"
runConcat 1 (naturalDec y)
===
pack (show y)
, testGroup "leb128-encoding"
[ THU.testCase "16" $
Chunks.concat (run 16 (word64LEB128 16))
@=?
Latin1.fromString "\x10"
, THU.testCase "deadbeef-smile" $ do
let inp = Latin1.fromString "\xDE\xAD\xBE\xEF"
(Chunks.concat . run 16) (sevenEightSmile inp)
@=?Latin1.fromString "\x6F\x2B\x37\x6E\x0F"
]
, testGroup "seven/eight encoding"
[ THU.testCase "deadbeef" $ do
let inp = Latin1.fromString "\xDE\xAD\xBE\xEF"