Commit 2763cc09 authored by POTTIER Francois's avatar POTTIER Francois

Fix `make test` so as to have a nonzero exit status when a test fails.

parent d2f2194b
......@@ -355,8 +355,10 @@ let successful, failed =
partition (fun (_, o) -> o = OK) outputs
let () =
printf "%d out of %d tests are successful.\n"
(length successful) (length inputs);
let successful = length successful
and inputs = length inputs in
printf "%d out of %d tests are successful.\n" successful inputs;
failed |> iter (fun (input, outcome) ->
printf "\n[FAIL] %s\n%s" (print_input input) (print_outcome outcome)
)
);
exit (if successful = inputs then 0 else 1)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment