4b5153d · text · git.iko.soy

git.iko.soy/text

Remove the CaseMap benchmark

This benchmark has no real value. We already have a benchmark for a pure map in the Pure module. Adding IO to the CaseMap benchmark just causes IO to outweigh the map function, so the results aren't very useful.

commit4b5153d678cfccd66e2d061f0075cd7b4159e769 authorJasper Van der Jeugt <jaspervdj@gmail.com> dateSat 4 Jun 2011, 08:52 (15 years ago) parentda3cae7

2 files changed−17

compare with master

unifiedsplit

tests/benchmarks/src/Data/Text/Benchmarks.hs−2 tests/benchmarks/src/Data/Text/Benchmarks/CaseMap.hs−15

tests/benchmarks/src/Data/Text/Benchmarks.hs−2

@@ -10,7 +10,6 @@ import System.FilePath ((</>))

1010import System.IO (IOMode (WriteMode), openFile, hSetEncoding, utf8)

1111

1212import qualified Data.Text.Benchmarks.Builder as Builder

13−import qualified Data.Text.Benchmarks.CaseMap as CaseMap

1413import qualified Data.Text.Benchmarks.DecodeUtf8 as DecodeUtf8

1514import qualified Data.Text.Benchmarks.EncodeUtf8 as EncodeUtf8

1615import qualified Data.Text.Benchmarks.Equality as Equality

@@ -39,7 +38,6 @@ benchmarks = do

3938 -- Traditional benchmarks

4039 bs <- sequence

4140 [ Builder.benchmark

42− , CaseMap.benchmark (tf "russian.txt") sink

4341 , DecodeUtf8.benchmark (tf "russian.txt")

4442 , EncodeUtf8.benchmark sink "επανάληψη 竺法蘭共譯"

4543 , Equality.benchmark (tf "japanese.txt")

tests/benchmarks/src/Data/Text/Benchmarks/CaseMap.hsdeleted−15

@@ -1,15 +0,0 @@

1−-- | This benchmark converts a number of UTF-8 encoded files to uppercase

2−--

3−module Data.Text.Benchmarks.CaseMap

4− ( benchmark

5− ) where

6−

7−import Criterion (Benchmark, bench)

8−import System.IO (Handle)

9−import qualified Data.ByteString as B

10−import qualified Data.Text as T

11−import qualified Data.Text.Encoding as T

12−

13−benchmark :: FilePath -> Handle -> IO Benchmark

14−benchmark fp sink = return $ bench "CaseMap" $

15− B.readFile fp >>= B.hPutStr sink . T.encodeUtf8 . T.toUpper . T.decodeUtf8