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

vars:
  domain: mozzarella.co.te
  auth: UDAjUDAj

input_assertions:
  class: SRS::EPP::Command::Transfer::Domain
  match:
    - [ '//domain:name', 'mozzarella.co.te', 'Domain correctly included in XML' ]
    - [ '//domain:pw', 'UDAjUDAj', 'found auth info data' ]

SRS:
 - assertions:
     count:
       - [ '//Whois', 1, 'SRS: generated Whois' ]
       - [ '//DomainUpdate', 1, 'SRS: generated DomainUpdate' ]
     match:
       - [ '//DomainNameFilter', 'mozzarella.co.te', 'SRS: Updating correct domain' ]
   fake_response: |-
     <NZSRSResponse VerMajor="4" VerMinor="3" RegistrarId="104">
     <Response Action="Whois" FeId="8" FeSeq="4775126" OrigRegistrarId="1" RecipientRegistrarId="1">
       <FeTimeStamp Day="1" Hour="08" Minute="50" Month="7" Second="34" TimeZoneOffset="+12:00" Year="2010"/>
       <Domain DomainName="mozzarella.co.te" Status="Active"/>
     </Response>
     <Response Action="DomainUpdate" FeId="2" FeSeq="122118672" OrigRegistrarId="104" RecipientRegistrarId="104" Rows="1" TransId="20100624092216713">
     <FeTimeStamp Day="24" Hour="09" Minute="23" Month="6" Second="05" TimeZoneOffset="+12:00" Year="2010"/>
     <Domain Delegate="1" DomainName="mozzarella.co.te" RegistrantRef="24642" RegistrarId="104" Status="Active" Term="1">
        <NameServers>
          <Server FQDN="ns1.moca.co.nz"/>
          <Server FQDN="ns2.discountdomains.co.nz"/>
        </NameServers>
        <RegistrantContact Name="Funsies International" Email="ingridc@silly-int.co.nz">
          <PostalAddress Address1="6 boring road" City="Middlesex" CountryCode="NZ"/>
          <Phone AreaCode="3" CountryCode="64" LocalNumber="9266660"/>
        </RegistrantContact>
        <AdminContact Name="Funsies International" Email="ingridc@silly-int.co.nz">
          <PostalAddress Address1="6 boring road" City="Middlesex" CountryCode="NZ"/>
          <Phone AreaCode="3" CountryCode="64" LocalNumber="9666600"/>
        </AdminContact>
        <TechnicalContact Name="Funsies International" Email="ingridc@silly-int.co.nz">
          <PostalAddress Address1="6 boring road" City="Middlesex" CountryCode="NZ"/>
          <Phone AreaCode="3" CountryCode="64" LocalNumber="9666600"/>
        </TechnicalContact>
        <BilledUntil Day="28" Hour="11" Minute="31" Month="7" Second="37" TimeZoneOffset="+12:00" Year="2011"/>
        <RegisteredDate Day="28" Hour="11" Minute="31" Month="7" Second="37" TimeZoneOffset="+12:00" Year="2009"/>
        <AuditDetails ActionId="20100624092216713" RegistrarId="104">
          <AuditTime>
            <From Day="24" Hour="09" Minute="23" Month="6" Second="05" TimeZoneOffset="+12:00" Year="2010"/>
          </AuditTime>
        <AuditText/>
        </AuditDetails>
     </Domain>
     </Response>
     </NZSRSResponse>

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