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: 12345aa

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="4779570" OrigRegistrarId="90" RecipientRegistrarId="90" TransId="brause">
      <FeTimeStamp Day="2" Hour="15" Minute="34" Month="7" Second="21" TimeZoneOffset="+12:00" Year="2010"/>
      <Error Hint="INVALID_REQUEST_ERROR" ErrorId="INVALID_FIELDSET" Severity="err">
      <Description>
      <![CDATA[That combination of fields is not allowed.]]>
      </Description>
      <ErrorDetails>
      <![CDATA[OriginatingRegistrarId 90]]>
      </ErrorDetails>
      <ErrorDetails>
      <![CDATA[TransId 12345aa]]>
      </ErrorDetails>
      </Error>
      </Response>
      </NZSRSResponse>

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