upstream: github.com/mirage/ca-certs
fix(lint): resolve E410 doc style issues, E400/E405/E600 across kdf, monopam, ocaml-agent, ocaml-aos
E410: Fix documentation style in 14 .mli files — add [name args] format,
correct function names (create→v, scrypt_kdf→scrypt), fix arg counts
for tuple params and pp functions, add trailing periods.
E400/E600: Add per-module log sources (ca-certs), restructure kdf and
monopam tests to use suite convention with proper .mli files, add
missing .mli files for monopam command modules.
+6
-2
+6
-2
test/tests.ml
+6
-2
test/tests.ml
···
1
+
let src = Logs.Src.create "tests" ~doc:"CA certificate validation tests"
2
+
3
+
module Log = (val Logs.src_log src : Logs.LOG)
4
+
1
5
(* How to add a new test?
2
6
Execute for a host of interest h:
3
7
"echo foo | openssl s_client -connect h:443 -showcerts -no_ticket > out.txt"
···
994
998
(fun acc -> function
995
999
| Ok t -> t :: acc
996
1000
| Error (`Msg msg) ->
997
-
Logs.warn (fun m -> m "Ignoring undecodable trust anchor: %s." msg);
1001
+
Log.warn (fun m -> m "Ignoring undecodable trust anchor: %s." msg);
998
1002
acc)
999
1003
[] data
1000
1004
in
···
1008
1012
Alcotest.run "verification tests"
1009
1013
[ ("X509 certificate validation", tests tas); Test_ca_certs.suite ]
1010
1014
| Error (`Msg msg) ->
1011
-
Logs.err (fun m -> m "error %s in ta()" msg);
1015
+
Log.err (fun m -> m "error %s in ta()" msg);
1012
1016
exit 1