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    $TODO = "Not working on freebsd" if $^O eq 'freebsd';
23    my $result = pingecho("127.0.0.1");
24    is($result, 1, "pingecho 127.0.0.1 works");
25}
26