dist/Net-Ping/t/130_tcp_inst.t

   1 # Test to make sure object can be instantiated for tcp protocol.
   2
   3 BEGIN {
   4   unless (eval "require Socket") {
   5     print "1..0 \# Skip: no Socket\n";
   6     exit;
   7   }
   8   unless (getservbyname('echo', 'tcp')) {
   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 "tcp";
  22 ok !!$p;