X-Git-Url: https://git.xandkar.net/?p=tiger.ml.git;a=blobdiff_plain;f=compiler%2Fsrc%2Flib%2Ftiger%2Ftiger_test.ml;h=83e9890584aaca794051ef06291bd91e549f30f3;hp=6a9ca1063a9de72dd8f67177044077c287b9daac;hb=df6377392ff2959a614242615a1dda51f5b97176;hpb=e69e4e8b68e822e6dc65bfe4040d110eb3c18a71

diff --git a/compiler/src/lib/tiger/tiger_test.ml b/compiler/src/lib/tiger/tiger_test.ml
index 6a9ca10..83e9890 100644
--- a/compiler/src/lib/tiger/tiger_test.ml
+++ b/compiler/src/lib/tiger/tiger_test.ml
@@ -120,19 +120,19 @@ let run tests =
     let output_value  = None in
     match f input with
     | exception e ->
-        let c, e =
+        let status_text, error_text =
           (match e with
           | Tiger_error.T e when is_error_expected e ->
-              (Green, Tiger_error.to_string e)
+              ((color Green "OK"), Tiger_error.to_string e)
           | Tiger_error.T e ->
               incr error_count;
-              (Red, Tiger_error.to_string e)
+              ((color Red "ERROR"), Tiger_error.to_string e)
           | e ->
               incr error_count;
-              (Red, Printexc.to_string e)
+              ((color Red "ERROR"), Printexc.to_string e)
           )
         in
-        ( s "%s: %s" (color c "ERROR") e
+        ( s "%s: %s" status_text error_text
         , output_status
         , output_value
         )