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";
9 unless (getservbyname('echo', 'udp')) {
10 print "1..0 \# Skip: no echo port\n";
19 # Everything loaded fine
22 my $p = new Net::Ping "udp";