From 26c4aae74b900fdbfe3539c2d251c4c734bfbb88 Mon Sep 17 00:00:00 2001 From: Sascha Matzke Date: Sat, 7 Mar 2009 14:52:28 +0100 Subject: [PATCH] fixed per-trial and batch-size variables to ensure the value is a number --- mongodb/benchmark/benchmark.factor | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/mongodb/benchmark/benchmark.factor b/mongodb/benchmark/benchmark.factor index d5f7efe052..c2935231d1 100644 --- a/mongodb/benchmark/benchmark.factor +++ b/mongodb/benchmark/benchmark.factor @@ -9,16 +9,20 @@ SYMBOL: collection : get* ( symbol default -- value ) [ get ] dip or ; inline +: ensure-number ( v -- n ) + dup string? [ string>number ] when ; inline + : trial-size ( -- size ) - "per-trial" 10000 get* ; inline flushable + "per-trial" 10000 get* ensure-number ; inline flushable : batch-size ( -- size ) - "batch-size" 100 get* ; inline flushable + "batch-size" 100 get* ensure-number ; inline flushable TUPLE: result doc collection index batch lasterror ; : ( -- ) result new result set ; inline + CONSTANT: CHECK-KEY f CONSTANT: DOC-SMALL H{ } @@ -249,7 +253,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* dup string? [ string>number ] when + "db" "db" get* "host" "127.0.0.1" get* "port" 27020 get* ensure-number [ print-header ! insert