From: Siraaj Khandkar Date: Tue, 5 Jun 2018 16:24:24 +0000 (-0400) Subject: Refer to test errors as failures X-Git-Url: https://git.xandkar.net/?a=commitdiff_plain;h=74305f428ca70afeedb7b9ba6ac1ae74ff5d7215;p=tiger.ml.git Refer to test errors as failures --- diff --git a/compiler/src/exe/tiger_tests.ml b/compiler/src/exe/tiger_tests.ml index e2015e9..6f1ce3b 100644 --- a/compiler/src/exe/tiger_tests.ml +++ b/compiler/src/exe/tiger_tests.ml @@ -158,11 +158,11 @@ end = struct p_indent 2; p "out: %s" parsing_out; p_ln (); ); p "%s" bar_end; p_ln (); - 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 (); + let failures = !error_count in + let clr = (if failures = 0 then Green else Red) in + p "Failures: %s" (color clr (string_of_int failures)); p_ln (); p "%s" bar_end; p_ln (); - exit error_count + exit failures end let test_cases_from_book =