steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

made variables strings so that they can be set from the commandline

db4
Sascha Matzke 2009-03-07 14:24:38 +01:00
parent aaf887ab1d
commit 4b7c4a3564
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
mongodb/benchmark/benchmark.factor
View File

@ -1,19 +1,19 @@
USING: calendar math fry kernel assocs math.ranges
sequences formatting combinators namespaces io tools.time prettyprint
accessors words mongodb.driver ;
accessors words mongodb.driver strings math.parser ;
IN: mongodb.benchmark
SYMBOLS: per-trial collection host db port ;
SYMBOL: collection
: get* ( symbol default -- value )
[ get ] dip or ; inline
: trial-size ( -- size )
per-trial 10000 get* ; inline flushable
"per-trial" 10000 get* ; inline flushable
: batch-size ( -- size )
\ batch-size 100 get* ; inline flushable
"batch-size" 100 get* ; inline flushable
TUPLE: result doc collection index batch lasterror ;
@ -249,7 +249,7 @@ CONSTANT: DOC-LARGE H{ { "base_url" "http://www.example.com/test-me" }
: run-benchmarks ( -- )
db "db" get* host "127.0.0.1" get* port 27020 get* <mdb>
"db" "db" get* "host" "127.0.0.1" get* "port" 27020 get* dup string? [ string>number ] when <mdb>
[
print-header
! insert
@ -270,4 +270,5 @@ CONSTANT: DOC-LARGE H{ { "base_url" "http://www.example.com/test-me" }
] with-db ;
MAIN: run-benchmarks