From a07e244a571db6bdeae69f523ab21427b2db7c5a Mon Sep 17 00:00:00 2001
From: David Schweikert <david@schweikert.ch>
Date: Sun, 4 May 2014 21:41:31 +0200
Subject: [PATCH] more tests

---
 ci/test-9-option-r-t.pl | 25 ++++++++++++++++++++++++-
 1 file changed, 24 insertions(+), 1 deletion(-)

diff --git a/ci/test-9-option-r-t.pl b/ci/test-9-option-r-t.pl
index 6756624..afb1b24 100755
--- a/ci/test-9-option-r-t.pl
+++ b/ci/test-9-option-r-t.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-use Test::Command tests => 9;
+use Test::Command tests => 12;
 
 #  -r n       number of retries (default 3)
 #  -s         print final stats
@@ -33,6 +33,29 @@ $cmd->stderr_like(qr{\s*
 });
 }
 
+# fping -s (no host reachable)
+{
+my $cmd = Test::Command->new(cmd => "fping -r0 -t100 -s 8.8.0.0");
+$cmd->exit_is_num(1);
+$cmd->stdout_is_eq("8.8.0.0 is unreachable\n");
+$cmd->stderr_like(qr{\s*
+\s*1 targets
+\s*0 alive
+\s*1 unreachable
+\s*0 unknown addresses
+\s*
+\s*1 timeouts \(waiting for response\)
+\s*1 ICMP Echos sent
+\s*0 ICMP Echo Replies received
+\s*0 other ICMP received
+
+\s*0.\d+ ms \(min round trip time\)
+\s*0.\d+ ms \(avg round trip time\)
+\s*0.\d+ ms \(max round trip time\)
+\s*0.\d+ sec \(elapsed real time\)
+});
+}
+
 # fping -S
 {
 my $cmd = Test::Command->new(cmd => "fping -S 127.0.0.1 127.0.0.1");