Some more bugfixing for the contains.

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

diff --git a/benchmark/main.ml b/benchmark/main.ml
index 98a9519..ae45a49 100644 (file)
--- 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 = 5
-  let run_with_output = true
-  let run_without_output = true
-end
-
-module I = INIT_TESTER (CONF)
-module Test = MK (SXSI) (MK (SaxonBXQuery) (I))
 
+INCLUDE "config.ml"
 
 
-let l = Test.test_engine [] (make_queryset 
-                              ["/home/kim/Documents/Work/Code/xpathcomp/tests/tiny.xml"] 
-                              ["/descendant::*/descendant::*/descendant::*"])
+let l = TEST.test_engine [] (make_queryset 
+                              documents
+                              queries
+                              )
 ;;
 
 
-
-
-
 List.iter (function (e,d),s -> 
             Printf.printf "\n--------------  %s   -----------------" e;
             Array.iter ( fun i ->