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

add benchmarks for encoding tree data structures

Browse source
This commit is contained in:
Andrew Martin 2019-09-22 09:20:03 -04:00
parent cd3631e5fd
commit 01bf4655e3
4 changed files with 100 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test/Main.hs
View file

@ -28,6 +28,7 @@ import qualified Test.Tasty.HUnit as THU
import qualified Test.Tasty.QuickCheck as TQC
import qualified HexWord64
import qualified Word16Tree
main :: IO ()
main = defaultMain tests
@ -102,6 +103,9 @@ tests = testGroup "Tests"
pack ("\"Hi\\r\\nLo\"") @=? run 1 (shortTextJsonString "Hi\r\nLo")
, THU.testCase "shortTextJsonString-D" $
pack ("\"Hi\\u001BLo\"") @=? run 1 (shortTextJsonString "Hi\ESCLo")
, THU.testCase "word-16-tree" $
Word16Tree.expectedSmall @=? run 1
(Word16Tree.encode Word16Tree.exampleSmall)
]
, testGroup "alternate"
[ TQC.testProperty "HexWord64" $ \x y ->