Benchmark UTF-8 strings

haskell · Jul 20, 2017 · 460c2c5 · 460c2c5
1 parent e858a82
commit 460c2c5
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/bench/BenchAll.hs b/bench/BenchAll.hs
@@ -239,6 +239,8 @@ main = do
         [ benchB' "mempty"        ()  (const mempty)
         , benchB' "ensureFree 8"  ()  (const (ensureFree 8))
         , benchB' "intHost 1"     1   intHost
+        , benchB' "UTF-8 String (naive)" "hello world\0" fromString
+        , benchB' "UTF-8 String"  () $ \() -> P.cstringUtf8 "hello world\0"#
         , benchB' "String (naive)" "hello world!" fromString
         , benchB' "String"        () $ \() -> P.cstring "hello world!"#
         ]