dev-ml/ppx_assert/files/ppx_assert-0.14.0-4.12.patch


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