X-Git-Url: https://git.xandkar.net/?p=tiger.ml.git;a=blobdiff_plain;f=compiler%2Fsrc%2Flib%2Ftiger%2Ftiger_test.ml;h=c11d4d1374274e563365d61223ed06c76ab5146b;hp=e54f1600bbdf74f1bf05186b3f64c9e5ad22bad9;hb=fca3442cc6f9610169ce279bc1daf7977b840125;hpb=6a560b4aedc04a0ca1c0a6514c4f66aaddff78b2

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 ->