git.iko.soy/text
on master help sign in
Benchmark stream and restreamXXX as well
b90f89bJasper Van der Jeugt
tests/benchmarks/src/Data/Text/Benchmarks/Stream.hs+22−1
compare with master
unifiedsplit
@@ -17,9 +17,12 @@ import Data.Text.Fusion.Internal (Step (..), Stream (..))
17import qualified Data.Text.Encoding as T
17import qualified Data.Text.Encoding as T
18import qualified Data.Text.Encoding.Error as E
18import qualified Data.Text.Encoding.Error as E
19import qualified Data.Text.Encoding.Fusion as T
19import qualified Data.Text.Encoding.Fusion as T
20+import qualified Data.Text.Encoding.Fusion.Common as F
21+import qualified Data.Text.Fusion as T
20import qualified Data.Text.IO as T
22import qualified Data.Text.IO as T
21import qualified Data.Text.Lazy.Encoding as TL
23import qualified Data.Text.Lazy.Encoding as TL
22import qualified Data.Text.Lazy.Encoding.Fusion as TL
24import qualified Data.Text.Lazy.Encoding.Fusion as TL
25+import qualified Data.Text.Lazy.Fusion as TL
23import qualified Data.Text.Lazy.IO as TL
26import qualified Data.Text.Lazy.IO as TL
24
27
25instance NFData a => NFData (Stream a) where
28instance NFData a => NFData (Stream a) where
@@ -49,8 +52,19 @@ benchmark fp = do
49 !utf32leL = TL.encodeUtf32LE tl
52 !utf32leL = TL.encodeUtf32LE tl
50 !utf32beL = TL.encodeUtf32BE tl
53 !utf32beL = TL.encodeUtf32BE tl
51
54
55+ -- For the functions which operate on streams
56+ let !s = T.stream t
57+
52 return $ bgroup "Stream"
58 return $ bgroup "Stream"
59+
60+ -- Fusion
61+ [ bgroup "stream" $
62+ [ bench "Text" $ nf T.stream t
63+ , bench "LazyText" $ nf TL.stream tl
64+ ]
65+
66+ -- Encoding.Fusion
53− [ bgroup "streamUtf8"
67+ , bgroup "streamUtf8"
54 [ bench "Text" $ nf (T.streamUtf8 E.lenientDecode) utf8
68 [ bench "Text" $ nf (T.streamUtf8 E.lenientDecode) utf8
55 , bench "LazyText" $ nf (TL.streamUtf8 E.lenientDecode) utf8L
69 , bench "LazyText" $ nf (TL.streamUtf8 E.lenientDecode) utf8L
56 ]
70 ]
@@ -70,4 +84,11 @@ benchmark fp = do
70 [ bench "Text" $ nf (T.streamUtf32BE E.lenientDecode) utf32be
84 [ bench "Text" $ nf (T.streamUtf32BE E.lenientDecode) utf32be
71 , bench "LazyText" $ nf (TL.streamUtf32BE E.lenientDecode) utf32beL
85 , bench "LazyText" $ nf (TL.streamUtf32BE E.lenientDecode) utf32beL
72 ]
86 ]
87+
88+ -- Encoding.Fusion.Common
89+ , bench "restreamUtf8" $ nf F.restreamUtf8 s
90+ , bench "restreamUtf16LE" $ nf F.restreamUtf16LE s
91+ , bench "restreamUtf16BE" $ nf F.restreamUtf16BE s
92+ , bench "restreamUtf32LE" $ nf F.restreamUtf32LE s
93+ , bench "restreamUtf32BE" $ nf F.restreamUtf32BE s
73 ]
94 ]