improve test coverage

diff --git a/ci/test-04-options-a-b.pl b/ci/test-04-options-a-b.pl
index 7958a3c3ef206de550c4eb23daa89b63bcc069cc..83859aee071626e50b3405908b46f045eb147ff5 100755 (executable)
--- a/ci/test-04-options-a-b.pl
+++ b/ci/test-04-options-a-b.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-use Test::Command tests => 29;
+use Test::Command tests => 32;
 use Test::More;
 use Time::HiRes qw(gettimeofday tv_interval);
 
@@ -19,6 +19,14 @@ $cmd->stdout_is_eq("");
 $cmd->stderr_is_eq("fping: can't specify both -4 and -6\n");
 }
 
+# fping -6 -4
+{
+my $cmd = Test::Command->new(cmd => "fping -6 -4 127.0.0.1");
+$cmd->exit_is_num(1);
+$cmd->stdout_is_eq("");
+$cmd->stderr_is_eq("fping: can't specify both -4 and -6\n");
+}
+
 # fping -4
 {
 my $cmd = Test::Command->new(cmd => "fping -4 127.0.0.1");

diff --git a/ci/test-14-ping-internet-hosts.pl b/ci/test-14-ping-internet-hosts.pl
index f2b63edac0cba39dfc7401db5ff3e21cadcbb54a..53c2e11dfeaf9fa4da55ae8845ca697c890ee5b6 100755 (executable)
--- a/ci/test-14-ping-internet-hosts.pl
+++ b/ci/test-14-ping-internet-hosts.pl
@@ -79,6 +79,14 @@ SKIP: {
     $cmd->stderr_is_eq("");
 }
 
+# fping -m -A
+{
+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->stderr_is_eq("");
+}
+
 # fping -n
 {
 my $cmd = Test::Command->new(cmd => "fping -n 8.8.8.8");