test_instance.ma

[helm.git] / helm / ocaml / metadata / test.ml

diff --git a/helm/ocaml/metadata/test.ml b/helm/ocaml/metadata/test.ml
index 8e805840a499e1460637d029a83e787ab1228dcd..a7040e6598c14d9cc643f8229fda0ba8da3bbcd5 100644 (file)
--- a/helm/ocaml/metadata/test.ml
+++ b/helm/ocaml/metadata/test.ml
@@ -1,6 +1,16 @@
 
-let _ = Helm_registry.set "getter.mode" "remote";
-let _ = Helm_registry.set "getter.url" "http://mowgli.cs.unibo.it:58081/" in
+
+let _ = Helm_registry.set "getter.mode" "local" in
+
+let _ = Helm_registry.set "getter.servers"
+            "file:///projects/helm/library/coq_contribs" in
+let _ = Helm_registry.set "getter.cache_dir" "." in
+let _ = Helm_registry.set "getter.maps_dir" "." in
+let _ = Helm_registry.set "getter.dtd_dir" "/projects/helm/xml/dtd" in
+
+let _ = Http_getter.init () in
+(* let _ = Http_getter.update () in *)
+
 let dbd =
   Mysql.quick_connect ~host:"mowgli.cs.unibo.it" ~user:"helm" ~database:"matita"
     ()
@@ -26,5 +36,10 @@ end else
       let uri = UriManager.uri_of_string line in
       MetadataDb.index_obj ~dbd ~uri
     done
-  with End_of_file -> close_in ic
+  with 
+  | _ -> 
+    prerr_endline 
+      ("total persing time " ^ 
+         (string_of_float !CicEnvironment.total_parsing_time)); 
+    close_in ic