From f9c68a6dc75f9d155ad5244e434193e61c934a3d Mon Sep 17 00:00:00 2001
From: David Schweikert <david@schweikert.ch>
Date: Sat, 1 Mar 2014 00:00:04 +0100
Subject: [PATCH] travis tuning

---
 ci/test-1.pl | 23 +++++++++++++++++++++--
 1 file changed, 21 insertions(+), 2 deletions(-)

diff --git a/ci/test-1.pl b/ci/test-1.pl
index 74c1966..2e24329 100755
--- a/ci/test-1.pl
+++ b/ci/test-1.pl
@@ -1,9 +1,28 @@
 #!/usr/bin/perl -w
 
-use Test::Command tests => 3;
-my $fping_bin = '/opt/fping/sbin/fping';
+use Test::Command tests => 9;
+my $fping_bin  = '/opt/fping/sbin/fping';
+my $fping6_bin = '/opt/fping/sbin/fping6';
+#my $fping_bin  = '/home/dws/checkouts/fping/src/fping';
+#my $fping6_bin = '/home/dws/checkouts/fping/src/fping6';
 
+# ping 127.0.0.1
 my $cmd1 = Test::Command->new(cmd => "sudo $fping_bin 127.0.0.1");
 $cmd1->exit_is_num(0);
 $cmd1->stdout_is_eq("127.0.0.1 is alive\n");
 $cmd1->stderr_is_eq("");
+
+# ping ::1
+my $cmd2 = Test::Command->new(cmd => "sudo $fping6_bin ::1");
+$cmd2->exit_is_num(0);
+$cmd2->stdout_is_eq("::1 is alive\n");
+$cmd2->stderr_is_eq("");
+
+# ping 3 times 127.0.0.1
+my $cmd3 = Test::Command->new(cmd => "sudo $fping_bin -p 100 -C3 127.0.0.1");
+$cmd3->exit_is_num(0);
+$cmd3->stdout_like(qr{127\.0\.0\.1 : \[0\], 84 bytes, 0\.\d+ ms \(0\.\d+ avg, 0% loss\)
+127\.0\.0\.1 : \[1\], 84 bytes, 0\.\d+ ms \(0.\d+ avg, 0% loss\)
+127\.0\.0\.1 : \[2\], 84 bytes, 0\.\d+ ms \(0.\d+ avg, 0% loss\)
+});
+$cmd3->stderr_like(qr{127\.0\.0\.1 : 0\.\d+ 0\.\d+ 0\.\d+\n});