improve test coverage

pull/89/merge
David Schweikert 8 years ago
parent d4fe99d8cc
commit 4e0b2277a3

@ -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("");
}

Loading…
Cancel
Save