X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite_engine%2FgrafiteEngine.ml;h=aebae038789c66459d36af92a7ed035cd373eba3;hb=a9051805b6d1be027d6695e300feb1b9efad9267;hp=d85110774a5491ce07f34e8aa3291c0c5f8316fa;hpb=6bce12e43e808de17a7146584c40ab26d29498e5;p=helm.git

diff --git a/helm/software/components/grafite_engine/grafiteEngine.ml b/helm/software/components/grafite_engine/grafiteEngine.ml
index d85110774..aebae0387 100644
--- a/helm/software/components/grafite_engine/grafiteEngine.ml
+++ b/helm/software/components/grafite_engine/grafiteEngine.ml
@@ -800,11 +800,12 @@ let rec eval_command = {ec_go = fun ~disambiguate_command opts status
      (* CALL auto on every goal, easy way of testing it *)
      let auto = 
        GrafiteAst.AutoBatch 
-         (loc, ([],["depth","1";"timeout","1";"type","1"])) in
+         (loc, ([],["depth","2";"timeout","1";"type","1"])) in
      (try
        let auto = apply_tactic ~disambiguate_tactic ("",0,auto) in
-       let _ = eval_tactical status (tactic_of_ast' auto) in ()
-     with _ -> ());
+       let _ = eval_tactical status (tactic_of_ast' auto) in 
+       print_endline "GOOD"; ()
+     with ProofEngineTypes.Fail _ -> print_endline "BAD" | _ -> ());
       eval_tactical status
        (punctuation_tactical_of_ast (text,prefix_len,punct)),[]
   | GrafiteAst.Tactic (_, None, punct) ->