lib/Net/t/ftp.t

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