upstream: github.com/mirleft/ocaml-x509
fix: x509 test modules export suite tuples, add x509_eio mli
Change all 19 x509 test modules from exporting tests (bare list)
to suite (string * test_case list tuple) per merlint E600.
Add test_x509_eio.mli.
+228
-209
+10
-9
tests/test_algorithm.ml
+10
-9
tests/test_algorithm.ml
···
67
67
Alcotest.(check bool) "scheme pp non-empty" true (String.length str > 0))
68
68
schemes
69
69
70
-
let tests =
71
-
[
72
-
("key type roundtrip", `Quick, test_key_type_roundtrip);
73
-
("key type invalid", `Quick, test_key_type_invalid);
74
-
("key type pp", `Quick, test_key_type_pp);
75
-
("key type strings", `Quick, test_key_type_strings);
76
-
("supports signature scheme", `Quick, test_supports_signature_scheme);
77
-
("pp signature scheme", `Quick, test_pp_signature_scheme);
78
-
]
70
+
let suite =
71
+
( "algorithm",
72
+
[
73
+
("key type roundtrip", `Quick, test_key_type_roundtrip);
74
+
("key type invalid", `Quick, test_key_type_invalid);
75
+
("key type pp", `Quick, test_key_type_pp);
76
+
("key type strings", `Quick, test_key_type_strings);
77
+
("supports signature scheme", `Quick, test_supports_signature_scheme);
78
+
("pp signature scheme", `Quick, test_pp_signature_scheme);
79
+
] )
+1
-1
tests/test_algorithm.mli
+1
-1
tests/test_algorithm.mli
+7
-6
tests/test_asn_grammars.ml
+7
-6
tests/test_asn_grammars.ml
···
50
50
"public key starts with SEQUENCE" 0x30
51
51
(Char.code (String.get der 0))
52
52
53
-
let tests =
54
-
[
55
-
("DN DER encoding", `Quick, test_der_encoding);
56
-
("certificate ASN.1 structure", `Quick, test_certificate_asn1);
57
-
("public key ASN.1 structure", `Quick, test_public_key_asn1);
58
-
]
53
+
let suite =
54
+
( "asn_grammars",
55
+
[
56
+
("DN DER encoding", `Quick, test_der_encoding);
57
+
("certificate ASN.1 structure", `Quick, test_certificate_asn1);
58
+
("public key ASN.1 structure", `Quick, test_public_key_asn1);
59
+
] )
+1
-1
tests/test_asn_grammars.mli
+1
-1
tests/test_asn_grammars.mli
+9
-8
tests/test_authenticator.ml
+9
-8
tests/test_authenticator.ml
···
41
41
let _auth = Authenticator.cert_fingerprint ~time ~hash:`SHA256 ~fingerprint in
42
42
()
43
43
44
-
let tests =
45
-
[
46
-
("chain_of_trust empty", `Quick, test_chain_of_trust_empty);
47
-
("of_string none", `Quick, test_of_string_none);
48
-
("of_string invalid", `Quick, test_of_string_invalid);
49
-
("key_fingerprint", `Quick, test_key_fingerprint);
50
-
("cert_fingerprint", `Quick, test_cert_fingerprint);
51
-
]
44
+
let suite =
45
+
( "authenticator",
46
+
[
47
+
("chain_of_trust empty", `Quick, test_chain_of_trust_empty);
48
+
("of_string none", `Quick, test_of_string_none);
49
+
("of_string invalid", `Quick, test_of_string_invalid);
50
+
("key_fingerprint", `Quick, test_key_fingerprint);
51
+
("cert_fingerprint", `Quick, test_cert_fingerprint);
52
+
] )
+1
-1
tests/test_authenticator.mli
+1
-1
tests/test_authenticator.mli
+16
-15
tests/test_certificate.ml
+16
-15
tests/test_certificate.ml
···
119
119
Alcotest.(check bool) "hash matches" true (hash2 = hash)
120
120
| Error (`Msg m) -> Alcotest.failf "digest info decode failed: %s" m
121
121
122
-
let tests =
123
-
[
124
-
("certificate subject", `Quick, test_subject);
125
-
("certificate issuer", `Quick, test_issuer);
126
-
("certificate validity", `Quick, test_validity);
127
-
("certificate serial", `Quick, test_serial);
128
-
("certificate public key", `Quick, test_public_key);
129
-
("certificate extensions", `Quick, test_extensions);
130
-
("certificate pp", `Quick, test_pp);
131
-
("certificate supports_keytype", `Quick, test_supports_keytype);
132
-
("certificate DER roundtrip", `Quick, test_der_roundtrip);
133
-
("certificate fingerprint", `Quick, test_fingerprint);
134
-
("certificate signature_algorithm", `Quick, test_signature_algorithm);
135
-
("PKCS1 digest info roundtrip", `Quick, test_pkcs1_digest_info);
136
-
]
122
+
let suite =
123
+
( "certificate",
124
+
[
125
+
("certificate subject", `Quick, test_subject);
126
+
("certificate issuer", `Quick, test_issuer);
127
+
("certificate validity", `Quick, test_validity);
128
+
("certificate serial", `Quick, test_serial);
129
+
("certificate public key", `Quick, test_public_key);
130
+
("certificate extensions", `Quick, test_extensions);
131
+
("certificate pp", `Quick, test_pp);
132
+
("certificate supports_keytype", `Quick, test_supports_keytype);
133
+
("certificate DER roundtrip", `Quick, test_der_roundtrip);
134
+
("certificate fingerprint", `Quick, test_fingerprint);
135
+
("certificate signature_algorithm", `Quick, test_signature_algorithm);
136
+
("PKCS1 digest info roundtrip", `Quick, test_pkcs1_digest_info);
137
+
] )
+1
-1
tests/test_certificate.mli
+1
-1
tests/test_certificate.mli
+10
-9
tests/test_crl.ml
+10
-9
tests/test_crl.ml
···
84
84
let s = Fmt.to_to_string CRL.pp_verification_error (`Msg "test") in
85
85
Alcotest.(check bool) "pp non-empty" true (String.length s > 0)
86
86
87
-
let tests =
88
-
[
89
-
("create empty CRL", `Quick, test_create_empty_crl);
90
-
("CRL timestamps", `Quick, test_crl_timestamps);
91
-
("CRL DER roundtrip", `Quick, test_der_roundtrip);
92
-
("CRL with revoked cert", `Quick, test_revoked_cert);
93
-
("CRL signature algorithm", `Quick, test_signature_algorithm);
94
-
("CRL pp_verification_error", `Quick, test_pp_verification_error);
95
-
]
87
+
let suite =
88
+
( "crl",
89
+
[
90
+
("create empty CRL", `Quick, test_create_empty_crl);
91
+
("CRL timestamps", `Quick, test_crl_timestamps);
92
+
("CRL DER roundtrip", `Quick, test_der_roundtrip);
93
+
("CRL with revoked cert", `Quick, test_revoked_cert);
94
+
("CRL signature algorithm", `Quick, test_signature_algorithm);
95
+
("CRL pp_verification_error", `Quick, test_pp_verification_error);
96
+
] )
+1
-1
tests/test_crl.mli
+1
-1
tests/test_crl.mli
+12
-11
tests/test_distinguished_name.ml
+12
-11
tests/test_distinguished_name.ml
···
114
114
in
115
115
Alcotest.(check int) "18 attribute types" 18 (List.length attrs)
116
116
117
-
let tests =
118
-
[
119
-
("DN construction", `Quick, test_dn_construction);
120
-
("DN common_name present", `Quick, test_common_name);
121
-
("DN common_name absent", `Quick, test_common_name_absent);
122
-
("DN equality", `Quick, test_dn_equal);
123
-
("DN pp", `Quick, test_dn_pp);
124
-
("DN make_pp formats", `Quick, test_make_pp_formats);
125
-
("DN DER roundtrip", `Quick, test_dn_der_roundtrip);
126
-
("DN attribute types", `Quick, test_attribute_types);
127
-
]
117
+
let suite =
118
+
( "distinguished_name",
119
+
[
120
+
("DN construction", `Quick, test_dn_construction);
121
+
("DN common_name present", `Quick, test_common_name);
122
+
("DN common_name absent", `Quick, test_common_name_absent);
123
+
("DN equality", `Quick, test_dn_equal);
124
+
("DN pp", `Quick, test_dn_pp);
125
+
("DN make_pp formats", `Quick, test_make_pp_formats);
126
+
("DN DER roundtrip", `Quick, test_dn_der_roundtrip);
127
+
("DN attribute types", `Quick, test_attribute_types);
128
+
] )
+1
-1
tests/test_distinguished_name.mli
+1
-1
tests/test_distinguished_name.mli
+12
-11
tests/test_extension.ml
+12
-11
tests/test_extension.ml
···
76
76
Alcotest.(check (list string)) "DNS names" [ "example.com" ] dns
77
77
| None -> Alcotest.fail "expected Subject_alt_name"
78
78
79
-
let tests =
80
-
[
81
-
("empty extensions", `Quick, test_empty_extensions);
82
-
("basic constraints", `Quick, test_singleton_basic_constraints);
83
-
("key usage", `Quick, test_key_usage);
84
-
("ext key usage", `Quick, test_ext_key_usage);
85
-
("add extension", `Quick, test_add_extension);
86
-
("critical accessor", `Quick, test_critical);
87
-
("extension pp", `Quick, test_pp);
88
-
("subject alt name", `Quick, test_subject_alt_name);
89
-
]
79
+
let suite =
80
+
( "extension",
81
+
[
82
+
("empty extensions", `Quick, test_empty_extensions);
83
+
("basic constraints", `Quick, test_singleton_basic_constraints);
84
+
("key usage", `Quick, test_key_usage);
85
+
("ext key usage", `Quick, test_ext_key_usage);
86
+
("add extension", `Quick, test_add_extension);
87
+
("critical accessor", `Quick, test_critical);
88
+
("extension pp", `Quick, test_pp);
89
+
("subject alt name", `Quick, test_subject_alt_name);
90
+
] )
+1
-1
tests/test_extension.mli
+1
-1
tests/test_extension.mli
+12
-11
tests/test_general_name.ml
+12
-11
tests/test_general_name.ml
···
57
57
let s = Fmt.to_to_string General_name.pp gn in
58
58
Alcotest.(check bool) "pp non-empty" true (String.length s > 0)
59
59
60
-
let tests =
61
-
[
62
-
("empty general name", `Quick, test_empty);
63
-
("DNS general name", `Quick, test_dns);
64
-
("RFC 822 (email)", `Quick, test_rfc822);
65
-
("URI general name", `Quick, test_uri);
66
-
("IP general name", `Quick, test_ip);
67
-
("directory general name", `Quick, test_directory);
68
-
("cardinal", `Quick, test_cardinal);
69
-
("general name pp", `Quick, test_pp);
70
-
]
60
+
let suite =
61
+
( "general_name",
62
+
[
63
+
("empty general name", `Quick, test_empty);
64
+
("DNS general name", `Quick, test_dns);
65
+
("RFC 822 (email)", `Quick, test_rfc822);
66
+
("URI general name", `Quick, test_uri);
67
+
("IP general name", `Quick, test_ip);
68
+
("directory general name", `Quick, test_directory);
69
+
("cardinal", `Quick, test_cardinal);
70
+
("general name pp", `Quick, test_pp);
71
+
] )
+1
-1
tests/test_general_name.mli
+1
-1
tests/test_general_name.mli
+10
-9
tests/test_host.ml
+10
-9
tests/test_host.ml
···
47
47
Alcotest.(check int)
48
48
"strict and wildcard are distinct" 2 (Host.Set.cardinal set)
49
49
50
-
let tests =
51
-
[
52
-
("host pp", `Quick, test_host_pp);
53
-
("host set empty", `Quick, test_host_set_empty);
54
-
("host set add/mem", `Quick, test_host_set_add_mem);
55
-
("host set multiple", `Quick, test_host_set_multiple);
56
-
("host set pp", `Quick, test_host_set_pp);
57
-
("host set wildcard vs strict", `Quick, test_host_set_wildcard_strict);
58
-
]
50
+
let suite =
51
+
( "host",
52
+
[
53
+
("host pp", `Quick, test_host_pp);
54
+
("host set empty", `Quick, test_host_set_empty);
55
+
("host set add/mem", `Quick, test_host_set_add_mem);
56
+
("host set multiple", `Quick, test_host_set_multiple);
57
+
("host set pp", `Quick, test_host_set_pp);
58
+
("host set wildcard vs strict", `Quick, test_host_set_wildcard_strict);
59
+
] )
+1
-1
tests/test_host.mli
+1
-1
tests/test_host.mli
+7
-6
tests/test_key_type.ml
+7
-6
tests/test_key_type.ml
···
29
29
(Key_type.to_string (Private_key.key_type key))
30
30
(Key_type.to_string (Public_key.key_type pub))
31
31
32
-
let tests =
33
-
[
34
-
("distinct strings", `Quick, test_distinct_strings);
35
-
("generate key types", `Quick, test_generate_key_types);
36
-
("public key type matches", `Quick, test_public_key_type);
37
-
]
32
+
let suite =
33
+
( "key_type",
34
+
[
35
+
("distinct strings", `Quick, test_distinct_strings);
36
+
("generate key types", `Quick, test_generate_key_types);
37
+
("public key type matches", `Quick, test_public_key_type);
38
+
] )
+1
-1
tests/test_key_type.mli
+1
-1
tests/test_key_type.mli
+13
-12
tests/test_ocsp.ml
+13
-12
tests/test_ocsp.ml
···
118
118
let status = OCSP.Response.single_response_status sr in
119
119
Alcotest.(check bool) "status is Good" true (status = `Good)
120
120
121
-
let tests =
122
-
[
123
-
("cert_id creation", `Quick, test_cert_id);
124
-
("cert_id with hash", `Quick, test_cert_id_hash);
125
-
("pp_cert_id", `Quick, test_pp_cert_id);
126
-
("request creation", `Quick, test_request_create);
127
-
("request DER roundtrip", `Quick, test_request_der_roundtrip);
128
-
("response error", `Quick, test_response_error);
129
-
("pp_status", `Quick, test_pp_status);
130
-
("pp_cert_status", `Quick, test_pp_cert_status);
131
-
("single_response", `Quick, test_single_response);
132
-
]
121
+
let suite =
122
+
( "ocsp",
123
+
[
124
+
("cert_id creation", `Quick, test_cert_id);
125
+
("cert_id with hash", `Quick, test_cert_id_hash);
126
+
("pp_cert_id", `Quick, test_pp_cert_id);
127
+
("request creation", `Quick, test_request_create);
128
+
("request DER roundtrip", `Quick, test_request_der_roundtrip);
129
+
("response error", `Quick, test_response_error);
130
+
("pp_status", `Quick, test_pp_status);
131
+
("pp_cert_status", `Quick, test_pp_cert_status);
132
+
("single_response", `Quick, test_single_response);
133
+
] )
+1
-1
tests/test_ocsp.mli
+1
-1
tests/test_ocsp.mli
+9
-8
tests/test_p12.ml
+9
-8
tests/test_p12.ml
···
73
73
| Ok _ -> ()
74
74
| Error (`Msg m) -> Alcotest.failf "verify with AES256 failed: %s" m
75
75
76
-
let tests =
77
-
[
78
-
("PKCS12 create/verify", `Quick, test_create_verify);
79
-
("PKCS12 DER roundtrip", `Quick, test_der_roundtrip);
80
-
("PKCS12 wrong password", `Quick, test_wrong_password);
81
-
("PKCS12 custom MAC", `Quick, test_custom_mac);
82
-
("PKCS12 custom algorithm", `Quick, test_custom_algorithm);
83
-
]
76
+
let suite =
77
+
( "p12",
78
+
[
79
+
("PKCS12 create/verify", `Quick, test_create_verify);
80
+
("PKCS12 DER roundtrip", `Quick, test_der_roundtrip);
81
+
("PKCS12 wrong password", `Quick, test_wrong_password);
82
+
("PKCS12 custom MAC", `Quick, test_custom_mac);
83
+
("PKCS12 custom algorithm", `Quick, test_custom_algorithm);
84
+
] )
+1
-1
tests/test_p12.mli
+1
-1
tests/test_p12.mli
+10
-9
tests/test_pem.ml
+10
-9
tests/test_pem.ml
···
97
97
Alcotest.(check int) "two certs decoded" 2 (List.length certs)
98
98
| Error (`Msg m) -> Alcotest.failf "multi decode failed: %s" m))
99
99
100
-
let tests =
101
-
[
102
-
("PEM certificate roundtrip", `Quick, test_certificate_pem_roundtrip);
103
-
("PEM public key roundtrip", `Quick, test_public_key_pem_roundtrip);
104
-
("PEM private key roundtrip", `Quick, test_private_key_pem_roundtrip);
105
-
("PEM invalid input", `Quick, test_invalid_pem);
106
-
("PEM empty input", `Quick, test_empty_pem);
107
-
("PEM multiple certificates", `Quick, test_pem_multiple);
108
-
]
100
+
let suite =
101
+
( "pem",
102
+
[
103
+
("PEM certificate roundtrip", `Quick, test_certificate_pem_roundtrip);
104
+
("PEM public key roundtrip", `Quick, test_public_key_pem_roundtrip);
105
+
("PEM private key roundtrip", `Quick, test_private_key_pem_roundtrip);
106
+
("PEM invalid input", `Quick, test_invalid_pem);
107
+
("PEM empty input", `Quick, test_empty_pem);
108
+
("PEM multiple certificates", `Quick, test_pem_multiple);
109
+
] )
+1
-1
tests/test_pem.mli
+1
-1
tests/test_pem.mli
+12
-11
tests/test_private_key.ml
+12
-11
tests/test_private_key.ml
···
67
67
| Error (`Msg m) -> Alcotest.failf "verify failed: %s" m)
68
68
| Error (`Msg m) -> Alcotest.failf "sign failed: %s" m
69
69
70
-
let tests =
71
-
[
72
-
("generate RSA", `Quick, test_generate_rsa);
73
-
("generate ED25519", `Quick, test_generate_ed25519);
74
-
("generate P256", `Quick, test_generate_p256);
75
-
("public key from private", `Quick, test_public);
76
-
("DER roundtrip", `Quick, test_der_roundtrip);
77
-
("PEM roundtrip", `Quick, test_pem_roundtrip);
78
-
("seeded generation", `Quick, test_seeded_generation);
79
-
("sign and verify", `Quick, test_sign_verify);
80
-
]
70
+
let suite =
71
+
( "private_key",
72
+
[
73
+
("generate RSA", `Quick, test_generate_rsa);
74
+
("generate ED25519", `Quick, test_generate_ed25519);
75
+
("generate P256", `Quick, test_generate_p256);
76
+
("public key from private", `Quick, test_public);
77
+
("DER roundtrip", `Quick, test_der_roundtrip);
78
+
("PEM roundtrip", `Quick, test_pem_roundtrip);
79
+
("seeded generation", `Quick, test_seeded_generation);
80
+
("sign and verify", `Quick, test_sign_verify);
81
+
] )
+1
-1
tests/test_private_key.mli
+1
-1
tests/test_private_key.mli
+10
-9
tests/test_public_key.ml
+10
-9
tests/test_public_key.ml
···
55
55
"key type matches" (Key_type.to_string `P256)
56
56
(Key_type.to_string (Public_key.key_type pub))
57
57
58
-
let tests =
59
-
[
60
-
("public key pp", `Quick, test_pp);
61
-
("public key id (SHA1)", `Quick, test_id);
62
-
("public key fingerprint", `Quick, test_fingerprint);
63
-
("public key DER roundtrip", `Quick, test_der_roundtrip);
64
-
("public key PEM roundtrip", `Quick, test_pem_roundtrip);
65
-
("public key type", `Quick, test_key_type);
66
-
]
58
+
let suite =
59
+
( "public_key",
60
+
[
61
+
("public key pp", `Quick, test_pp);
62
+
("public key id (SHA1)", `Quick, test_id);
63
+
("public key fingerprint", `Quick, test_fingerprint);
64
+
("public key DER roundtrip", `Quick, test_der_roundtrip);
65
+
("public key PEM roundtrip", `Quick, test_pem_roundtrip);
66
+
("public key type", `Quick, test_key_type);
67
+
] )
+1
-1
tests/test_public_key.mli
+1
-1
tests/test_public_key.mli
+2
-1
tests/test_rc2.ml
+2
-1
tests/test_rc2.ml
+1
-1
tests/test_rc2.mli
+1
-1
tests/test_rc2.mli
+7
-6
tests/test_registry.ml
+7
-6
tests/test_registry.ml
···
61
61
(Distinguished_name.equal dn dn2)
62
62
| Error (`Msg m) -> Alcotest.failf "DN decode failed: %s" m
63
63
64
-
let tests =
65
-
[
66
-
("key type OID mapping", `Quick, test_key_type_oid_mapping);
67
-
("extension OID handling", `Quick, test_extension_oid_handling);
68
-
("DN OID handling", `Quick, test_dn_oid_handling);
69
-
]
64
+
let suite =
65
+
( "registry",
66
+
[
67
+
("key type OID mapping", `Quick, test_key_type_oid_mapping);
68
+
("extension OID handling", `Quick, test_extension_oid_handling);
69
+
("DN OID handling", `Quick, test_dn_oid_handling);
70
+
] )
+1
-1
tests/test_registry.mli
+1
-1
tests/test_registry.mli
+11
-10
tests/test_signing_request.ml
+11
-10
tests/test_signing_request.ml
···
85
85
| Ok _ -> ()
86
86
| Error _ -> Alcotest.fail "CSR signing failed")
87
87
88
-
let tests =
89
-
[
90
-
("CSR creation", `Quick, test_create);
91
-
("CSR info", `Quick, test_info);
92
-
("CSR hostnames", `Quick, test_hostnames);
93
-
("CSR DER roundtrip", `Quick, test_der_roundtrip);
94
-
("CSR PEM roundtrip", `Quick, test_pem_roundtrip);
95
-
("CSR signature algorithm", `Quick, test_signature_algorithm);
96
-
("CSR sign", `Quick, test_sign);
97
-
]
88
+
let suite =
89
+
( "signing_request",
90
+
[
91
+
("CSR creation", `Quick, test_create);
92
+
("CSR info", `Quick, test_info);
93
+
("CSR hostnames", `Quick, test_hostnames);
94
+
("CSR DER roundtrip", `Quick, test_der_roundtrip);
95
+
("CSR PEM roundtrip", `Quick, test_pem_roundtrip);
96
+
("CSR signature algorithm", `Quick, test_signature_algorithm);
97
+
("CSR sign", `Quick, test_sign);
98
+
] )
+1
-1
tests/test_signing_request.mli
+1
-1
tests/test_signing_request.mli
+11
-10
tests/test_validation.ml
+11
-10
tests/test_validation.ml
···
54
54
| Error _ -> ()
55
55
| Ok _ -> Alcotest.fail "expected error for empty chain"
56
56
57
-
let tests =
58
-
[
59
-
("pp_signature_error", `Quick, test_pp_signature_error);
60
-
("pp_ca_error", `Quick, test_pp_ca_error);
61
-
("pp_chain_error", `Quick, test_pp_chain_error);
62
-
("pp_validation_error", `Quick, test_pp_validation_error);
63
-
("build_paths empty", `Quick, test_build_paths_empty);
64
-
("valid_cas empty", `Quick, test_valid_cas_empty);
65
-
("empty chain", `Quick, test_empty_chain);
66
-
]
57
+
let suite =
58
+
( "validation",
59
+
[
60
+
("pp_signature_error", `Quick, test_pp_signature_error);
61
+
("pp_ca_error", `Quick, test_pp_ca_error);
62
+
("pp_chain_error", `Quick, test_pp_chain_error);
63
+
("pp_validation_error", `Quick, test_pp_validation_error);
64
+
("build_paths empty", `Quick, test_build_paths_empty);
65
+
("valid_cas empty", `Quick, test_valid_cas_empty);
66
+
("empty chain", `Quick, test_empty_chain);
67
+
] )
+1
-1
tests/test_validation.mli
+1
-1
tests/test_validation.mli
+19
-19
tests/tests.ml
+19
-19
tests/tests.ml
···
8
8
("PKCS12", Pkcs12.tests);
9
9
("OCSP", Ocsp.tests);
10
10
("Private Key", Priv.tests);
11
-
("PEM encoding", Test_pem.tests);
12
-
("Distinguished name", Test_distinguished_name.tests);
13
-
("Host module", Test_host.tests);
14
-
("Algorithm mapping", Test_algorithm.tests);
15
-
("Certificate module", Test_certificate.tests);
16
-
("Validation module", Test_validation.tests);
17
-
("Extension module", Test_extension.tests);
18
-
("General name", Test_general_name.tests);
19
-
("Key type", Test_key_type.tests);
20
-
("Public key module", Test_public_key.tests);
21
-
("Private key module", Test_private_key.tests);
22
-
("Signing request", Test_signing_request.tests);
23
-
("CRL module", Test_crl.tests);
24
-
("Authenticator module", Test_authenticator.tests);
25
-
("ASN.1 grammars", Test_asn_grammars.tests);
26
-
("OCSP module", Test_ocsp.tests);
27
-
("PKCS12 module", Test_p12.tests);
28
-
("RC2 cipher", Test_rc2.tests);
29
-
("OID registry", Test_registry.tests);
11
+
Test_pem.suite;
12
+
Test_distinguished_name.suite;
13
+
Test_host.suite;
14
+
Test_algorithm.suite;
15
+
Test_certificate.suite;
16
+
Test_validation.suite;
17
+
Test_extension.suite;
18
+
Test_general_name.suite;
19
+
Test_key_type.suite;
20
+
Test_public_key.suite;
21
+
Test_private_key.suite;
22
+
Test_signing_request.suite;
23
+
Test_crl.suite;
24
+
Test_authenticator.suite;
25
+
Test_asn_grammars.suite;
26
+
Test_ocsp.suite;
27
+
Test_p12.suite;
28
+
Test_rc2.suite;
29
+
Test_registry.suite;
30
30
]
31
31
32
32
let () =