1 # Test to make sure object can be instantiated for icmp protocol.
2 # Root access is required to actually perform icmp testing.
5 unless (eval "require Socket") {
6 print "1..0 \# Skip: no Socket\n";
15 # Everything loaded fine
18 if ($> and $^O ne 'VMS') {
19 skip "icmp ping requires root privileges.", 1;
21 my $p = new Net::Ping "icmp";