home
/
code
/
tiger.ml.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Disable info for non-fail status
[tiger.ml.git]
/
compiler
/
src
/
lib
/
tiger
/
tiger_test.ml
diff --git
a/compiler/src/lib/tiger/tiger_test.ml
b/compiler/src/lib/tiger/tiger_test.ml
index
e54f160
..
c11d4d1
100644
(file)
--- 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
| "" -> 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
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 ->
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)
| 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 ->
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 ->
| Some true ->
status_pass ()
| Some false ->
This page took
0.025893 seconds
and
4
git commands to generate.