fprintf err_formatter "Evaluating automaton:\n%!";
let module Naive = Auto.Eval.Make(Tree.Naive) in
let results = Naive.eval auto doc (Tree.Naive.root doc) in
- output_string stdout "<xml_results>\n";
+ output_string stdout "<xml_result>\n";
List.iter (fun n ->
Tree.Naive.print_xml stdout doc n;
output_char stdout '\n'
) results;
- output_string stdout "\n<xml_results>";
+ output_string stdout "</xml_result>\n";
flush stdout
#!/bin/sh
-TESTPROG="../main.native"
+TESTPROG="./main.native"
usage() {
echo "error: missing input, query file, xml_diff or $TESTPROG"
RESULTS="$FILE".results
QUERIES="$FILE".queries
-if test ! -f "$FILE" -o ! -f "$QUERIES" -o ! -f "$TESTPROG" -o ! -f xml_diff
+if test ! -f "$FILE" -o ! -f "$QUERIES" -o ! -f "$TESTPROG" -o ! -f xml_diff.native
then
usage;
exit 1
do
TOTAL=$(($TOTAL + 1))
echo -n "Testing $qname: $q ... "
- "$TESTROG" "$FILE" "$q" > "$RESULTS"/"$qname"_test.xml 2> "$RESULTS"/"$qname"_test.log
- ./xml_diff "$RESULTS"/"$qname"_test.xml "$RESULTS"/"$qname".xml 2>> "$RESULTS"/"$qname"_test.log
+ "$TESTPROG" "$FILE" "$q" > "$RESULTS"/"$qname"_test.xml 2> "$RESULTS"/"$qname"_test.log
+ ./xml_diff.native "$RESULTS"/"$qname"_test.xml "$RESULTS"/"$qname".xml 2>> "$RESULTS"/"$qname"_test.log
case "$?" in
0)
TESTS=$(($TESTS + 1))
*)
echo failed
echo ------- output -----------
- cat "$RESULTS"/"$qname"_test.log
+ cat "$RESULTS"/"$qname".xml
+ echo ==========================
+ cat "$RESULTS"/"$qname"_test.xml
echo --------------------------
;;
esac
#!/bin/sh
usage() {
- echo "error: missing input, query file or XPathEval class"
+ echo "error: missing input, query file"
echo "usage: $0 file.xml"
}
RESULTS="$FILE".results
QUERIES="$FILE".queries
-if test ! -f "$FILE" -o ! -f "$QUERIES" -o ! -f XPathEval.class
+if test ! -f "$FILE" -o ! -f "$QUERIES"
then
usage;
exit 1
cat "$QUERIES" | grep -v '^#' | while read qname q
do
echo "Computing $q"
- java XPathEval "$FILE" "$q" > "$RESULTS"/"$qname".xml
+ java -cp _build/tools XPathEval "$FILE" "$q" > "$RESULTS"/"$qname".xml
done