Move Net::Ping from ext/ to dist/
[perl.git] / dist / Net-Ping / t / 120_udp_inst.t
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
4 BEGIN {
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
15 use Test;
16 use Net::Ping;
17 plan tests => 2;
18
19 # Everything loaded fine
20 ok 1;
21
22 my $p = new Net::Ping "udp";
23 ok !!$p;