Set default static inline for Netware/config.wc.
[perl.git] / dist / Net-Ping / t / 200_ping_tcp.t
1 BEGIN {
2   if ($ENV{PERL_CORE}) {
3     unless ($ENV{PERL_TEST_Net_Ping}) {
4       print "1..0 # Skip: network dependent test\n";
5         exit;
6     }
7   }
8   unless (eval "require Socket") {
9     print "1..0 \# Skip: no Socket\n";
10     exit;
11   }
12   unless (getservbyname('echo', 'tcp')) {
13     print "1..0 \# Skip: no echo port\n";
14     exit;
15   }
16 }
17
18 # Remote network test using tcp protocol.
19 #
20 # NOTE:
21 #   Network connectivity will be required for all tests to pass.
22 #   Firewalls may also cause some tests to fail, so test it
23 #   on a clear network.  If you know you do not have a direct
24 #   connection to remote networks, but you still want the tests
25 #   to pass, use the following:
26 #
27 # $ PERL_CORE=1 make test
28
29 use Test;
30 use Net::Ping;
31 plan tests => 13;
32
33 # Everything loaded fine
34 ok 1;
35
36 my $p = new Net::Ping "tcp",9;
37
38 # new() worked?
39 ok !!$p;
40
41 # Test on the default port
42 ok $p -> ping("localhost");
43
44 # Change to use the more common web port.
45 # This will pull from /etc/services on UNIX.
46 # (Make sure getservbyname works in scalar context.)
47 ok ($p -> {port_num} = (getservbyname("http", "tcp") || 80));
48
49 # Test localhost on the web port
50 ok $p -> ping("localhost");
51
52 # Hopefully this is never a routeable host
53 ok !$p -> ping("172.29.249.249");
54
55 # Test a few remote servers
56 # Hopefully they are up when the tests are run.
57
58 ok $p -> ping("www.geocities.com");
59 ok $p -> ping("ftp.geocities.com");
60
61 ok $p -> ping("www.freeservers.com");
62 ok $p -> ping("ftp.freeservers.com");
63
64 ok $p -> ping("yahoo.com");
65 ok $p -> ping("www.yahoo.com");
66 ok $p -> ping("www.about.com");