8 if (ord('A') == 193 && !eval "require Convert::EBCDIC") {
9 print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0;
16 unless(defined($NetConfig{ftp_testhost}) && $NetConfig{test_hosts}) {
24 $ftp = Net::FTP->new($NetConfig{ftp_testhost})
25 or (print("not ok 1\n"), exit);
27 printf "ok %d\n",$t++;
29 $ftp->login('anonymous') or die($ftp->message . "\n");
30 printf "ok %d\n",$t++;
33 print STDERR $ftp->message,"\n";
37 printf "ok %d\n",$t++;
39 $ftp->cwd('/pub') or do {
40 print STDERR $ftp->message,"\n";
44 if ($data = $ftp->stor('libnet.tst')) {
45 my $text = "abc\ndef\nqwe\n";
46 printf "ok %d\n",$t++;
47 $data->write($text,length $text);
49 $data = $ftp->retr('libnet.tst');
50 $data->read($buf,length $text);
52 print "not " unless $text eq $buf;
53 printf "ok %d\n",$t++;
54 $ftp->delete('libnet.tst') or print "not ";
55 printf "ok %d\n",$t++;
59 print "# ",$ftp->message,"\n";
60 printf "ok %d\n",$t++;
61 printf "ok %d\n",$t++;
62 printf "ok %d\n",$t++;
66 print STDERR $ftp->message,"\n";
70 printf "ok %d\n",$t++;