|
|
|
@ -9,7 +9,7 @@ if(!gethostbyname("www.google.com")) {
|
|
|
|
|
exit 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
plan tests => 27;
|
|
|
|
|
plan tests => 30;
|
|
|
|
|
|
|
|
|
|
my $re_num = qr{\d+(?:\.\d+)?};
|
|
|
|
|
|
|
|
|
@ -83,7 +83,7 @@ SKIP: {
|
|
|
|
|
{
|
|
|
|
|
my $cmd = Test::Command->new(cmd => "fping -4 -A -m www.github.com");
|
|
|
|
|
$cmd->exit_is_num(0);
|
|
|
|
|
$cmd->stdout_like(qr{\d+\.\d+\.\d+\.\d+\n is alive\n\d+\.\d+\.\d+\.\d+ is alive\n});
|
|
|
|
|
$cmd->stdout_like(qr{\d+\.\d+\.\d+\.\d+ is alive\n\d+\.\d+\.\d+\.\d+ is alive\n});
|
|
|
|
|
$cmd->stderr_is_eq("");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|