The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
template: delete-contact.tt

vars:
  contact_id: c_id1

input_assertions:
  match:

SRS:
  - assertions:
      attr_is:

    fake_response: |-
       <NZSRSResponse VerMajor="4" VerMinor="3" RegistrarId="170"><Response Action="HandleUpdate" FeId="2" FeSeq="121846163" OrigRegistrarId="170" RecipientRegistrarId="170" TransId="1277074547.5859"><FeTimeStamp Day="21" Hour="10" Minute="49" Month="6" Second="10" TimeZoneOffset="+12:00" Year="2010"/><Error Hint="INVALID_REQUEST_ERROR" ErrorId="MISSING_MANDATORY_FIELD" Severity="err"><Description><![CDATA[Mandatory Field missing from Transaction]]></Description><ErrorDetails><![CDATA[UDAI]]></ErrorDetails></Error></Response></NZSRSResponse>

output_assertions:
  count:
    - [ '//epp:resData', 0, 'EPP: No resData in the response' ]
  match:
  attr_is:
    - [ '//epp:result', 'code', 2400, 'EPP: Unexpected failure' ]