diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-06 07:19:17 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-06 07:19:17 +0000 |
| commit | 5dbd7494d59e729f1665fc8640ec73253c92ec21 (patch) | |
| tree | 61bc59647e8f790b792d46b32c5f077c3d21c58d /lib/Net | |
| parent | ac70dec105c793ebc869f1418800d67764d2ceb9 (diff) | |
| download | perl-5dbd7494d59e729f1665fc8640ec73253c92ec21.tar.gz | |
Reintroduce changes #19723 and #19723 that were not
in Net::Ping 2.31; needed for Windows.
p4raw-link: @19723 on //depot/perl: 8eff326bc4ec5cde990026aa3a8ca58f85cb4bbc
p4raw-id: //depot/perl@20021
Diffstat (limited to 'lib/Net')
| -rw-r--r-- | lib/Net/Ping/t/250_ping_hires.t | 6 | ||||
| -rw-r--r-- | lib/Net/Ping/t/450_service.t | 2 |
2 files changed, 5 insertions, 3 deletions
diff --git a/lib/Net/Ping/t/250_ping_hires.t b/lib/Net/Ping/t/250_ping_hires.t index 52dae1ba75..91e905fb26 100644 --- a/lib/Net/Ping/t/250_ping_hires.t +++ b/lib/Net/Ping/t/250_ping_hires.t @@ -57,5 +57,7 @@ my ($ret, $duration) = $p -> ping("localhost"); ok $ret; # It is extremely likely that the duration contains a decimal -# point if Time::HiRes is functioning properly. -ok $duration =~ /\./; +# point if Time::HiRes is functioning properly, except when it +# it is fast enough to be "zero". +print "# duration=[$duration]\n"; +ok $duration =~ /\.|^0$/; diff --git a/lib/Net/Ping/t/450_service.t b/lib/Net/Ping/t/450_service.t index c41b84b807..006bf64efb 100644 --- a/lib/Net/Ping/t/450_service.t +++ b/lib/Net/Ping/t/450_service.t @@ -19,7 +19,7 @@ use Net::Ping; # for the TCP Server stuff instead of doing # all that direct socket() junk manually. -plan tests => 26; +plan tests => 26, ($^O eq 'MSWin32' ? (todo => [18]) : ()); # Everything loaded fine ok 1; |