This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix icmp ping tests on cygwin
authorTony Cook <tony@develop-help.com>
Thu, 2 Aug 2012 00:28:02 +0000 (10:28 +1000)
committerTony Cook <tony@develop-help.com>
Thu, 2 Aug 2012 00:28:02 +0000 (10:28 +1000)
dist/Net-Ping/t/110_icmp_inst.t
dist/Net-Ping/t/500_ping_icmp.t

index 7840657..b36d32f 100644 (file)
@@ -16,7 +16,7 @@ BEGIN {use_ok('Net::Ping')};
 SKIP: {
   skip "icmp ping requires root privileges.", 1
     if ($> and $^O ne 'VMS' and $^O ne 'cygwin')
-      or ($^O eq 'MSWin32'
+      or (($^O eq 'MSWin32' or $^O eq 'cygwin')
          and !IsAdminUser())
        or ($^O eq 'VMS'
            and (`write sys\$output f\$privilege("SYSPRV")` =~ m/FALSE/));
@@ -25,7 +25,7 @@ SKIP: {
 }
 
 sub IsAdminUser {
-  return unless $^O eq 'MSWin32';
+  return unless $^O eq 'MSWin32' or $^O eq 'cygwin';
   return unless eval { require Win32 };
   return unless defined &Win32::IsAdminUser;
   return Win32::IsAdminUser();
index 9fe6877..3050cc3 100644 (file)
@@ -16,12 +16,12 @@ BEGIN {use_ok('Net::Ping')};
 SKIP: {
   skip "icmp ping requires root privileges.", 1
     if ($> and $^O ne 'VMS' and $^O ne 'cygwin')
-      or ($^O eq 'MSWin32'
+      or (($^O eq 'MSWin32' or $^O eq 'cygwin')
          and !IsAdminUser())
        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 {