8 if (!eval "require Socket") {
9 print "1..0 # no Socket\n"; exit 0;
11 if (ord('A') == 193 && !eval "require Convert::EBCDIC") {
12 print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0;
19 unless(defined($NetConfig{ftp_testhost}) && $NetConfig{test_hosts}) {
27 $ftp = Net::FTP->new($NetConfig{ftp_testhost})
28 or (print("not ok 1\n"), exit);
30 printf "ok %d\n",$t++;
32 $ftp->login('anonymous') or die($ftp->message . "\n");
33 printf "ok %d\n",$t++;
36 print STDERR $ftp->message,"\n";
40 printf "ok %d\n",$t++;
42 $ftp->cwd('/pub') or do {
43 print STDERR $ftp->message,"\n";
47 if ($data = $ftp->stor('libnet.tst')) {
48 my $text = "abc\ndef\nqwe\n";
49 printf "ok %d\n",$t++;
50 $data->write($text,length $text);
52 $data = $ftp->retr('libnet.tst');
53 $data->read($buf,length $text);
55 print "not " unless $text eq $buf;
56 printf "ok %d\n",$t++;
57 $ftp->delete('libnet.tst') or print "not ";
58 printf "ok %d\n",$t++;
62 print "# ",$ftp->message,"\n";
63 printf "ok %d\n",$t++;
64 printf "ok %d\n",$t++;
65 printf "ok %d\n",$t++;
69 print STDERR $ftp->message,"\n";
73 printf "ok %d\n",$t++;