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

vars:
  domain: chedder.co.te
  expDate: 2010-01-01
  period: 12

input_assertions:
  class: SRS::EPP::Command::Renew::Domain
  match:
    - [ '//domain:name', 'chedder.co.te', 'Domain correctly included in XML' ]

SRS:
   # The initial EPP action should be a whois for the domain we are trying to renew
 - assertions:
       count:
       match: []
       match_all:
       attr_is:
         - [ '/NZSRSRequest/Whois', 'DomainName', 'chedder.co.te', 'SRS: find correct domain' ]
   # The SRS response to that is... 
   fake_response: |-
       <NZSRSResponse VerMajor="5" VerMinor="0" RegistrarId="11">
         <Response Action="Whois" FeId="8" FeSeq="4743564" OrigRegistrarId="1" RecipientRegistrarId="11">
           <FeTimeStamp Day="24" Hour="12" Minute="22" Month="6" Second="47" TimeZoneOffset="+12:00" Year="2010"/>
           <Domain DomainName="chedder.co.te" Status="Available"/>
           </Response>
       </NZSRSResponse>

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