diff --git a/ci/test-4-options-a-b.pl b/ci/test-4-options-a-b.pl index 200a7f1..c41ec02 100755 --- a/ci/test-4-options-a-b.pl +++ b/ci/test-4-options-a-b.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl -w -use Test::Command tests => 14; +use Test::Command tests => 20; use Test::More; use Time::HiRes qw(gettimeofday tv_interval); @@ -10,30 +10,54 @@ use Time::HiRes qw(gettimeofday tv_interval); # -B f set exponential backoff factor to f # fping -a -my $cmd1 = Test::Command->new(cmd => "fping -a 127.0.0.1 127.0.0.2"); -$cmd1->exit_is_num(0); -$cmd1->stdout_is_eq("127.0.0.1\n127.0.0.2\n"); -$cmd1->stderr_is_eq(""); +{ +my $cmd = Test::Command->new(cmd => "fping -a 127.0.0.1 127.0.0.2"); +$cmd->exit_is_num(0); +$cmd->stdout_is_eq("127.0.0.1\n127.0.0.2\n"); +$cmd->stderr_is_eq(""); +} # fping -A -my $cmd2 = Test::Command->new(cmd => "fping -A 127.0.0.1"); -$cmd2->exit_is_num(0); -$cmd2->stdout_is_eq("127.0.0.1 is alive\n"); -$cmd2->stderr_is_eq(""); +{ +my $cmd = Test::Command->new(cmd => "fping -A localhost"); +$cmd->exit_is_num(0); +$cmd->stdout_is_eq("127.0.0.1 is alive\n"); +$cmd->stderr_is_eq(""); +} + +# fping -A -n +{ +my $cmd = Test::Command->new(cmd => "fping -A -n localhost"); +$cmd->exit_is_num(0); +$cmd->stdout_is_eq("localhost (127.0.0.1) is alive\n"); +$cmd->stderr_is_eq(""); +} + +# fping6 -A -n +{ +my $cmd = Test::Command->new(cmd => "fping6 -n -A ip6-localhost"); +$cmd->exit_is_num(0); +$cmd->stdout_is_eq("ip6-localhost (::1) is alive\n"); +$cmd->stderr_is_eq(""); +} # fping -b -my $cmd3 = Test::Command->new(cmd => "fping -b 1000 127.0.0.1"); -$cmd3->exit_is_num(0); -$cmd3->stdout_is_eq("127.0.0.1 is alive\n"); -$cmd3->stderr_is_eq(""); +{ +my $cmd = Test::Command->new(cmd => "fping -b 1000 127.0.0.1"); +$cmd->exit_is_num(0); +$cmd->stdout_is_eq("127.0.0.1 is alive\n"); +$cmd->stderr_is_eq(""); +} # fping -B +{ my $t0 = [gettimeofday]; -my $cmd4 = Test::Command->new(cmd => "fping -t 100 -r 3 -B 2 8.8.8.7"); -$cmd4->exit_is_num(1); -$cmd4->stdout_is_eq("8.8.8.7 is unreachable\n"); -$cmd4->stderr_is_eq(""); +my $cmd = Test::Command->new(cmd => "fping -t 100 -r 3 -B 2 8.8.8.7"); +$cmd->exit_is_num(1); +$cmd->stdout_is_eq("8.8.8.7 is unreachable\n"); +$cmd->stderr_is_eq(""); my $elapsed = tv_interval($t0); # 0.1 + 0.2 + 0.4 + 0.8 = 1.5 cmp_ok($elapsed, '>=', 1.5); cmp_ok($elapsed, '<', 1.7); +}