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