upstream: github.com/mirage/ca-certs
fix(lint): resolve E330 redundant name and E616 fail+Fmt.str usage
- ca-certs: rename test_one → check_one to avoid E330 redundant prefix
- ocaml-agent: use Alcotest.failf instead of fail (Fmt.str ...) for E616
+5
-3
+5
-3
test/test.ml
+5
-3
test/test.ml
···
49
49
50
50
let r = Alcotest.result ok err
51
51
52
-
let test_one ?time anchors result host chain () =
52
+
let check_one ?time anchors result host chain () =
53
53
let time () = Some (Option.value ~default:now time)
54
54
and name = Domain_name.to_string host
55
55
and host = Some host in
···
981
981
and chain = Result.get_ok (X509.Certificate.decode_pem_multiple data) in
982
982
( name,
983
983
`Quick,
984
-
test_one ?time tas (Ok (Some (chain, List.hd chain))) host chain ))
984
+
check_one ?time tas (Ok (Some (chain, List.hd chain))) host chain ))
985
985
ok_tests
986
986
@ List.map
987
987
(fun (name, result, data, time) ->
988
988
let host = Domain_name.(of_string_exn name |> host_exn)
989
989
and chain = Result.get_ok (X509.Certificate.decode_pem_multiple data) in
990
-
(name, `Quick, test_one ?time tas (Error (result host chain)) host chain))
990
+
( name,
991
+
`Quick,
992
+
check_one ?time tas (Error (result host chain)) host chain ))
991
993
err_tests
992
994
993
995
let ta () =