home
/
code
/
tiger.ml.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Replace test status lexicon
[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
bea8611
..
12ddb22
100644
(file)
--- a/
compiler/src/lib/tiger/tiger_test.ml
+++ b/
compiler/src/lib/tiger/tiger_test.ml
@@
-69,14
+69,14
@@
let status indicator info =
| "" -> indicator
| _ -> sprintf "%s: %s" indicator info
| "" -> indicator
| _ -> sprintf "%s: %s" indicator info
-let status_
ok
?(info="") () =
- status (color Green "
OK
") info
+let status_
pass
?(info="") () =
+ status (color Green "
Pass
") info
-let status_
error
?(info="") () =
- status (color Red "
ERROR
") info
+let status_
fail
?(info="") () =
+ status (color Red "
Fail
") info
-let status_
warn
?(info="") () =
- status (color Yellow "
WARN
") info
+let status_
skip
?(info="") () =
+ status (color Yellow "
Skip
") info
let case
?(out_lexing)
let case
?(out_lexing)
@@
-144,13
+144,13
@@
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_
ok
() ~info:(Tiger_error.to_string e)
+ status_
pass
() ~info:(Tiger_error.to_string e)
| Tiger_error.T e ->
incr error_count;
| Tiger_error.T e ->
incr error_count;
- status_
error
() ~info:(Tiger_error.to_string e)
+ status_
fail
() ~info:(Tiger_error.to_string e)
| e ->
incr error_count;
| e ->
incr error_count;
- status_
error
() ~info:(Printexc.to_string e)
+ status_
fail
() ~info:(Printexc.to_string e)
)
in
( execution_status
)
in
( execution_status
@@
-159,23
+159,23
@@
let run tests =
)
| Error info ->
incr error_count;
)
| Error info ->
incr error_count;
- ( status_
error
~info ()
+ ( status_
fail
~info ()
, output_status
, output_value
)
| Ok produced ->
, output_status
, output_value
)
| Ok produced ->
- let execution_status = status_
ok
() in
+ let execution_status = status_
pass
() in
let output_status =
match
Option.map expect_output (fun expected -> expected = produced)
with
| None ->
let output_status =
match
Option.map expect_output (fun expected -> expected = produced)
with
| None ->
- status_
warn
() ~info:"expected output not provided"
+ status_
skip
() ~info:"expected output not provided"
| Some true ->
| Some true ->
- status_
ok
()
+ status_
pass
()
| Some false ->
incr error_count;
| Some false ->
incr error_count;
- status_
error
()
+ status_
fail
()
in
let output_value = Some produced in
(execution_status, output_status, output_value)
in
let output_value = Some produced in
(execution_status, output_status, output_value)
This page took
0.029048 seconds
and
4
git commands to generate.