|
|
|
@ -53,10 +53,13 @@ SKIP: {
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
# fping -m
|
|
|
|
|
{
|
|
|
|
|
my $cmd = Test::Command->new(cmd => "fping -m google-public-dns-a.google.com");
|
|
|
|
|
SKIP: {
|
|
|
|
|
if(system("/sbin/ifconfig | grep inet6.*Scope:Global") != 0) {
|
|
|
|
|
skip 'No IPv6 on this host', 3;
|
|
|
|
|
}
|
|
|
|
|
my $cmd = Test::Command->new(cmd => "fping -A -m google-public-dns-a.google.com");
|
|
|
|
|
$cmd->exit_is_num(0);
|
|
|
|
|
$cmd->stdout_is_eq("google-public-dns-a.google.com is alive\n");
|
|
|
|
|
$cmd->stdout_is_eq("2001:4860:4860::8888 is alive\n8.8.8.8 is alive\n");
|
|
|
|
|
$cmd->stderr_is_eq("");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|