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

vars:
  msg_id: 00015aa

input_assertions:
  class: SRS::EPP::Command::Poll
  match:

SRS:
 - assertions:
     count:
       - [ '/NZSRSRequest/*', 1, 'SRS: there is 1 srs command' ]
     attr_is:
       - [ '/NZSRSRequest/AckMessage', 'TransId', '5aa', 'SRS: Sensible query' ]
   fake_response: |-
       <NZSRSResponse VerMajor="5" VerMinor="0">
       <Response Action="AckMessage" FeId="8" FeSeq="4799330" OrigRegistrarId="90" RecipientRegistrarId="90" TransId="2010 0707 1">
       <FeTimeStamp Day="7" Hour="14" Minute="53" Month="7" Second="10" TimeZoneOffset="+12:00" Year="2010"/>
       <AckResponse OriginatingRegistrarId="1" Remaining="801" TransId="5aa"/>
       </Response>
       </NZSRSResponse>
   
output_assertions:
  attr_is:
    - [ '//epp:msgQ', 'count', 801, 'EPP: count of remaining messges' ]
    - [ '//epp:msgQ', 'id', 00015aa, 'EPP: message id' ]
    - [ '//epp:result', 'code', 1000, 'EPP: response code' ]