lib/Net/Ping/t/110_icmp_inst.t

   1 BEGIN {
   2     if ($ENV{PERL_CORE}) {
   3         unless ($ENV{PERL_TEST_Net_Ping}) {
   4             print "1..0 # Skip: network dependent test\n";
   5             exit;
   6         }
   7         chdir 't' if -d 't';
   8         @INC = qw(../lib);
   9     }
  10 }
  11
  12 # Test to make sure object can be instantiated for icmp protocol.
  13 # Root access is required to actually perform icmp testing.
  14
  15 use Test;
  16 use Net::Ping;
  17 plan tests => 2;
  18
  19 # Everything loaded fine
  20 ok 1;
  21
  22 my $p = new Net::Ping "tcp";
  23 ok !!$p;