diff options
author | Tony Cook <tony@develop-help.com> | 2012-07-27 23:39:39 +1000 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2012-08-02 10:24:56 +1000 |
commit | 284474f99fc795c352234baaaa45687e0a291d66 (patch) | |
tree | 6eab7bec38fdcdff47afb242deaa42d56ac4942d /dist/Net-Ping | |
parent | bb03e613e64ec996e5d1109519a069a5b8134bb2 (diff) | |
download | perl-284474f99fc795c352234baaaa45687e0a291d66.tar.gz |
Net-Ping: add a sensible test note for the icmp ping test
Diffstat (limited to 'dist/Net-Ping')
-rw-r--r-- | dist/Net-Ping/t/500_ping_icmp.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dist/Net-Ping/t/500_ping_icmp.t b/dist/Net-Ping/t/500_ping_icmp.t index 4bc97090f8..3050cc3b5f 100644 --- a/dist/Net-Ping/t/500_ping_icmp.t +++ b/dist/Net-Ping/t/500_ping_icmp.t @@ -21,7 +21,7 @@ SKIP: { or ($^O eq 'VMS' and (`write sys\$output f\$privilege("SYSPRV")` =~ m/FALSE/)); my $p = new Net::Ping "icmp"; - is($p->ping("127.0.0.1"), 1); + is($p->ping("127.0.0.1"), 1, "icmp ping 127.0.0.1"); } sub IsAdminUser { |