diff --git a/bench/Copar/Parser/BenchLexer.hs b/bench/Copar/Parser/BenchLexer.hs index 53c3ecc32608847070bc3b07d0467214b2bb2c41..bb891c7d4950eaf27a3cc26937379e1d2cb4606a 100644 --- a/bench/Copar/Parser/BenchLexer.hs +++ b/bench/Copar/Parser/BenchLexer.hs @@ -16,6 +16,7 @@ benchmarks = bgroup "Copar.Parser.Lexer" [ benchColon , benchDecimal , benchFloat + , benchHex , benchName , benchWhitespace ] @@ -40,6 +41,12 @@ benchFloat = bgroup "float" , 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 = bgroup "name" [ benchp "one letter" L.name "a"