bench: Add benchmark for hex parser

f77957a9 · Hans-Peter Deifel · 597e0def · f77957a9
Commit f77957a9 authored Mar 21, 2019 by Hans-Peter Deifel 🐢
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 0 deletions

bench/Copar/Parser/BenchLexer.hs bench/Copar/Parser/BenchLexer.hs +7 -0

No files found.
--- 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"