2d81732 · text · git.iko.soy

git.iko.soy/text

on master help sign in

Give some benchmark groups better names.

2d81732Bryan O'Sullivan17 years ago

tests/Benchmarks.hs+8−9

compare with master

unifiedsplit

@@ -5,7 +5,6 @@ import qualified Data.ByteString.Lazy.Char8 as BL

5import qualified Data.ByteString.Lazy.Internal as BL

6import Control.Monad.Trans (liftIO)

7import Control.Exception (evaluate)

8−import Control.Parallel.Strategies

9import Criterion.Main

8import Criterion.Main

10import Data.Char

9import Data.Char

11import qualified Codec.Binary.UTF8.Generic as UTF8

10import qualified Codec.Binary.UTF8.Generic as UTF8

@@ -116,7 +115,7 @@ main = do

116 , bench "bl" $ nf (BL.filter p0) bla

115 , bench "bl" $ nf (BL.filter p0) bla

117 , bench "l" $ nf (L.filter p0) la

116 , bench "l" $ nf (L.filter p0) la

118 ],

117 ],

119− bgroup "2filter" [

118+ bgroup "filter.filter" [

120 bench "ts" $ nf (TS.filter p1 . TS.filter p0) tsa

119 bench "ts" $ nf (TS.filter p1 . TS.filter p0) tsa

121 , bench "tl" $ nf (TL.filter p1 . TL.filter p0) tla

120 , bench "tl" $ nf (TL.filter p1 . TL.filter p0) tla

122 , bench "bs" $ nf (BS.filter p1 . BS.filter p0) bsa

121 , bench "bs" $ nf (BS.filter p1 . BS.filter p0) bsa

@@ -186,21 +185,21 @@ main = do

186 , bench "bl" $ nf (BL.map f) bla

185 , bench "bl" $ nf (BL.map f) bla

187 , bench "l" $ nf (L.map f) la

186 , bench "l" $ nf (L.map f) la

188 ],

187 ],

189− bgroup "2map" [

188+ bgroup "map.map" [

190 bench "ts" $ nf (TS.map f . TS.map f) tsa

189 bench "ts" $ nf (TS.map f . TS.map f) tsa

191 , bench "tl" $ nf (TL.map f . TL.map f) tla

190 , bench "tl" $ nf (TL.map f . TL.map f) tla

192 , bench "bs" $ nf (BS.map f . BS.map f) bsa

191 , bench "bs" $ nf (BS.map f . BS.map f) bsa

193 , bench "bl" $ nf (BL.map f . BL.map f) bla

192 , bench "bl" $ nf (BL.map f . BL.map f) bla

194 , bench "l" $ nf (L.map f . L.map f) la

193 , bench "l" $ nf (L.map f . L.map f) la

195 ],

194 ],

196− bgroup "replicate" [

195+ bgroup "replicate char" [

197 bench "ts" $ nf (TS.replicate bsa_len) (TS.singleton c)

196 bench "ts" $ nf (TS.replicate bsa_len) (TS.singleton c)

198 , bench "tl" $ nf (TL.replicate (fromIntegral bsa_len)) (TL.singleton c)

197 , bench "tl" $ nf (TL.replicate (fromIntegral bsa_len)) (TL.singleton c)

199 , bench "bs" $ nf (BS.replicate bsa_len) c

198 , bench "bs" $ nf (BS.replicate bsa_len) c

200 , bench "bl" $ nf (BL.replicate (fromIntegral bsa_len)) c

199 , bench "bl" $ nf (BL.replicate (fromIntegral bsa_len)) c

201 , bench "l" $ nf (L.replicate bsa_len) c

200 , bench "l" $ nf (L.replicate bsa_len) c

202 ],

201 ],

