lib/Net/Ping/t/140_stream_inst.t

   1 # Test to make sure object can be instantiated for stream protocol.
   2
   3 BEGIN {
   4   unless (eval "require Socket") {
   5     print "1..0 \# Skip: no Socket\n";
   6     exit;
   7   }
   8   unless (getservbyname('echo', 'udp')) {
   9     print "1..0 \# Skip: no echo port\n";
  10     exit;
  11   }
  12 }
  13
  14 use Test;
  15 use Net::Ping;
  16 plan tests => 2;
  17
  18 # Everything loaded fine
  19 ok 1;
  20
  21 my $p = new Net::Ping "stream";
  22 ok !!$p;