6 unless(defined($NetConfig{ftp_testhost}) && $NetConfig{test_hosts}) {
14 $ftp = Net::FTP->new($NetConfig{ftp_testhost})
15 or (print("not ok 1\n"), exit);
17 printf "ok %d\n",$t++;
19 $ftp->login('anonymous') or die($ftp->message . "\n");
20 printf "ok %d\n",$t++;
23 print STDERR $ftp->message,"\n";
27 printf "ok %d\n",$t++;
29 $ftp->cwd('/pub') or do {
30 print STDERR $ftp->message,"\n";
34 if ($data = $ftp->stor('libnet.tst')) {
35 my $text = "abc\ndef\nqwe\n";
36 printf "ok %d\n",$t++;
37 $data->write($text,length $text);
39 $data = $ftp->retr('libnet.tst');
40 $data->read($buf,length $text);
42 print "not " unless $text eq $buf;
43 printf "ok %d\n",$t++;
44 $ftp->delete('libnet.tst') or print "not ";
45 printf "ok %d\n",$t++;
49 print "# ",$ftp->message,"\n";
50 printf "ok %d\n",$t++;
51 printf "ok %d\n",$t++;
52 printf "ok %d\n",$t++;
56 print STDERR $ftp->message,"\n";
60 printf "ok %d\n",$t++;