Vergara_Tech/mongodb
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Increase benchmark size for better resolution

Browse source
This commit is contained in:
Victor Denisov 2016-04-27 00:04:33 -07:00
parent 494bdcbe56
commit b3effd4439
2 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Benchmark.hs
View file

@ -11,11 +11,11 @@ import Database.MongoDB.Query
import qualified Data.Text as T import qualified Data.Text as T
main = defaultMain [ main = defaultMain [
bgroup "insert" [ bench "100" $ nfIO doInserts ] bgroup "insert" [ bench "1000" $ nfIO doInserts ]
] ]
doInserts = do doInserts = do
let docs = (flip map) [0..100] $ \i -> let docs = (flip map) [0..1000] $ \i ->
["name" M.=: (T.pack $ "name " ++ (show i))] ["name" M.=: (T.pack $ "name " ++ (show i))]
pipe <- M.connect (M.host "127.0.0.1") pipe <- M.connect (M.host "127.0.0.1")

3
mongoDB.cabal
View file

@ -82,6 +82,8 @@ Benchmark bench
type: exitcode-stdio-1.0 type: exitcode-stdio-1.0
Build-depends: array -any Build-depends: array -any
, base < 5 , base < 5
, base64-bytestring
, base16-bytestring
, binary -any , binary -any
, bson >= 0.3 && < 0.4 , bson >= 0.3 && < 0.4
, text , text
@ -90,6 +92,7 @@ Benchmark bench
, mtl >= 2 , mtl >= 2
, cryptohash -any , cryptohash -any
, network -any , network -any
, nonce
, parsec -any , parsec -any
, random -any , random -any
, random-shuffle -any , random-shuffle -any