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. 3 4use strict; 5use Config; 6 7BEGIN { 8 unless (eval "require Socket") { 9 print "1..0 \# Skip: no Socket\n"; 10 exit; 11 } 12 unless (getservbyname('echo', 'udp')) { 13 print "1..0 \# Skip: no echo port\n"; 14 exit; 15 } 16 unless ($Config{d_getpbyname}) { 17 print "1..0 \# Skip: no getprotobyname\n"; 18 exit; 19 } 20} 21 22use Test::More tests => 2; 23BEGIN {use_ok 'Net::Ping'}; 24 25my $p = new Net::Ping "udp"; 26isa_ok($p, 'Net::Ping', 'object can be instantiated for udp protocol'); 27