Commit | Line | Data |
37120919 |
1 | #!./perl |
2 | |
3 | BEGIN { |
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') { |
8 | print STDERR "1..0\n"; |
9 | exit 0; |
10 | } |
11 | } |
12 | |
13 | use Socket; |
14 | |
15 | print "1..6\n"; |
16 | |
17 | if (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 | } |
38 | else { |
39 | print "# $!\n"; |
40 | print "not ok 1\n"; |
41 | } |
42 | |
43 | if( 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 | } |
64 | else { |
65 | print "# $!\n"; |
66 | print "not ok 4\n"; |
67 | } |