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 make sure alarm / SIGALM does not interfere
# with Net::Ping.  (This test was derived to ensure
# compatibility with the "spamassassin" utility.)
# Based on code written by radu@netsoft.ro (Radu Greab).

BEGIN {
  if ($ENV{PERL_CORE}) {
    unless ($ENV{PERL_TEST_Net_Ping}) {
      print "1..0 \# Skip: network dependent test\n";
        exit;
    }
  } 
  unless (eval "require Socket") {
    print "1..0 \# Skip: no Socket\n";
    exit;
  }
  unless (eval {alarm 0; 1;}) {
    print "1..0 \# Skip: alarm borks on $^O $^X $] ?\n";
    exit;
  }
  unless (getservbyname('echo', 'tcp')) {
    print "1..0 \# Skip: no echo port\n";
    exit;
  }
}

use strict;
use Test::More tests => 6;
BEGIN {use_ok 'Net::Ping'};

eval {
  my $timeout = 11;

pass('In eval');
  local $SIG{ALRM} = sub { die "alarm works" };
  pass('SIGALRM can be set on this platform');
  alarm $timeout;
  pass('alarm() can be set on this platform');

my $start = time;
  while (1) {
    my $ping = Net::Ping->new("tcp", 2);
    # It does not matter if alive or not
    $ping->ping("127.0.0.1");
    $ping->ping("172.29.249.249");
    die "alarm failed" if time > $start + $timeout + 1;
  }
};
pass('Got out of "infinite loop" okay');

like($@, qr/alarm works/, 'Make sure it died for a good excuse');

alarm 0; # Reset alarm