Merge pull request #910 from haskell/issue-593

phadej · web-flow · commit 1e9c3ce5fa81 · 2021-12-09T16:54:20.000+02:00
Resolve #593: Add charEscapes benchmark
diff --git a/benchmarks/bench/Suite.hs b/benchmarks/bench/Suite.hs
@@ -92,6 +92,8 @@ escapeBench = bgroup "Escape"
                 bs = Base16.encode $ TE.encodeUtf16BE $ T.pack [c]
 
         in LBS.toStrict $ B.toLazyByteString $ foldMap formatChar chars
+    , example "charEscapes" $
+        BS.concat $ replicate 10000 $ BS8.pack "\\\""
     ]
   where
     example :: String -> BS.ByteString -> Benchmark

Original file line number	Diff line number	Diff line change
`@@ -92,6 +92,8 @@ escapeBench = bgroup "Escape"`
`92`	`92`	`bs = Base16.encode $ TE.encodeUtf16BE $ T.pack [c]`
`93`	`93`
`94`	`94`	`in LBS.toStrict $ B.toLazyByteString $ foldMap formatChar chars`
	`95`	`+ , example "charEscapes" $`
	`96`	`+ BS.concat $ replicate 10000 $ BS8.pack "\\\""`
`95`	`97`	`]`
`96`	`98`	`where`
`97`	`99`	`example :: String -> BS.ByteString -> Benchmark`