| Commit | Line | Data |
|---|
| 9c36735d |
1 | # Test to make sure alarm / SIGALM does not interfere |
| 2 | # with Net::Ping. (This test was derived to ensure |
| 3 | # compatibility with the "spamassassin" utility.) |
| 4 | # Based on code written by radu@netsoft.ro (Radu Greab). |
| 5 | |
| 6 | BEGIN { |
| 1ced8e52 |
7 | if ($ENV{PERL_CORE}) { |
| 8 | unless ($ENV{PERL_TEST_Net_Ping}) { |
| 9 | print "1..0 \# Skip: network dependent test\n"; |
| 10 | exit; |
| 11 | } |
| 7ac0cca8 |
12 | } |
| 9c36735d |
13 | unless (eval "require Socket") { |
| 14 | print "1..0 \# Skip: no Socket\n"; |
| 15 | exit; |
| 16 | } |
| 17 | unless (eval {alarm 0; 1;}) { |
| 18 | print "1..0 \# Skip: alarm borks on $^O $^X $] ?\n"; |
| 19 | exit; |
| 20 | } |
| bb4e15c8 |
21 | unless (getservbyname('echo', 'tcp')) { |
| 22 | print "1..0 \# Skip: no echo port\n"; |
| 23 | exit; |
| 24 | } |
| 9c36735d |
25 | } |
| 26 | |
| 27 | use strict; |
| 28 | use Test; |
| 29 | use Net::Ping; |
| 30 | |
| 31 | plan tests => 6; |
| 32 | |
| 33 | # Everything compiled |
| 34 | ok 1; |
| 35 | |
| 36 | eval { |
| 37 | my $timeout = 11; |
| 38 | |
| 39 | ok 1; # In eval |
| 40 | local $SIG{ALRM} = sub { die "alarm works" }; |
| 41 | ok 1; # SIGALRM can be set on this platform |
| 42 | alarm $timeout; |
| 43 | ok 1; # alarm() can be set on this platform |
| 44 | |
| 45 | my $start = time; |
| 46 | while (1) { |
| 47 | my $ping = Net::Ping->new("tcp", 2); |
| 48 | # It does not matter if alive or not |
| 49 | $ping->ping("127.0.0.1"); |
| 50 | $ping->ping("172.29.249.249"); |
| 51 | die "alarm failed" if time > $start + $timeout + 1; |
| 52 | } |
| 53 | }; |
| 54 | # Got out of "infinite loop" okay |
| 55 | ok 1; |
| 56 | |
| 57 | # Make sure it died for a good excuse |
| 58 | ok $@ =~ /alarm works/ or die $@; |
| 59 | |
| 60 | alarm 0; # Reset alarm |
projects / p5sagit/p5-mst-13.2.git / blame