Skip to content
Snippets Groups Projects
Commit c91243f0 authored by Loïc Correnson's avatar Loïc Correnson Committed by Allan Blanchard
Browse files

[wp] fixing test cache miss printing

parent 6e6fc8e6
No related branches found
No related tags found
No related merge requests found
...@@ -235,13 +235,16 @@ let pp_stats ~shell ~updating fmt s = ...@@ -235,13 +235,16 @@ let pp_stats ~shell ~updating fmt s =
Format.fprintf fmt " (Tactics %d)" s.tactics Format.fprintf fmt " (Tactics %d)" s.tactics
else if s.tactics = 1 then else if s.tactics = 1 then
Format.fprintf fmt " (Tactic)" ; Format.fprintf fmt " (Tactic)" ;
let perfo = not shell || (not updating && s.cached < vp) in let print_cache =
0 < s.cached && List.exists (fun (p,_) -> p <> Qed) s.provers in
let print_perfo =
not shell || (print_cache && not updating && s.cached < np) in
let qed_only = let qed_only =
match s.provers with [Qed,_] -> vp = np | _ -> false in match s.provers with [Qed,_] -> vp = np | _ -> false in
List.iter List.iter
(fun (p,pr) -> (fun (p,pr) ->
let success = truncate pr.success in let success = truncate pr.success in
let print_perfo = perfo && pr.time > Rformat.epsilon in let print_perfo = print_perfo && pr.time > Rformat.epsilon in
let print_proofs = success > 0 && np > 1 in let print_proofs = success > 0 && np > 1 in
let print_qed = qed_only && s.verdict = Valid && vp = np in let print_qed = qed_only && s.verdict = Valid && vp = np in
if p != Qed || print_qed || print_perfo || print_proofs then if p != Qed || print_qed || print_perfo || print_proofs then
...@@ -255,9 +258,8 @@ let pp_stats ~shell ~updating fmt s = ...@@ -255,9 +258,8 @@ let pp_stats ~shell ~updating fmt s =
Format.fprintf fmt ")" Format.fprintf fmt ")"
end end
) s.provers ; ) s.provers ;
if 0 < s.cached && List.exists (fun (p,_) -> p <> Qed) s.provers if print_cache then
then if s.cached = np || updating then
if s.cached = vp || updating then
Format.fprintf fmt " (Cached)" Format.fprintf fmt " (Cached)"
else else
if shell then if shell then
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment