diff --git a/ci/test-13-unknown-host.pl b/ci/test-13-unknown-host.pl index 734bd09..d4abb2a 100755 --- a/ci/test-13-unknown-host.pl +++ b/ci/test-13-unknown-host.pl @@ -7,7 +7,7 @@ use Test::Command tests => 6; my $cmd = Test::Command->new(cmd => "fping nosuchname.example.com"); $cmd->exit_is_num(1); $cmd->stdout_is_eq(""); -$cmd->stderr_is_eq("nosuchname.example.com address not found\n"); +$cmd->stderr_is_eq("nosuchname.example.com: Name or service not known\n"); } # fping6 diff --git a/ci/test-4-options-a-b.pl b/ci/test-4-options-a-b.pl index 12ebb9d..023f6f1 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 => 20; +use Test::Command tests => 23; use Test::More; use Time::HiRes qw(gettimeofday tv_interval); @@ -27,9 +27,17 @@ $cmd->stderr_is_eq(""); # fping -A -n { -my $cmd = Test::Command->new(cmd => "fping -A -n localhost"); +my $cmd = Test::Command->new(cmd => "fping -A -n 8.8.8.8"); $cmd->exit_is_num(0); -$cmd->stdout_is_eq("localhost (127.0.0.1) is alive\n"); +$cmd->stdout_is_eq("google-public-dns-a.google.com (8.8.8.8) is alive\n"); +$cmd->stderr_is_eq(""); +} + +# fping -A -n +{ +my $cmd = Test::Command->new(cmd => "fping -A -n google-public-dns-a.google.com"); +$cmd->exit_is_num(0); +$cmd->stdout_is_eq("google-public-dns-a.google.com (8.8.8.8) is alive\n"); $cmd->stderr_is_eq(""); }