ext/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;