#
#===============================================================================
#
# FILE: delete.t
#
# DESCRIPTION: Test of EPP delete operation
#
# FILES: ---
# BUGS: ---
# NOTES: ---
# AUTHOR: Pete Houston (cpan@openstrike.co.uk)
# COMPANY: Openstrike
# VERSION: $Id: delete.t,v 1.1.1.1 2013/10/21 14:04:54 pete Exp $
# CREATED: 04/04/13 18:09:48
# REVISION: $Revision: 1.1.1.1 $
#===============================================================================
use strict;
use warnings;
use Test::More;
if (defined $ENV{NOMTAG} and defined $ENV{NOMPASS}) {
plan tests => 5;
} else {
plan skip_all => 'Cannot connect to testbed without NOMTAG and NOMPASS';
}
use lib './lib';
use Net::EPP::Registry::Nominet;
my $epp = new_ok ('Net::EPP::Registry::Nominet', [ test => 1,
user => $ENV{NOMTAG}, pass => $ENV{NOMPASS}, debug =>
$ENV{DEBUG_TEST} || 0 ] );
is ($Net::EPP::Registry::Nominet::Code, 1000, 'Logged in');
warn $Net::EPP::Registry::Nominet::Error if
$Net::EPP::Registry::Nominet::Error;
BAIL_OUT ("Cannot login to EPP server") if
$Net::EPP::Registry::Nominet::Error;
my $tag = lc $ENV{NOMTAG};
my $now = time ();
my $domtogo = "del-$now-$tag.co.uk";
my $registrant = {
id => "reg-$now",
name => 'Acme Domain Company',
'trad-name' => 'Domsplosion',
'type' => 'LTD',
'co-no' => '12345678',
'opt-out' => 'n',
'postalInfo'=> { loc => {
'name' => 'Big Red Hippopotamus',
'org' => 'Acme Domain Company',
'addr' => {
'street' => ['555 Carlton Heights'],
'city' => 'Testington',
'sp' => 'Testshire',
'pc' => 'XL99 9XL',
'cc' => 'GB'
}
}},
'voice' => '+44.1234567890',
#'mobile' => '07777 777 777', # ??? Not used?
'email' => 'bigred@example.com'
};
my $domain = {
name => $domtogo,
period => "2",
registrant => $registrant,
nameservers => {
'nsname0' => "ns1.demetrius-$tag.co.uk",
'nsname1' => "ns1.ariel-$tag.co.uk"
}
};
my ($expiry, $reason, $regid) = $epp->register ($domain);
is ($epp->delete_domain('foo.bar.uk'), undef, "Delete non-existent domain");
is ($epp->delete_domain($domtogo), 1, "Delete success");
ok ($epp->logout(), 'Logout successful');
exit;