Commit d6fe4650 authored by garciay's avatar garciay
Browse files

Add codec tests for Pki

parent c445eea1
Loading
Loading
Loading
Loading
+27 −6
Original line number Original line Diff line number Diff line
@@ -11,6 +11,16 @@
 */
 */
module LibItsPki_Templates {
module LibItsPki_Templates {
    
    
    // LibCommon
    import from LibCommon_BasicTypesAndValues all;
    import from LibCommon_DataStrings all;
    
    // LibItsCommon
    import from LibItsCommon_TypesAndValues all;
    import from LibItsCommon_Functions all;
    import from LibItsCommon_TypesAndValues all;
    import from LibItsCommon_ASN1_NamedNumbers all;
    
    // LibIts
    // LibIts
    import from IEEE1609dot2BaseTypes language "ASN.1:1997" all;
    import from IEEE1609dot2BaseTypes language "ASN.1:1997" all;
    import from IEEE1609dot2 language "ASN.1:1997" all;
    import from IEEE1609dot2 language "ASN.1:1997" all;
@@ -19,12 +29,6 @@ module LibItsPki_Templates {
    import from EtsiTs102941MessagesItss language "ASN.1:1997" all;
    import from EtsiTs102941MessagesItss language "ASN.1:1997" all;
    import from EtsiTs103097Module language "ASN.1:1997" all;
    import from EtsiTs103097Module language "ASN.1:1997" all;
    
    
    // LibItsCommon
    import from LibItsCommon_TypesAndValues all;
    import from LibItsCommon_Functions all;
    import from LibItsCommon_TypesAndValues all;
    import from LibItsCommon_ASN1_NamedNumbers all;
    
    // LibItsSecurity
    // LibItsSecurity
    import from LibItsSecurity_Templates all;
    import from LibItsSecurity_Templates all;
    
    
@@ -91,6 +95,23 @@ module LibItsPki_Templates {
      certIssuePermissions := omit
      certIssuePermissions := omit
    } // End of template m_certificateSubjectAttributes
    } // End of template m_certificateSubjectAttributes


    template (value) InnerEcResponse m_innerEcResponse_ok(
                                                          in template (value) Oct16 p_requestHash,
                                                          in template (value) EtsiTs103097Certificate p_certificate
    ) := {
      requestHash  := p_requestHash,
      responseCode := ok,
      certificate  := p_certificate
    } // End of template m_innerEcResponse
    
    template (value) InnerEcResponse m_innerEcResponse_ko(
                                                          in template (value) Oct16 p_requestHash,
                                                          in template (value) EnrolmentResponseCode p_responseCode
    ) := {
      requestHash  := p_requestHash,
      responseCode := p_responseCode,
      certificate  := omit
    } // End of template m_innerEcResponse