1# Test to perform udp protocol testing.
2
3BEGIN {
4  unless (eval "require Socket") {
5    print "1..0 \# Skip: no Socket\n";
6    exit;
7  }
8  unless (getservbyname('echo', 'tcp')) {
9    print "1..0 \# Skip: no echo port\n";
10    exit;
11  }
12}
13
14use Test;
15use Net::Ping;
16plan tests => 2;
17
18# Everything loaded fine
19ok 1;
20
21my $p = new Net::Ping "udp";
22ok $p->ping("127.0.0.1");
23