projects
/
SXSI
/
xpathcomp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
a761bc2
..
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 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]);
let parse_rules =
[ ( ".*Parsing document :[ \\t]*\\([0-9]+\\.[0-9]*\\)ms.*",
[ Input_parsing_time 1]);
@@
-70,7
+70,7
@@
struct
( ".*Compiling query :[ \\t]*\\([0-9]+\\.[0-9]*\\)ms.*",
[ Query_compile_time 1]);
( ".*Compiling query :[ \\t]*\\([0-9]+\\.[0-9]*\\)ms.*",
[ Query_compile_time 1]);
- ( ".*
TopDown (No BackTrack)
:[ \\t]*\\([0-9]+\\.[0-9]*\\)ms.*",
+ ( ".*
Execution time
:[ \\t]*\\([0-9]+\\.[0-9]*\\)ms.*",
[ Query_execution_time 1]);
( ".*Serializing results :[ \\t]*\\([0-9]+\\.[0-9]*\\)ms.*",
[ Query_execution_time 1]);
( ".*Serializing results :[ \\t]*\\([0-9]+\\.[0-9]*\\)ms.*",
@@
-83,18
+83,25
@@
module CONF : CONFIGURATION =
struct
let path = "."
let result_basename = "test"
struct
let path = "."
let result_basename = "test"
- let num_runs =
5
- let run_with_output =
tru
e
+ let num_runs =
1
+ let run_with_output =
fals
e
let run_without_output = true
end
module I = INIT_TESTER (CONF)
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
let l = Test.test_engine [] (make_queryset
- ["/home/kim/Documents/Work/Code/xpathcomp/tests/
small
.xml"]
- ["/
descendant::*/descendant::*/descendant
::*"])
+ ["/home/kim/Documents/Work/Code/xpathcomp/tests/
tiny
.xml"]
+ ["/
child
::*"])
;;
;;
+
+
+
+
+
List.iter (function (e,d),s ->
Printf.printf "\n-------------- %s -----------------" e;
Array.iter ( fun i ->
List.iter (function (e,d),s ->
Printf.printf "\n-------------- %s -----------------" e;
Array.iter ( fun i ->