X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=ocaml%2Fsimple_test.ml;h=438b7b572f0a6ebc845a0a90514a2e3c19782664;hb=3bf899086f0aeb5fd193be8b1f2354568f0593ad;hp=9618113794f6c7ad9c25982ee67924b947c755a4;hpb=1e41340acff1c4e4439b44ce5437542c905c352f;p=fireball-separation.git

diff --git a/ocaml/simple_test.ml b/ocaml/simple_test.ml
index 9618113..438b7b5 100644
--- a/ocaml/simple_test.ml
+++ b/ocaml/simple_test.ml
@@ -38,12 +38,17 @@ let rec repeat f n =
 let main =
   Random.self_init ();
   let num = 100 in
-  let complex = 200 in
-  let vars = ["x"; "y"; "z"; "v" ; "w"; "a"; "b"; "c"] in
+  let complex = 100 in
+  let no_bound_vars = 10 in
+  let vars = Array.to_list
+   (Array.init no_bound_vars (fun x -> "x" ^ string_of_int x)) in
 
   repeat (fun _ ->
     let div, convs = gen complex vars in
-    Simple.solve div convs
+    let str = "$ random simple test \nD " ^ div ^ String.concat "\nC " convs ^ "\n" in
+    print_endline str;
+    let open Simple in
+    (solve ++ problem_of ++ Parser.problem_of_string) str
   ) num ;
 
   prerr_endline "\n---- ALL TESTS COMPLETED ----"