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="5" VerMinor="0" RegistrarId="11"><Response Action="HandleUpdate" FeId="8" FeSeq="4717478" OrigRegistrarId="1" RecipientRegistrarId="11" TransId="brause"><FeTimeStamp Day="17" Hour="14" Minute="15" Month="6" Second="26" TimeZoneOffset="+12:00" Year="2010"/><Error Hint="INVALID_REQUEST_ERROR" ErrorId="HANDLE_DOES_NOT_EXIST" Severity="err"><Description><![CDATA[There is no Handle with the given HandleId.]]></Description><ErrorDetails><![CDATA[c_id]]></ErrorDetails></Error></Response></NZSRSResponse>

output_assertions:
  count:
    - [ '//epp:resData', 0, 'EPP: No resData in the response' ]
  match:
  attr_is:
    - [ '//epp:result', 'code', 2303, 'EPP: Failure = NOT_FOUND' ]