203− bgroup "2replicate" [

202+ bgroup "replicate string" [

204 bench "ts" $ nf (TS.replicate (bsa_len `div` TS.length tsw)) tsw

203 bench "ts" $ nf (TS.replicate (bsa_len `div` TS.length tsw)) tsw

205 , bench "tl" $ nf (TL.replicate (fromIntegral bsa_len `div` TL.length tlw)) tlw

204 , bench "tl" $ nf (TL.replicate (fromIntegral bsa_len `div` TL.length tlw)) tlw

206 , bench "l" $ nf (replicat (bsa_len `div` TS.length tsw)) lw

205 , bench "l" $ nf (replicat (bsa_len `div` TS.length tsw)) lw

@@ -283,7 +282,7 @@ main = do

283 , bench "bl" $ nf (BL.length . BL.filter p0) bla

282 , bench "bl" $ nf (BL.length . BL.filter p0) bla

284 , bench "l" $ nf (L.length . L.filter p0) la

283 , bench "l" $ nf (L.length . L.filter p0) la

285 ],

284 ],

286− bgroup "2filter" [

285+ bgroup "filter.filter" [

287 bench "ts" $ nf (TS.length . TS.filter p1 . TS.filter p0) tsa

286 bench "ts" $ nf (TS.length . TS.filter p1 . TS.filter p0) tsa

288 , bench "tl" $ nf (TL.length . TL.filter p1 . TL.filter p0) tla

287 , bench "tl" $ nf (TL.length . TL.filter p1 . TL.filter p0) tla

289 , bench "bs" $ nf (BS.length . BS.filter p1 . BS.filter p0) bsa

288 , bench "bs" $ nf (BS.length . BS.filter p1 . BS.filter p0) bsa

@@ -318,20 +317,20 @@ main = do

318 , bench "bl" $ nf (BL.length . BL.map f) bla

317 , bench "bl" $ nf (BL.length . BL.map f) bla

319 , bench "l" $ nf (L.length . L.map f) la

318 , bench "l" $ nf (L.length . L.map f) la

320 ],

319 ],

321− bgroup "2map" [

320+ bgroup "map.map" [

322 bench "ts" $ nf (TS.length . TS.map f . TS.map f) tsa

321 bench "ts" $ nf (TS.length . TS.map f . TS.map f) tsa

323 , bench "tl" $ nf (TL.length . TL.map f . TL.map f) tla

322 , bench "tl" $ nf (TL.length . TL.map f . TL.map f) tla

324 , bench "bs" $ nf (BS.length . BS.map f . BS.map f) bsa

323 , bench "bs" $ nf (BS.length . BS.map f . BS.map f) bsa

325 , bench "l" $ nf (L.length . L.map f . L.map f) la

324 , bench "l" $ nf (L.length . L.map f . L.map f) la

326 ],

325 ],

327− bgroup "replicate" [

326+ bgroup "replicate char" [

328 bench "ts" $ nf (TS.length . TS.replicate bsa_len) (TS.singleton c)

327 bench "ts" $ nf (TS.length . TS.replicate bsa_len) (TS.singleton c)

329 , bench "tl" $ nf (TL.length . TL.replicate (fromIntegral bsa_len)) (TL.singleton c)

328 , bench "tl" $ nf (TL.length . TL.replicate (fromIntegral bsa_len)) (TL.singleton c)

330 , bench "bs" $ nf (BS.length . BS.replicate bsa_len) c

329 , bench "bs" $ nf (BS.length . BS.replicate bsa_len) c

331 , bench "bl" $ nf (BL.length . BL.replicate (fromIntegral bsa_len)) c

330 , bench "bl" $ nf (BL.length . BL.replicate (fromIntegral bsa_len)) c

332 , bench "l" $ nf (L.length . L.replicate bsa_len) c

331 , bench "l" $ nf (L.length . L.replicate bsa_len) c

333 ],

332 ],

334− bgroup "2replicate" [

333+ bgroup "replicate string" [

335 bench "ts" $ nf (TS.length . TS.replicate (bsa_len `div` TS.length tsw)) tsw

334 bench "ts" $ nf (TS.length . TS.replicate (bsa_len `div` TS.length tsw)) tsw

336 , bench "tl" $ nf (TL.length . TL.replicate (fromIntegral bsa_len `div` TL.length tlw)) tlw

335 , bench "tl" $ nf (TL.length . TL.replicate (fromIntegral bsa_len `div` TL.length tlw)) tlw

337 , bench "l" $ nf (L.length . replicat (bsa_len `div` TS.length tsw)) lw

336 , bench "l" $ nf (L.length . replicat (bsa_len `div` TS.length tsw)) lw