This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Net-Ping: add a sensible test note for the icmp ping test
authorTony Cook <tony@develop-help.com>
Fri, 27 Jul 2012 13:39:39 +0000 (23:39 +1000)
committerTony Cook <tony@develop-help.com>
Thu, 2 Aug 2012 00:24:56 +0000 (10:24 +1000)
dist/Net-Ping/t/500_ping_icmp.t

index 4bc9709..3050cc3 100644 (file)
@@ -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 {