lib/Net/t/ftp.t

   1 #!./perl -w
   2
   3 use Net::Config;
   4 use Net::FTP;
   5
   6 unless(defined($NetConfig{ftp_testhost}) && $NetConfig{test_hosts}) {
   7     print "1..0\n";
   8     exit 0;
   9 }
  10
  11 my $t = 1;
  12 print "1..7\n";
  13
  14 $ftp = Net::FTP->new($NetConfig{ftp_testhost})
  15         or (print("not ok 1\n"), exit);
  16
  17 printf "ok %d\n",$t++;
  18
  19 $ftp->login('anonymous') or die($ftp->message . "\n");
  20 printf "ok %d\n",$t++;
  21
  22 $ftp->pwd  or do {
  23   print STDERR $ftp->message,"\n";
  24   print "not ";
  25 };
  26
  27 printf "ok %d\n",$t++;
  28
  29 $ftp->cwd('/pub') or do {
  30   print STDERR $ftp->message,"\n";
  31   print "not ";
  32 };
  33
  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);
  38   $data->close;
  39   $data = $ftp->retr('libnet.tst');
  40   $data->read($buf,length $text);
  41   $data->close;
  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++;
  46
  47 }
  48 else {
  49   print "# ",$ftp->message,"\n";
  50   printf "ok %d\n",$t++;
  51   printf "ok %d\n",$t++;
  52   printf "ok %d\n",$t++;
  53 }
  54
  55 $ftp->quit  or do {
  56   print STDERR $ftp->message,"\n";
  57   print "not ";
  58 };
  59
  60 printf "ok %d\n",$t++;