From: Siraaj Khandkar <siraaj@khandkar.net>
Date: Sat, 15 Sep 2018 17:40:17 +0000 (-0400)
Subject: Disable info for non-fail status
X-Git-Url: https://git.xandkar.net/?a=commitdiff_plain;h=fca3442cc6f9610169ce279bc1daf7977b840125;p=tiger.ml.git

Disable info for non-fail status
---

diff --git a/compiler/src/lib/tiger/tiger_test.ml b/compiler/src/lib/tiger/tiger_test.ml
index e54f160..c11d4d1 100644
--- a/compiler/src/lib/tiger/tiger_test.ml
+++ b/compiler/src/lib/tiger/tiger_test.ml
@@ -70,6 +70,7 @@ let status indicator info =
   | "" -> indicator
   | _  -> sprintf "%s: %s" indicator info
 
+(* TODO: Perhaps a global option whether to print non-fail info? *)
 let status_pass ?(info="") () =
   status (color Green "Pass") info
 
@@ -168,7 +169,7 @@ let run tests =
         let execution_status =
           (match e with
           | Tiger_error.T e when is_error_expected e ->
-              status_pass () ~info:(Tiger_error.to_string e)
+              status_pass () (*~info:(Tiger_error.to_string e)*)
           | Tiger_error.T e ->
               incr failure_count;
               status_fail () ~info:(Tiger_error.to_string e)
@@ -194,7 +195,7 @@ let run tests =
             Option.map expect_output (fun expected -> expected = produced)
           with
           | None ->
-              status_skip () ~info:"expected output not provided"
+              status_skip () (*~info:"expected output not provided"*)
           | Some true ->
               status_pass ()
           | Some false ->