Skip to content
Snippets Groups Projects
Commit f77957a9 authored by Hans-Peter Deifel's avatar Hans-Peter Deifel
Browse files

bench: Add benchmark for hex parser

parent 597e0def
No related branches found
No related tags found
No related merge requests found
...@@ -16,6 +16,7 @@ benchmarks = bgroup "Copar.Parser.Lexer" ...@@ -16,6 +16,7 @@ benchmarks = bgroup "Copar.Parser.Lexer"
[ benchColon [ benchColon
, benchDecimal , benchDecimal
, benchFloat , benchFloat
, benchHex
, benchName , benchName
, benchWhitespace , benchWhitespace
] ]
...@@ -40,6 +41,12 @@ benchFloat = bgroup "float" ...@@ -40,6 +41,12 @@ benchFloat = bgroup "float"
, benchp @Double "signed" (L.signed L.float) "2.87182364" , benchp @Double "signed" (L.signed L.float) "2.87182364"
] ]
benchHex :: Benchmark
benchHex = bgroup "hex"
[ benchp @Int "single" L.hex "0x1"
, benchp @Int "many" L.hex "0x123456789ABCDEF"
]
benchName :: Benchmark benchName :: Benchmark
benchName = bgroup "name" benchName = bgroup "name"
[ benchp "one letter" L.name "a" [ benchp "one letter" L.name "a"
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment