The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# <?xml version="1.0" encoding="UTF-8" standalone="no"?>
# <epp xmlns="urn:ietf:params:xml:ns:epp-1.0">
#   <command>
#     <check>
#       <contact:check xmlns:contact="urn:ietf:params:xml:ns:contact-1.0">
#         <contact:id>one</contact:id>
#       </contact:check>
#     </check>
#     <clTRID>brause</clTRID>
#   </command>
# </epp>

# <NZSRSRequest VerMajor='5' VerMinor='0'>
#    <HandleDetailsQry>
#        <HandleIdFilter>one</HandleIdFilter>
#    </HandleDetailsQry>
# </NZSRSRequest>

template: check-contact.tt

vars:
  contact_ids:
    - one

input_assertions:
  count:
    - [ '//contact:id', 1, 'Initial EPP: Only one contact to check' ]

SRS:
  - assertions:
      count:
        - [ '//HandleIdFilter', 1, 'SRS: Check that there were 1 HandleIdFilters' ]
        - [ '/NZSRSRequest/*', 1, 'SRS: Check there is only 1 command' ]
      match:
        - [ '//HandleIdFilter[1]', 'one', 'SRS: Check one is the first contact check' ]
      match_all:
      attr_is: []

    fake_response: |-
      <NZSRSResponse VerMajor="5" VerMinor="0">
        <Response Action="HandleDetailsQry" FeId="8" FeSeq="4713409" OrigRegistrarId="90" RecipientRegistrarId="90" Rows="0">
          <FeTimeStamp Day="16" Hour="17" Minute="41" Month="6" Second="28" TimeZoneOffset="+12:00" Year="2010"/>
        </Response>
      </NZSRSResponse>

output_assertions:
  count:
   - [ '//contact:cd', '1', 'Check for 4 contacts' ]
   - [ '//contact:id', 1, 'Check there are 4 ids' ]
  match:
   - [ '//contact:id[1]', 'one', 'Check one is first' ]
  match_all:
    - [ '//contact:id/@avail', '1', 'EPP: check all contacts are available' ]
  attr_is: