lib/Net/t/ftp.t

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