This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl 5.002beta2 patch: toke.c
[perl5.git] / t / lib / socket.t
CommitLineData
37120919
AD
1#!./perl
2
3BEGIN {
4 chdir 't' if -d 't';
5 @INC = '../lib' if -d '../lib';
6 require Config; import Config;
7 if ($Config{'extensions'} !~ /\bSocket\b/ && $Config{'osname'} ne 'VMS') {
2af9ad4a 8 print "1..0\n";
37120919
AD
9 exit 0;
10 }
11}
12
13use Socket;
14
15print "1..6\n";
16
17if (socket(T,PF_INET,SOCK_STREAM,6)) {
18 print "ok 1\n";
19
20 if (connect(T,pack_sockaddr_in(7,inet_aton("localhost")))){
21 print "ok 2\n";
22
23 print "# Connected to ",
24 inet_ntoa((unpack_sockaddr_in(getpeername(T)))[1]),"\n";
25
26 syswrite(T,"hello",5);
27 sysread(T,$buff,10);
28 print $buff eq "hello" ? "ok 3\n" : "not ok 3\n";
29 }
30 else {
31 print "# You're allowed to fail tests 2 and 3 if.\n";
32 print "# The echo service has been disabled.\n";
33 print "# $!\n";
34 print "ok 2\n";
35 print "ok 3\n";
36 }
37}
38else {
39 print "# $!\n";
40 print "not ok 1\n";
41}
42
43if( socket(S,PF_INET,SOCK_STREAM,6) ){
44 print "ok 4\n";
45
46 if (connect(S,pack_sockaddr_in(7,INADDR_LOOPBACK))){
47 print "ok 5\n";
48
49 print "# Connected to ",
50 inet_ntoa((unpack_sockaddr_in(getpeername(S)))[1]),"\n";
51
52 syswrite(S,"olleh",5);
53 sysread(S,$buff,10);
54 print $buff eq "olleh" ? "ok 6\n" : "not ok 6\n";
55 }
56 else {
57 print "# You're allowed to fail tests 5 and 6 if.\n";
58 print "# The echo service has been disabled.\n";
59 print "# $!\n";
60 print "ok 5\n";
61 print "ok 6\n";
62 }
63}
64else {
65 print "# $!\n";
66 print "not ok 4\n";
67}