From: Siraaj Khandkar <siraaj@khandkar.net>
Date: Tue, 5 Jun 2018 16:12:46 +0000 (-0400)
Subject: Report error count
X-Git-Url: https://git.xandkar.net/?a=commitdiff_plain;h=d3558060276fd0cd604b984d7c30780a09b9b493;p=tiger.ml.git

Report error count
---

diff --git a/compiler/src/exe/tiger_tests.ml b/compiler/src/exe/tiger_tests.ml
index ebbf6ab..e2015e9 100644
--- 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 ();
-    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 =