test error resolving host name

The top level domain '.invalid' is reserved for such tests.

diff --git a/ci/test-01-basics.pl b/ci/test-01-basics.pl
index 309728c549e5cd8791150659790efa7e50ecc105..e54bc225dc1b1dc14f4ac7b62fdc3e19a79ca536 100755 (executable)
--- a/ci/test-01-basics.pl
+++ b/ci/test-01-basics.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-use Test::Command tests => 12;
+use Test::Command tests => 15;
 use Test::More;
 
 # ping 127.0.0.1
@@ -45,3 +45,11 @@ SKIP: {
 });
     $cmd->stderr_like(qr{127\.0\.0\.1 : \d\.\d+ \d\.\d+ \d\.\d+\n});
 }
+
+# invalid target name
+{
+    my $cmd = Test::Command->new(cmd => "fping host.name.invalid");
+    $cmd->exit_is_num(2);
+    $cmd->stdout_is_eq("");
+    $cmd->stderr_like(qr{host\.name\.invalid: .+\n});
+}

diff --git a/ci/test-09-option-r-t.pl b/ci/test-09-option-r-t.pl
index 5cede8d7a881d381ce7632ab6b65763d54c39a89..2c26d248d38b0ea1c013e2cd5689e9c7fc18ab66 100755 (executable)
--- a/ci/test-09-option-r-t.pl
+++ b/ci/test-09-option-r-t.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-use Test::Command tests => 27;
+use Test::Command tests => 30;
 use Test::More;
 
 #  -R         random bytes
@@ -76,6 +76,30 @@ $cmd->stderr_like(qr{\s*
 });
 }
 
+# fping -s (both valid and invalid host name)
+{
+my $cmd = Test::Command->new(cmd => "fping -s 127.0.0.1 host.name.invalid");
+$cmd->exit_is_num(2);
+$cmd->stdout_is_eq("127.0.0.1 is alive\n");
+$cmd->stderr_like(qr{host\.name\.invalid: .+
+\s*
+\s*1 targets
+\s*1 alive
+\s*0 unreachable
+\s*1 unknown addresses
+\s*
+\s*0 timeouts \(waiting for response\)
+\s*1 ICMP Echos sent
+\s*1 ICMP Echo Replies received
+\s*0 other ICMP received
+
+\s*\d\.\d+ ms \(min round trip time\)
+\s*\d\.\d+ ms \(avg round trip time\)
+\s*\d\.\d+ ms \(max round trip time\)
+\s*\d\.\d+ sec \(elapsed real time\)
+});
+}
+
 # fping -S
 {
 my $cmd = Test::Command->new(cmd => "fping -S 127.0.0.1 127.0.0.1");