Add queries states

[tatoo.git] / src / test.ml

diff --git a/src/test.ml b/src/test.ml
index 334e572..cba40e0 100644 (file)
--- a/src/test.ml
+++ b/src/test.ml
@@ -37,11 +37,14 @@ let query =
 
 open Format
 
-let asta = Compil.trans query
+let build_asta () =
+  let asta = Compil.trans query in
+  fprintf err_formatter "COMPIL OK\n";
+  asta
 
 let () =
   fprintf err_formatter "Query: %a\n%!" XPath.Ast.print query;
-  fprintf err_formatter "Asta: %a\n%!" Asta.print asta;
+  fprintf err_formatter "Asta: %a\n%!" Asta.print (build_asta());
   fprintf err_formatter "Document:\n%!";
   Tree.print_xml stderr doc (Tree.root doc);
   exit 0