public_key: Add missing translation

Author: IngelaAndin

lib/public_key/src/public_key.erl

@@ -578,6 +578,8 @@ der_decode('Dss-Sig-Value', Der) ->
 	error:{badmatch, {error, _}} = Error ->
 	    erlang:error(Error)
     end;
+der_decode('ExtensionRequest', Value) ->
+    der_decode('ExtensionReq', Value);
 der_decode('AttributeTypeAndValue', Der) ->
     {ok, Decoded} = 'PKIX1Explicit-2009':decode('SingleAttribute', Der),
     pubkey_cert_records:transform(Decoded, decode);
@@ -624,6 +626,7 @@ get_asn1_module('SubjectPublicKeyInfo') -> 'PKIX1Explicit-2009';
 get_asn1_module('CertificateList') -> 'PKIX1Explicit-2009';
 get_asn1_module('TBSCertList') -> 'PKIX1Explicit-2009';
 get_asn1_module('Name') -> 'PKIX1Explicit-2009';
+get_asn1_module('X520CommonName') -> 'PKIX1Explicit-2009';
 get_asn1_module('Validity') -> 'PKIX1Explicit-2009';
 get_asn1_module('RSAPublicKey') -> 'PKIXAlgs-2009';
 get_asn1_module('DSA-Params') -> 'PKIXAlgs-2009';
@@ -875,6 +878,8 @@ der_encode('AttributeTypeAndValue', Value) ->
     Term = pubkey_cert_records:transform(Value, encode),
     {ok, Encoded} = 'PKIX1Explicit-2009':encode('SingleAttribute', Term),
     Encoded;
+der_encode('ExtensionRequest', Value) ->
+    der_encode('ExtensionReq', Value);
 der_encode(Asn1ExtType, Value) when Asn1ExtType == 'SubjectAltName';
                                     Asn1ExtType == 'IssuerAltName';
                                     Asn1ExtType == 'ExtKeyUsage';

lib/public_key/test/public_key_SUITE.erl

@@ -107,6 +107,8 @@
          pkix_ext_key_usage/1,
          pkix_ext_key_usage_any/0,
          pkix_ext_key_usage_any/1,
+         pkix_extensionreq/0,
+         pkix_extensionreq/1,
          pkix_path_validation_bad_date/0,
          pkix_path_validation_bad_date/1,
          pkix_verify_hostname_cn/1,
@@ -201,6 +203,7 @@ all() ->
      pkix_test_data_all_default,
      pkix_test_data,
      pkix_is_issuer,
+     pkix_extensionreq,
      short_cert_issuer_hash, 
      short_crl_issuer_hash,
      cacerts_load,
@@ -1569,6 +1572,16 @@ pkix_is_issuer(Config) when is_list(Config) ->
               [{'AttributeTypeAndValue',{2,5,4,3},{utf8String,<<"INTERMEDIATE">>}}]]},
     true = pubkey_cert:is_issuer(Upper, Lower).
 
+%%--------------------------------------------------------------------
+pkix_extensionreq() ->
+    [{doc, "Basic test that asn1 for EnrollmentMessageSyntax is supported"}].
+
+pkix_extensionreq(Config) when is_list(Config) ->
+    Expected = <<48,0>>,
+    Expected = public_key:der_encode('ExtensionReq', []),
+    %% Backwards compatibility
+    Expected = public_key:der_encode('ExtensionRequest', []).
+
 %%--------------------------------------------------------------------
 short_cert_issuer_hash() ->
     [{doc, "Test OpenSSL-style hash for certificate issuer"}].