X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=ocaml%2Fsimple_test.ml;h=438b7b572f0a6ebc845a0a90514a2e3c19782664;hb=ad332f3befc4922498db7a9ca6dbb7cc67dbf75b;hp=8bdefdcb426939e42a192c7e7e0c079c0a9c6863;hpb=3ba5ecfc8372d4c9f380bad5cdf7387f2bbcea6a;p=fireball-separation.git

diff --git a/ocaml/simple_test.ml b/ocaml/simple_test.ml
index 8bdefdc..438b7b5 100644
--- a/ocaml/simple_test.ml
+++ b/ocaml/simple_test.ml
@@ -45,7 +45,10 @@ let main =
 
   repeat (fun _ ->
     let div, convs = gen complex vars in
-    Simple.run 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 ----"