3 unless ($ENV{PERL_TEST_Net_Ping}) {
4 print "1..0 # Skip: network dependent test\n";
12 # Test to make sure object can be instantiated for icmp protocol.
13 # Root access is required to actually perform icmp testing.
19 # Everything loaded fine
22 my $p = new Net::Ping "tcp";