Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
100_load.t	204 B	-r--r--r--	2014-12-27 11:48
110_icmp_inst.t	965 B	-r--r--r--	2014-12-27 11:48
120_udp_inst.t	603 B	-r--r--r--	2014-12-27 11:48
130_tcp_inst.t	541 B	-r--r--r--	2014-12-27 11:48
140_stream_inst.t	550 B	-r--r--r--	2014-12-27 11:48
150_syn_inst.t	542 B	-r--r--r--	2014-12-27 11:48
190_alarm.t	1.28 KB	-r--r--r--	2014-12-27 11:48
200_ping_tcp.t	1.51 KB	-r--r--r--	2014-12-27 11:48
250_ping_hires.t	1.23 KB	-r--r--r--	2014-12-27 11:48
300_ping_stream.t	1.74 KB	-r--r--r--	2014-12-27 11:48
400_ping_syn.t	2.09 KB	-r--r--r--	2014-12-27 11:48
410_syn_host.t	2.26 KB	-r--r--r--	2014-12-27 11:48
450_service.t	3.66 KB	-r--r--r--	2014-12-27 11:48
500_ping_icmp.t	887 B	-r--r--r--	2014-12-27 11:48
510_ping_udp.t	702 B	-r--r--r--	2014-12-27 11:48
520_icmp_ttl.t	1.4 KB	-r--r--r--	2014-12-27 11:48

Rename

# Test to perform icmp protocol testing.
# Root access is required.

use Config;

BEGIN {
  unless (eval "require Socket") {
    print "1..0 \# Skip: no Socket\n";
    exit;
  }
  unless ($Config{d_getpbyname}) {
    print "1..0 \# Skip: no getprotobyname\n";
    exit;
  }
}

use Test::More qw(no_plan);
BEGIN {use_ok('Net::Ping')};

SKIP: {
  skip "icmp ping requires root privileges.", 1
    if ($> and $^O ne 'VMS' and $^O ne 'cygwin')
      or (($^O eq 'MSWin32' or $^O eq 'cygwin')
    and !IsAdminUser())
  or ($^O eq 'VMS'
      and (`write sys\$output f\$privilege("SYSPRV")` =~ m/FALSE/));
  my $p = new Net::Ping ("icmp",undef,undef,undef,undef,undef);
  isa_ok($p, 'Net::Ping');
  ok $p->ping("127.0.0.1");
  $p->close();
  $p = new Net::Ping ("icmp",undef,undef,undef,undef,0);
  ok $p->ping("127.0.0.1");
  $p->close();
  $p = undef();
  $p = new Net::Ping ("icmp",undef,undef,undef,undef,1);
  isa_ok($p, 'Net::Ping');
  $p = undef();
  $p = eval 'new Net::Ping ("icmp",undef,undef,undef,undef,-1)';
  ok(!defined($p));
  $p = undef();
  $p = eval 'new Net::Ping ("icmp",undef,undef,undef,undef,256)';
  ok(!defined($p));
  $p = new Net::Ping ("icmp",undef,undef,undef,undef,10);
  ok $p->ping("127.0.0.1");
  $p->close();
}

sub IsAdminUser {
  return unless $^O eq 'MSWin32' or $^O eq "cygwin";
  return unless eval { require Win32 };
  return unless defined &Win32::IsAdminUser;
  return Win32::IsAdminUser();
}