diff --git a/ci/test-10-option-u-x.pl b/ci/test-10-option-u-x.pl index f4bb66c..72fc03e 100755 --- a/ci/test-10-option-u-x.pl +++ b/ci/test-10-option-u-x.pl @@ -1,9 +1,11 @@ #!/usr/bin/perl -w -use Test::Command tests => 12; +use Test::Command tests => 18; # -u show targets that are unreachable # -v show version +# -x shows if >=N hosts are reachable or not +# -X exits true immediately when N hosts are found # fping -u { @@ -36,3 +38,19 @@ $cmd->exit_is_num(1); $cmd->stdout_is_eq("Not enough hosts reachable (required: 2, reachable: 1)\n"); $cmd->stderr_is_eq(""); } + +# fping -X +{ +my $cmd = Test::Command->new(cmd => "fping -X 1 --generate 127.0.0.0/29"); +$cmd->exit_is_num(0); +$cmd->stdout_is_eq("Enough hosts reachable (required: 1, reachable: 1)\n"); +$cmd->stderr_is_eq(""); +} + +# fping -X +{ +my $cmd = Test::Command->new(cmd => "fping -X 2 --generate 8.8.0.0/29"); +$cmd->exit_is_num(1); +$cmd->stdout_is_eq("Not enough hosts reachable (required: 2, reachable: 0)\n"); +$cmd->stderr_is_eq(""); +}