#
#===============================================================================
#
#         FILE:  list.t
#
#  DESCRIPTION:  Test the list operation
#
#        FILES:  ---
#         BUGS:  ---
#        NOTES:  Must have set $NOMTAG and $NOMPASS env vars first
#       AUTHOR:  Pete Houston (cpan@openstrike.co.uk)
#      COMPANY:  Openstrike
#      VERSION:  $Id: list.t,v 1.1.1.1 2013/10/21 14:04:54 pete Exp $
#      CREATED:  04/02/13 13:22:06
#     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 ] );

my $range = '2000-01';
my $domlist = $epp->list_domains ($range);

is (@$domlist, 0, 'Correct empty domain expiry list');

my @lt = localtime (time ());
$range = sprintf ('%4.4i-%2.2i', $lt[5] + 1900, $lt[4] + 1);
$domlist = $epp->list_domains ($range);
isnt (@$domlist, 0, "Correct domain list for $range");

# Now try with registration date
$range = sprintf ('%4.4i-%2.2i', $lt[5] + 1898, $lt[4] + 1);
$domlist = $epp->list_domains ($range, 'month');
isnt (@$domlist, 0, "Correct domain list for $range");

ok ($epp->logout(), 'Logout successful');

exit;