diff options
author | Sverker Eriksson <sverker@erlang.org> | 2020-05-26 17:03:27 +0200 |
---|---|---|
committer | Sverker Eriksson <sverker@erlang.org> | 2020-05-26 17:03:27 +0200 |
commit | 0f7b1d45d75050a3b8b165f0b8229d33191d0e8f (patch) | |
tree | dcdb4e2deb21f6a415760e88a98c5460995043d2 /lib/public_key/test/public_key_SUITE.erl | |
parent | 187a47930b2c6c19dc23e9d0322c3135200f4ee3 (diff) | |
parent | 3a0857030005631c0577973f9118abeea63cede8 (diff) | |
download | erlang-0f7b1d45d75050a3b8b165f0b8229d33191d0e8f.tar.gz |
Merge branch 'maint'
Diffstat (limited to 'lib/public_key/test/public_key_SUITE.erl')
-rw-r--r-- | lib/public_key/test/public_key_SUITE.erl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/lib/public_key/test/public_key_SUITE.erl b/lib/public_key/test/public_key_SUITE.erl index f183e92eaf..3b2f1b7184 100644 --- a/lib/public_key/test/public_key_SUITE.erl +++ b/lib/public_key/test/public_key_SUITE.erl @@ -631,6 +631,19 @@ pkix_path_validation(Config) when is_list(Config) -> {ok, _} = public_key:pkix_path_validation(unknown_ca, [Cert1], [{verify_fun, VerifyFunAndState1}]), + + VerifyFunAndState2 = + {fun(_, {bad_cert, selfsigned_peer}, _UserState) -> + {fail, custom_reason}; + (_,{extension, _}, UserState) -> + {unknown, UserState}; + (_, valid, UserState) -> + {valid, UserState} + end, []}, + + {error, custom_reason} = + public_key:pkix_path_validation(selfsigned_peer, [Trusted], [{verify_fun, + VerifyFunAndState2}]), ok. %%-------------------------------------------------------------------- |