|
Packit |
bd23c0 |
#!perl
|
|
Packit |
bd23c0 |
|
|
Packit |
bd23c0 |
use 5.008001;
|
|
Packit |
bd23c0 |
|
|
Packit |
bd23c0 |
use strict;
|
|
Packit |
bd23c0 |
use warnings;
|
|
Packit |
bd23c0 |
|
|
Packit |
bd23c0 |
BEGIN {
|
|
Packit |
bd23c0 |
if (!eval { require Socket }) {
|
|
Packit |
bd23c0 |
print "1..0 # Skip: no Socket module\n"; exit 0;
|
|
Packit |
bd23c0 |
}
|
|
Packit |
bd23c0 |
if (ord('A') == 193 && !eval { require Convert::EBCDIC }) {
|
|
Packit |
bd23c0 |
print "1..0 # Skip: EBCDIC but no Convert::EBCDIC\n"; exit 0;
|
|
Packit |
bd23c0 |
}
|
|
Packit |
bd23c0 |
}
|
|
Packit |
bd23c0 |
|
|
Packit |
bd23c0 |
use Net::Config;
|
|
Packit |
bd23c0 |
use Net::FTP;
|
|
Packit |
bd23c0 |
|
|
Packit |
bd23c0 |
unless(defined($NetConfig{ftp_testhost})) {
|
|
Packit |
bd23c0 |
print "1..0 # Skip: no ftp_testhost defined in config\n";
|
|
Packit |
bd23c0 |
exit 0;
|
|
Packit |
bd23c0 |
}
|
|
Packit |
bd23c0 |
|
|
Packit |
bd23c0 |
unless($NetConfig{test_hosts}) {
|
|
Packit |
bd23c0 |
print "1..0 # Skip: test_hosts not enabled in config\n";
|
|
Packit |
bd23c0 |
exit 0;
|
|
Packit |
bd23c0 |
}
|
|
Packit |
bd23c0 |
|
|
Packit |
bd23c0 |
my $t = 1;
|
|
Packit |
bd23c0 |
print "1..7\n";
|
|
Packit |
bd23c0 |
|
|
Packit |
bd23c0 |
my $ftp = Net::FTP->new($NetConfig{ftp_testhost})
|
|
Packit |
bd23c0 |
or (print("not ok 1\n"), exit);
|
|
Packit |
bd23c0 |
|
|
Packit |
bd23c0 |
printf "ok %d\n",$t++;
|
|
Packit |
bd23c0 |
|
|
Packit |
bd23c0 |
$ftp->login('anonymous') or die($ftp->message . "\n");
|
|
Packit |
bd23c0 |
printf "ok %d\n",$t++;
|
|
Packit |
bd23c0 |
|
|
Packit |
bd23c0 |
$ftp->pwd or do {
|
|
Packit |
bd23c0 |
print STDERR $ftp->message,"\n";
|
|
Packit |
bd23c0 |
print "not ";
|
|
Packit |
bd23c0 |
};
|
|
Packit |
bd23c0 |
|
|
Packit |
bd23c0 |
printf "ok %d\n",$t++;
|
|
Packit |
bd23c0 |
|
|
Packit |
bd23c0 |
$ftp->cwd('/pub') or do {
|
|
Packit |
bd23c0 |
print STDERR $ftp->message,"\n";
|
|
Packit |
bd23c0 |
print "not ";
|
|
Packit |
bd23c0 |
};
|
|
Packit |
bd23c0 |
|
|
Packit |
bd23c0 |
my $data;
|
|
Packit |
bd23c0 |
if ($data = $ftp->stor('libnet.tst')) {
|
|
Packit |
bd23c0 |
my $text = "abc\ndef\nqwe\n";
|
|
Packit |
bd23c0 |
printf "ok %d\n",$t++;
|
|
Packit |
bd23c0 |
$data->write($text,length $text);
|
|
Packit |
bd23c0 |
$data->close;
|
|
Packit |
bd23c0 |
$data = $ftp->retr('libnet.tst');
|
|
Packit |
bd23c0 |
my $buf;
|
|
Packit |
bd23c0 |
$data->read($buf,length $text);
|
|
Packit |
bd23c0 |
$data->close;
|
|
Packit |
bd23c0 |
print "not " unless $text eq $buf;
|
|
Packit |
bd23c0 |
printf "ok %d\n",$t++;
|
|
Packit |
bd23c0 |
$ftp->delete('libnet.tst') or print "not ";
|
|
Packit |
bd23c0 |
printf "ok %d\n",$t++;
|
|
Packit |
bd23c0 |
|
|
Packit |
bd23c0 |
}
|
|
Packit |
bd23c0 |
else {
|
|
Packit |
bd23c0 |
print "# ",$ftp->message,"\n";
|
|
Packit |
bd23c0 |
printf "ok %d\n",$t++;
|
|
Packit |
bd23c0 |
printf "ok %d\n",$t++;
|
|
Packit |
bd23c0 |
printf "ok %d\n",$t++;
|
|
Packit |
bd23c0 |
}
|
|
Packit |
bd23c0 |
|
|
Packit |
bd23c0 |
$ftp->quit or do {
|
|
Packit |
bd23c0 |
print STDERR $ftp->message,"\n";
|
|
Packit |
bd23c0 |
print "not ";
|
|
Packit |
bd23c0 |
};
|
|
Packit |
bd23c0 |
|
|
Packit |
bd23c0 |
printf "ok %d\n",$t++;
|