| Subject: | Net::Ping tests fail under fakeroot |
Need to add check to appropriate tests to skip if in fakeroot since there
won't be sufficient privileges.
Patch provided
| Subject: | t_net_ping_icmp.patch |
diff --git a/lib/Net/Ping/t/110_icmp_inst.t b/lib/Net/Ping/t/110_icmp_inst.t
index 14a7f12..d77f1f0 100755
--- a/lib/Net/Ping/t/110_icmp_inst.t
+++ b/lib/Net/Ping/t/110_icmp_inst.t
@@ -23,6 +23,8 @@ if (($> and $^O ne 'VMS' and $^O ne 'cygwin')
skip "icmp ping requires root privileges.", 1;
} elsif ($^O eq 'MacOS') {
skip "icmp protocol not supported.", 1;
+} elsif ($ENV{'FAKEROOTKEY'})
+ skip "icmp tests not supported under fakeroot", 1;
} else {
my $p = new Net::Ping "icmp";
ok !!$p;
diff --git a/lib/Net/Ping/t/500_ping_icmp.t b/lib/Net/Ping/t/500_ping_icmp.t
index db20ac9..8884577 100755
--- a/lib/Net/Ping/t/500_ping_icmp.t
+++ b/lib/Net/Ping/t/500_ping_icmp.t
@@ -23,6 +23,8 @@ if (($> and $^O ne 'VMS')
skip "icmp ping requires root privileges.", 1;
} elsif ($^O eq 'MacOS') {
skip "icmp protocol not supported.", 1;
+} elsif ($ENV{'FAKEROOTKEY'})
+ skip "icmp tests not supported under fakeroot", 1;
} else {
my $p = new Net::Ping "icmp";
ok $p->ping("127.0.0.1");