From 1b3127cb92cd5c90021ad7a90d9b557c390132bb Mon Sep 17 00:00:00 2001 From: Daniel Goertzen Date: Fri, 15 Sep 2017 10:59:01 -0500 Subject: skip ec_pem_encode_generated when underlying crypto not available --- lib/public_key/test/public_key_SUITE.erl | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'lib/public_key') diff --git a/lib/public_key/test/public_key_SUITE.erl b/lib/public_key/test/public_key_SUITE.erl index ce666b5e86..4b1b771613 100644 --- a/lib/public_key/test/public_key_SUITE.erl +++ b/lib/public_key/test/public_key_SUITE.erl @@ -102,6 +102,7 @@ init_per_testcase(TestCase, Config) -> ssh_hostkey_fingerprint_sha384 -> init_fingerprint_testcase([sha384], Config); ssh_hostkey_fingerprint_sha512 -> init_fingerprint_testcase([sha512], Config); ssh_hostkey_fingerprint_list -> init_fingerprint_testcase([sha,md5], Config); + ec_pem_encode_generated -> init_ec_pem_encode_generated(Config); _ -> init_common_per_testcase(Config) end. @@ -242,6 +243,12 @@ ec_pem2(Config) when is_list(Config) -> ECPemNoEndNewLines = strip_superfluous_newlines(public_key:pem_encode([Entry1, Entry2])). +init_ec_pem_encode_generated(Config) -> + case catch true = lists:member('secp384r1', crypto:ec_curves()) of + {'EXIT', _} -> {skip, {'secp384r1', not_supported}}; + _ -> init_common_per_testcase(Config) + end. + ec_pem_encode_generated() -> [{doc, "PEM-encode generated EC key"}]. ec_pem_encode_generated(Config) -> -- cgit v1.2.3