.

[SXSI/xpathcomp.git] / benchmark / main.ml

diff --git a/benchmark/main.ml b/benchmark/main.ml
index b80faed..365832f 100644 (file)
--- 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