blob: 80ff9fb1eb47ca1f53475003eb8ea5bee9246229 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
--- 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
|