use strict;
use Test::More;

use Net::FTP::Common;
use Data::Dumper;

BEGIN { plan tests => 4 }

use TestConfig;

# fodder to eliminate
# Name "TestConfig::netftp_cfg" used only once: possible typo 
# red herring errors
keys %TestConfig::common_cfg;
keys %TestConfig::netftp_cfg;

#warn Data::Dumper->Dump([\%TestConfig::common_cfg, \%TestConfig::netftp_cfg], [qw(common netftp)]);

our $ez;

sub construct {
 $ez = Net::FTP::Common->new
  (\%TestConfig::common_cfg, %TestConfig::netftp_cfg);
}



#
# Test 1
#
construct;
my @retval = sort $ez->ls;
ok("@retval", qr/README/);

#
# Test 2
#
construct;
my @listing =   $ez->ls(RemoteDir => '/');
warn "L: @listing";
ok("@listing", qr/amd64/);

#
# Test 3
# Let's list the default dir on several hosts
#
construct;
$ez->Common(RemoteDir => '/pub');
my @host_list = qw(ftp.x.org ftp.xemacs.org);
my @a;
for (@host_list) {
    warn $_;
    push @a, ($ez->ls(Host => $_)) ;
}
warn "push_ver: ", Dumper(\@a);

my @host_listings = map { $ez->ls(Host => $_) } @host_list;

warn "map_ver: ", Dumper(\@host_listings);

like("@host_listings", qr/X\d\dR\d\b/);


#
# Test 4
# Let's list several directories on the same host
#
construct;
$ez->Common(Host => 'ftp.wu-ftpd.org', RemoteDir => '/pub/support');
my @dir_list = qw(/pub/support /pub/pgp-keys);
my @dir_listings = map { $ez->ls(RemoteDir => $_) } @dir_list;

warn "complete dir listing: @dir_listings", Dumper \@dir_listings;
like("@dir_listings", qr/tar.gz/);