X-Git-Url: https://git.xandkar.net/?a=blobdiff_plain;f=compiler%2Fsrc%2Flib%2Ftiger%2Ftiger_test.ml;h=0ee46d2ae5060c3f0bea7f8b372160b918c474c7;hb=f5fc22dd6a095ad3787283f1f18c410444e441cc;hp=e54f1600bbdf74f1bf05186b3f64c9e5ad22bad9;hpb=38ffcb1fc99ecb7a48097cbcf97b9a3062c8bfa0;p=tiger.ml.git

diff --git a/compiler/src/lib/tiger/tiger_test.ml b/compiler/src/lib/tiger/tiger_test.ml
index e54f160..0ee46d2 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
 
@@ -77,7 +78,9 @@ let status_fail ?(info="") () =
   status (color Red "Fail") info
 
 let status_skip ?(info="") () =
-  status (color Yellow "Skip") info
+  (*let indicator = (color Yellow "Skip") in*)
+  let indicator = "Skip" in
+  status indicator info
 
 let case
     ?(out_lexing=None)
@@ -168,7 +171,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 +197,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 ->