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