diff options
| author | Wojciech Meyer <wojciech.meyer@gmail.com> | 2013-01-23 23:57:14 +0000 |
|---|---|---|
| committer | Wojciech Meyer <wojciech.meyer@gmail.com> | 2013-01-23 23:57:14 +0000 |
| commit | b7c2d04ac924a5670fb8c860cf21e8aaa7e2e815 (patch) | |
| tree | 26e9336dfa0ef6af2b485996c32c52f37025233f /ocamlbuild | |
| parent | 26d9127a1e733317c27d7cc4d7ab0daea6e56b63 (diff) | |
| download | ocaml-b7c2d04ac924a5670fb8c860cf21e8aaa7e2e815.tar.gz | |
[ocamlbuild] Real time update of the tests, by flushing the channel after each test result.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@13273 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'ocamlbuild')
| -rw-r--r-- | ocamlbuild/testsuite/ocamlbuild_test.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/ocamlbuild/testsuite/ocamlbuild_test.ml b/ocamlbuild/testsuite/ocamlbuild_test.ml index 907d930675..3552a40cbf 100644 --- a/ocamlbuild/testsuite/ocamlbuild_test.ml +++ b/ocamlbuild/testsuite/ocamlbuild_test.ml @@ -439,25 +439,25 @@ let run ~root = let ch = open_out log_name in List.iter (fun l -> output_string ch l; output_string ch "\n") lines; close_out ch; - Printf.printf "\x1b[0;31m\x1b[1m[FAILED]\x1b[0m \x1b[1m%-20s\x1b[0;33m%s.\n" name + Printf.printf "\x1b[0;31m\x1b[1m[FAILED]\x1b[0m \x1b[1m%-20s\x1b[0;33m%s.\n%!" name (Printf.sprintf "Command '%s' with error code %n output written to %s" cmd n log_name); | Some failing_msg -> let msg = String.concat "\n" lines in if failing_msg = msg then - Printf.printf "\x1b[0;32m\x1b[1m[PASSED]\x1b[0m \x1b[1m%-20s\x1b[0;36m%s.\n" name description + Printf.printf "\x1b[0;32m\x1b[1m[PASSED]\x1b[0m \x1b[1m%-20s\x1b[0;36m%s.\n%!" name description else - Printf.printf "\x1b[0;31m\x1b[1m[FAILED]\x1b[0m \x1b[1m%-20s\x1b[0;33m%s.\n" name ((Printf.sprintf "Failure with not matching message: %s") msg) + Printf.printf "\x1b[0;31m\x1b[1m[FAILED]\x1b[0m \x1b[1m%-20s\x1b[0;33m%s.\n%!" name ((Printf.sprintf "Failure with not matching message: %s") msg) end; | _ -> let errors = List.concat (List.map (Match.match_with_fs ~root:full_name) matching) in begin if errors == [] then - Printf.printf "\x1b[0;32m\x1b[1m[PASSED]\x1b[0m \x1b[1m%-20s\x1b[0;36m%s.\n" name description + Printf.printf "\x1b[0;32m\x1b[1m[PASSED]\x1b[0m \x1b[1m%-20s\x1b[0;36m%s.\n%!" name description else begin let ch = open_out log_name in output_string ch ("Run '" ^ cmd ^ "'\n"); List.iter (fun e -> output_string ch (Match.string_of_error e); output_string ch ".\n") errors; close_out ch; - Printf.printf "\x1b[0;31m\x1b[1m[FAILED]\x1b[0m \x1b[1m%-20s\x1b[0;33m%s.\n" name + Printf.printf "\x1b[0;31m\x1b[1m[FAILED]\x1b[0m \x1b[1m%-20s\x1b[0;33m%s.\n%!" name (Printf.sprintf "Some system checks failed, output written to %s" log_name) end end) |