1#!./perl -w 2 3BEGIN { 4 unless (-d 'blib') { 5 chdir 't' if -d 't'; 6 @INC = '../lib'; 7 } 8 if (!eval "require Socket") { 9 print "1..0 # no Socket\n"; exit 0; 10 } 11 if (ord('A') == 193 && !eval "require Convert::EBCDIC") { 12 print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0; 13 } 14} 15 16use Net::Config; 17use Net::FTP; 18 19unless(defined($NetConfig{ftp_testhost}) && $NetConfig{test_hosts}) { 20 print "1..0\n"; 21 exit 0; 22} 23 24my $t = 1; 25print "1..7\n"; 26 27$ftp = Net::FTP->new($NetConfig{ftp_testhost}) 28 or (print("not ok 1\n"), exit); 29 30printf "ok %d\n",$t++; 31 32$ftp->login('anonymous') or die($ftp->message . "\n"); 33printf "ok %d\n",$t++; 34 35$ftp->pwd or do { 36 print STDERR $ftp->message,"\n"; 37 print "not "; 38}; 39 40printf "ok %d\n",$t++; 41 42$ftp->cwd('/pub') or do { 43 print STDERR $ftp->message,"\n"; 44 print "not "; 45}; 46 47if ($data = $ftp->stor('libnet.tst')) { 48 my $text = "abc\ndef\nqwe\n"; 49 printf "ok %d\n",$t++; 50 $data->write($text,length $text); 51 $data->close; 52 $data = $ftp->retr('libnet.tst'); 53 $data->read($buf,length $text); 54 $data->close; 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++; 59 60} 61else { 62 print "# ",$ftp->message,"\n"; 63 printf "ok %d\n",$t++; 64 printf "ok %d\n",$t++; 65 printf "ok %d\n",$t++; 66} 67 68$ftp->quit or do { 69 print STDERR $ftp->message,"\n"; 70 print "not "; 71}; 72 73printf "ok %d\n",$t++; 74