From 887126fbf8c085698094c15a45db60def18006d9 Mon Sep 17 00:00:00 2001 From: Sascha Matzke Date: Wed, 25 Nov 2009 09:37:50 +0100 Subject: [PATCH] fixed result calculation; added ops/s value --- extra/mongodb/benchmark/benchmark.factor | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/extra/mongodb/benchmark/benchmark.factor b/extra/mongodb/benchmark/benchmark.factor index ad8c501605..399b5c4e8c 100644 --- a/extra/mongodb/benchmark/benchmark.factor +++ b/extra/mongodb/benchmark/benchmark.factor @@ -224,15 +224,15 @@ CONSTANT: DOC-LARGE H{ { "base_url" "http://www.example.com/test-me" } [ index>> bchar ] keep lasterror>> bchar trial-size ] dip - 1000000 / /i - "%-18s: {batch:%s,index:%s;errchk:%s} %10s docs/s" + 1000000000 / [ /i ] [ result get batch>> [ [ batch-size /i ] dip ] when /i ] 2bi + "%-18s: {batch:%s,index:%s;errchk:%s} %10s docs/s %10s ops/s" sprintf print flush ; : print-separator ( -- ) - "----------------------------------------------------------------" print flush ; inline + "---------------------------------------------------------------------------------" print flush ; inline : print-separator-bold ( -- ) - "================================================================" print flush ; inline + "=================================================================================" print flush ; inline : print-header ( -- ) trial-size