This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Initial integration of libnet-1.0703.
[perl5.git] / 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}, Debug => 0)
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 STDERR $ftp->message,"\n";
50   printf "not ok %d\n",$t++;
51   printf "not ok %d\n",$t++;
52   printf "not 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++;