lib/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 }
  10
  11 use Test;
  12 use Net::Ping;
  13 plan tests => 2;
  14
  15 # Everything loaded fine
  16 ok 1;
  17
  18 my $p = new Net::Ping "udp";
  19 ok !!$p;