X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=benchmark%2Fmain.ml;h=935528c5ff12ae115cc1af1c1b20315156576228;hb=1c5c95673d1d3595f948e5dc674861a1f86b6158;hp=93c673bf1b9a917d7b4f77270905b0ef5a07d2ef;hpb=63ca35af9ef5c0b18b3d3217536f3353f77f5465;p=SXSI%2Fxpathcomp.git

diff --git a/benchmark/main.ml b/benchmark/main.ml
index 93c673b..935528c 100644
--- a/benchmark/main.ml
+++ b/benchmark/main.ml
@@ -79,29 +79,17 @@ struct
 
 end
 
-module CONF : CONFIGURATION = 
-struct
-  let path = "."
-  let result_basename = "test"
-  let num_runs = 1
-  let run_with_output = false
-  let run_without_output = true
-end
 
-module I = INIT_TESTER (CONF)
-module TestOld = MK (SXSI) (MK (SaxonBXQuery) (I))
-module Test = MK (SXSI) (I)
+INCLUDE "config.ml"
 
 
-let l = Test.test_engine [] (make_queryset 
-			       ["/home/kim/Documents/Work/Code/xpathcomp/tests/tiny.xml"] 
-			       ["/child::*"])
+let l = TEST.test_engine [] (make_queryset 
+			       documents
+			       queries
+			       )
 ;;
 
 
-
-
-
 List.iter (function (e,d),s -> 
 	     Printf.printf "\n--------------  %s   -----------------" e;
 	     Array.iter ( fun i ->