git-svn-id: svn+ssh://idea.nguyen.vg/svn/sxsi/trunk/xpathcomp@84 3cdefd35-fc62-479d...

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

diff --git a/benchmark/main.ml b/benchmark/main.ml
index 98a9519..93c673b 100644 (file)
--- a/benchmark/main.ml
+++ b/benchmark/main.ml
@@ -62,7 +62,7 @@ struct
   let reference = false
   let time_factor = 1.0
   let mk_queryfile b doc q out = ()
-  let mk_cmdline b qout qfile doc q = [ doc; q ]@ (if b then [qout] else [])
+  let mk_cmdline b qout qfile doc q = [ "-d"; doc; q ]@ (if b then [qout] else [])
   let parse_rules = 
     [  ( ".*Parsing document :[ \\t]*\\([0-9]+\\.[0-9]*\\)ms.*",
         [ Input_parsing_time 1]);
@@ -83,19 +83,19 @@ module CONF : CONFIGURATION =
 struct
   let path = "."
   let result_basename = "test"
-  let num_runs = 5
-  let run_with_output = true
+  let num_runs = 1
+  let run_with_output = false
   let run_without_output = true
 end
 
 module I = INIT_TESTER (CONF)
-module Test = MK (SXSI) (MK (SaxonBXQuery) (I))
-
+module TestOld = MK (SXSI) (MK (SaxonBXQuery) (I))
+module Test = MK (SXSI) (I)
 
 
 let l = Test.test_engine [] (make_queryset 
                               ["/home/kim/Documents/Work/Code/xpathcomp/tests/tiny.xml"] 
-                              ["/descendant::*/descendant::*/descendant::*"])
+                              ["/child::*"])
 ;;