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 use Test;
   5 use Net::Ping;
   6 plan tests => 2;
   7
   8 # Everything loaded fine
   9 ok 1;
  10
  11 my $p = new Net::Ping "udp";
  12 ok !!$p;