home
/
code
/
tiger.ml.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Report error count
[tiger.ml.git]
/
compiler
/
src
/
exe
/
tiger_tests.ml
diff --git
a/compiler/src/exe/tiger_tests.ml
b/compiler/src/exe/tiger_tests.ml
index
ebbf6ab
..
e2015e9
100644
(file)
--- a/
compiler/src/exe/tiger_tests.ml
+++ b/
compiler/src/exe/tiger_tests.ml
@@
-158,7
+158,11
@@
end = struct
p_indent 2; p "out: %s" parsing_out; p_ln ();
);
p "%s" bar_end; p_ln ();
p_indent 2; p "out: %s" parsing_out; p_ln ();
);
p "%s" bar_end; p_ln ();
- exit !error_count
+ let error_count = !error_count in
+ let clr = (if error_count = 0 then Green else Red) in
+ p "Errors: %s" (color clr (string_of_int error_count)); p_ln ();
+ p "%s" bar_end; p_ln ();
+ exit error_count
end
let test_cases_from_book =
end
let test_cases_from_book =
This page took
0.033874 seconds
and
4
git commands to generate.