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

fixed per-trial and batch-size variables to ensure the value is a number

db4
Sascha Matzke 2009-03-07 14:52:28 +01:00
parent 4b7c4a3564
commit 26c4aae74b
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
mongodb/benchmark/benchmark.factor
View File

@ -9,16 +9,20 @@ SYMBOL: collection
: get* ( symbol default -- value ) : get* ( symbol default -- value )
[ get ] dip or ; inline [ get ] dip or ; inline
: ensure-number ( v -- n )
dup string? [ string>number ] when ; inline
: trial-size ( -- size ) : trial-size ( -- size )
"per-trial" 10000 get* ; inline flushable "per-trial" 10000 get* ensure-number ; inline flushable
: batch-size ( -- size ) : batch-size ( -- size )
"batch-size" 100 get* ; inline flushable "batch-size" 100 get* ensure-number ; inline flushable
TUPLE: result doc collection index batch lasterror ; TUPLE: result doc collection index batch lasterror ;
: <result> ( -- ) result new result set ; inline : <result> ( -- ) result new result set ; inline
CONSTANT: CHECK-KEY f CONSTANT: CHECK-KEY f
CONSTANT: DOC-SMALL H{ } CONSTANT: DOC-SMALL H{ }
@ -249,7 +253,7 @@ CONSTANT: DOC-LARGE H{ { "base_url" "http://www.example.com/test-me" }
: run-benchmarks ( -- ) : run-benchmarks ( -- )
"db" "db" get* "host" "127.0.0.1" get* "port" 27020 get* dup string? [ string>number ] when <mdb> "db" "db" get* "host" "127.0.0.1" get* "port" 27020 get* ensure-number <mdb>
[ [
print-header print-header
! insert ! insert