4b5153d · text · git.iko.soy

on master help sign in

Remove the CaseMap benchmark

4b5153dJasper Van der Jeugt15 years ago

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

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

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

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

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

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

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

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

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

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

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

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

39 -- Traditional benchmarks

38 -- Traditional benchmarks

40 bs <- sequence

39 bs <- sequence

41 [ Builder.benchmark

40 [ Builder.benchmark

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

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

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

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

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

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

43 , 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