Permalink
Browse files

Add a tiny encoding benchmark

--HG--
extra : convert_revision : 3f5cd98869249f7ad0dcf39df16c0f6253a0a93a
  • Loading branch information...
1 parent 3574dd5 commit 7b070bd7ed870d632d16b7603e1b43c0d2b73c66 @bos committed Oct 14, 2010
Showing with 9 additions and 0 deletions.
  1. +9 −0 tests/benchmarks/EncodeUtf8.hs
@@ -0,0 +1,9 @@
+{-# LANGUAGE OverloadedStrings #-}
+import Data.Text as T
+import Data.ByteString as B
+import Data.Text.Encoding as T
+
+main = do
+ let k = 50000000
+ t = T.replicate k "a"
+ B.putStr (T.encodeUtf8 t)

0 comments on commit 7b070bd

Please sign in to comment.