1use warnings; 2use strict; 3use Config; 4 5BEGIN { 6 unless (my $port = getservbyname('echo', 'tcp')) { 7 print "1..0 \# Skip: no echo port\n"; 8 exit; 9 } 10 unless ($Config{d_getpbyname}) { 11 print "1..0 \# Skip: no getprotobyname\n"; 12 exit; 13 } 14} 15 16use Test::More tests => 2; 17BEGIN {use_ok('Net::Ping')}; 18 19TODO: { 20 local $TODO = "Not working on os390 smoker; may be a permissions problem" 21 if $^O eq 'os390'; 22 my $result = pingecho("127.0.0.1"); 23 is($result, 1, "pingecho 127.0.0.1 works"); 24} 25