simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-06 11:15:43 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

reflect test_api result in its errcode

Browse source
This commit is contained in:
Simon Cruanes 2016-07-27 23:24:01 +02:00
parent 98d5074da6
commit 09b13be78d
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
tests/test_api.ml
View file

@ -178,6 +178,7 @@ end
let main () = let main () =
(* Administrative duties *) (* Administrative duties *)
Arg.parse argspec (fun _ -> ()) usage; Arg.parse argspec (fun _ -> ()) usage;
let failed = ref false in
List.iter List.iter
(fun solver -> (fun solver ->
List.iter List.iter
@ -185,8 +186,11 @@ let main () =
Printf.printf "(%-6s) %-10s... %!" (string_of_solver solver) test.Test.name; Printf.printf "(%-6s) %-10s... %!" (string_of_solver solver) test.Test.name;
match Test.run solver test with match Test.run solver test with
| Test.Pass -> Printf.printf "ok\n%!" | Test.Pass -> Printf.printf "ok\n%!"
| Test.Fail msg -> Printf.printf "fail (%s)\n%!" msg) | Test.Fail msg ->
failed := true;
Printf.printf "fail (%s)\n%!" msg)
Test.suite) Test.suite)
[Smt; Mcsat] [Smt; Mcsat];
if !failed then exit 1
let () = main() let () = main()