1 # Test to make sure object can be instantiated for udp protocol.
2 # I do not know of any servers that support udp echo anymore.
5 unless (eval "require Socket") {
6 print "1..0 # Skip: no Socket\n";
15 # Everything loaded fine
18 my $p = new Net::Ping "udp";