You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
31 lines
1.2 KiB
31 lines
1.2 KiB
--- a/runtime-lib/runtime.ml 2021-09-30 19:07:51.592766183 +0200
|
|
+++ b/runtime-lib/runtime.ml 2021-09-30 19:11:18.035634157 +0200
|
|
@@ -71,7 +71,7 @@
|
|
end;
|
|
`Fail (expect, got)
|
|
|
|
-let test_result_or_eq ~sexpifier ~comparator ?equal ~expect ~got =
|
|
+let test_result_or_eq ~sexpifier ~comparator ~equal ~expect ~got =
|
|
let pass =
|
|
match equal with
|
|
| None -> comparator got expect = 0
|
|
@@ -89,7 +89,7 @@
|
|
]
|
|
|
|
let test_eq ~pos ~sexpifier ~comparator ~here ?message ?equal t1 t2 =
|
|
- match test_result_or_eq ~sexpifier ~comparator ?equal ~expect:t1 ~got:t2 with
|
|
+ match test_result_or_eq ~sexpifier ~comparator ~equal ~expect:t1 ~got:t2 with
|
|
| `Pass -> ()
|
|
| `Fail (t1, t2) -> test_eq_failed ~message ~pos ~here ~t1 ~t2
|
|
|
|
@@ -99,7 +99,7 @@
|
|
Sexp.List [Sexp.Atom "got"; got];
|
|
]
|
|
|
|
-let test_result ~pos ~sexpifier ~comparator ~here ?message ?equal ~expect ~got =
|
|
- match test_result_or_eq ~sexpifier ~comparator ?equal ~expect ~got with
|
|
+let[@warning "-16"] test_result ~pos ~sexpifier ~comparator ~here ?message ?equal ~expect ~got =
|
|
+ match test_result_or_eq ~sexpifier ~comparator ~equal ~expect ~got with
|
|
| `Pass -> ()
|
|
| `Fail (expect, got) -> test_result_failed ~message ~pos ~here ~expect ~got
|