CPAN::Groonga

th');
isnt (@$domlist, 0, "Correct domain registration list for $range");

# Now try with expiry date
$range = substr ($lt->add_years(2)->ymd, 0, 7);

$domlist = $epp->list_domains ($range);
isnt (@$d

e handshake trad-name/) {
	ok (exists $onetag->{$key}, "Tag in list has $key key");
}
# RT 137485
isnt $onetag->{'registrar-tag'}, '', 'TAG name is not empty string';

my $res = grep { $_->{'trad-name

: {
	skip "NOMTAG/NOMPASS not set", 36 unless (defined $ENV{NOMTAG} and defined $ENV{NOMPASS});

	isnt ($epp->login ($ENV{NOMTAG}, $ENV{NOMPASS}), undef, 'Login with good credentials');

	is ($Net::EP

as new user.
	ok !$epp->{authenticated}, 'Unauthenticated';
	ok !$epp->connected, 'Unconnected';
	isnt ($epp->login ("$ENV{NOMTAG}_", $ENV{NOMPASS}), undef, 'Login as secondary user with good credenti

 ("\n", @{$changes->{notes}}), "notes changed");

$epp->modify_domain ($baddomainname, $changes);
isnt ($epp->get_code, 1000, "Change extension fields on invalid domain");

# renew-not-required

$chan

e0	=>	"ns$now.baz.com",
	nsname1 =>	"ns$now.jubber.slam.uk"
};
($res) = $epp->register ($domain);
isnt ($epp->get_code, 1000, 'Domain registration with non-existent nameservers');

$domain->{nameserve