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

vars:

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

SRS:
 - assertions:
     count:
       - [ '/NZSRSRequest/*', 1, 'SRS: there is 1 srs command' ]
       - [ '/NZSRSRequest/GetMessages/TypeFilter', 2, 'SRS: there are both typefilters' ]
     attr_is:
       - [ '/NZSRSRequest/GetMessages', 'QueueMode', '1', 'SRS: Get message correct' ]
       - [ '/NZSRSRequest/GetMessages', 'MaxResults', '1', 'SRS: request wants just one row' ]
   fake_response: |-
       <NZSRSResponse VerMajor="5" VerMinor="0">
       <Response Action="GetMessages" FeId="8" FeSeq="4798838" OrigRegistrarId="90" RecipientRegistrarId="90" Rows="0">
       <FeTimeStamp Day="7" Hour="09" Minute="06" Month="7" Second="18" TimeZoneOffset="+12:00" Year="2010"/>
       </Response>
       </NZSRSResponse>

   
output_assertions:
  count:
  attr_is:
    - [ '//epp:result', 'code', 1300, 'EPP: Correct response code' ]