Update Socket to CPAN version 2.016
[perl.git] / cpan / libnet / 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 (!eval "require Socket") {
9         print "1..0 # Skip: no Socket module\n"; exit 0;
10     }
11     if (ord('A') == 193 && !eval "require Convert::EBCDIC") {
12         print "1..0 # Skip: EBCDIC but no Convert::EBCDIC\n"; exit 0;
13     }
14 }
15
16 use Net::Config;
17 use Net::FTP;
18
19 unless(defined($NetConfig{ftp_testhost})) {
20     print "1..0 # Skip: no ftp_testhost defined in config\n";
21     exit 0;
22 }
23
24 unless($NetConfig{test_hosts}) {
25     print "1..0 # Skip: test_hosts not enabled in config\n";
26     exit 0;
27 }
28
29 my $t = 1;
30 print "1..7\n";
31
32 $ftp = Net::FTP->new($NetConfig{ftp_testhost})
33         or (print("not ok 1\n"), exit);
34
35 printf "ok %d\n",$t++;
36
37 $ftp->login('anonymous') or die($ftp->message . "\n");
38 printf "ok %d\n",$t++;
39
40 $ftp->pwd  or do {
41   print STDERR $ftp->message,"\n";
42   print "not ";
43 };
44
45 printf "ok %d\n",$t++;
46
47 $ftp->cwd('/pub') or do {
48   print STDERR $ftp->message,"\n";
49   print "not ";
50 };
51
52 if ($data = $ftp->stor('libnet.tst')) {
53   my $text = "abc\ndef\nqwe\n";
54   printf "ok %d\n",$t++;
55   $data->write($text,length $text);
56   $data->close;
57   $data = $ftp->retr('libnet.tst');
58   $data->read($buf,length $text);
59   $data->close;
60   print "not " unless $text eq $buf;
61   printf "ok %d\n",$t++;
62   $ftp->delete('libnet.tst') or print "not ";
63   printf "ok %d\n",$t++;
64   
65 }
66 else {
67   print "# ",$ftp->message,"\n";
68   printf "ok %d\n",$t++;
69   printf "ok %d\n",$t++;
70   printf "ok %d\n",$t++;
71 }
72
73 $ftp->quit  or do {
74   print STDERR $ftp->message,"\n";
75   print "not ";
76 };
77
78 printf "ok %d\n",$t++;