19 lines
825 B
Erlang
19 lines
825 B
Erlang
-module(certifi_tests).
|
|
|
|
-include_lib("eunit/include/eunit.hrl").
|
|
|
|
-ifdef('OTP_20_AND_ABOVE').
|
|
reproducible_module_test() ->
|
|
%% When compiled with +deterministic, only version is left out.
|
|
?assertMatch([{version,[_|_]}], certifi:module_info(compile)).
|
|
-endif.
|
|
|
|
cacerts_test_() ->
|
|
Certs = [Cert1, Cert2, Cert3 | _] = certifi:cacerts(),
|
|
[?_assertEqual(127, length(Certs))
|
|
,?_assertMatch(<<48,130,2,11,48,130,1,145,160,3,2,1,2,2,18,17,210,187,186,51,_/binary>>, Cert1)
|
|
,?_assertMatch(<<48,130,5,90,48,130,3,66,160,3,2,1,2,2,18,17,210,187,185,215,_/binary>>, Cert2)
|
|
,?_assertMatch(<< 48,130,2,110,48,130,1,243,160,3,2,1,2,2,16,98,246,50,108, _ / binary>>, Cert3)
|
|
,?_assertMatch(<<48,130,3,117,48,130,2,93,160,3,2,1,2,2,11,4,0,0,0,0,1,21,75,90,195,148,48,13,6,_/binary>>, lists:last(Certs))
|
|
].
|