From c74aa5a224a41d3ab9d1a7ae4ebb4e58083a578c Mon Sep 17 00:00:00 2001 From: kim Date: Fri, 30 Jan 2009 05:43:27 +0000 Subject: [PATCH] . git-svn-id: svn+ssh://idea.nguyen.vg/svn/sxsi/trunk/xpathcomp@98 3cdefd35-fc62-479d-8e8d-bae585ffb9ca --- benchmark/main.ml | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/benchmark/main.ml b/benchmark/main.ml index b80faed..365832f 100644 --- a/benchmark/main.ml +++ b/benchmark/main.ml @@ -115,9 +115,12 @@ let l = TEST.test_engine [] (make_queryset List.iter (function (e,d),s -> Printf.printf "\n-------------- %s -----------------" e; List.iter (fun k -> - Array.iter ( fun i -> + Array.iteri ( fun i f -> + if (CONF.run_with_output && i=1) || (CONF.run_without_output && i = 0) + then begin print_newline (); - print_newline (); - print_stats Format.std_formatter i) k) s; + print_stats Format.std_formatter f; + end + ) k) s; Printf.printf "\n----------------------------------------\n" ) l -- 2.17.1