]> git.gsnw.org Git - fping.git/commitdiff
more tests
authorDavid Schweikert <david@schweikert.ch>
Fri, 2 May 2014 21:10:46 +0000 (23:10 +0200)
committerDavid Schweikert <david@schweikert.ch>
Fri, 2 May 2014 21:10:46 +0000 (23:10 +0200)
ci/test-10-option-u-v.pl [new file with mode: 0755]
ci/test-2-help.pl
ci/test-5-options-c-e.pl
ci/test-6-options-f-h.pl
ci/test-7-options-i-m.pl
ci/test-8-options-n-q.pl
ci/test-9-option-r-t.pl
src/fping.c

diff --git a/ci/test-10-option-u-v.pl b/ci/test-10-option-u-v.pl
new file mode 100755 (executable)
index 0000000..f5ef83b
--- /dev/null
@@ -0,0 +1,24 @@
+#!/usr/bin/perl -w
+
+use Test::Command tests => 6;
+
+#  -u         show targets that are unreachable
+#  -v         show version
+
+# fping -u
+{
+my $cmd = Test::Command->new(cmd => "fping -r0 -u 8.8.0.0 127.0.0.1");
+$cmd->exit_is_num(1);
+$cmd->stdout_is_eq("8.8.0.0\n");
+$cmd->stderr_is_eq("");
+}
+
+# fping -v
+{
+my $cmd = Test::Command->new(cmd => "fping -v");
+$cmd->exit_is_num(0);
+$cmd->stdout_like(qr{ping: Version 3\.\d+
+fping: comments to david\@schweikert\.ch
+});
+$cmd->stderr_is_eq("");
+}
index 8f84e4d797687f6ff8367ce52edd789b2c452c60..72459a724a92dce8641215ce99834346a7299781 100755 (executable)
@@ -26,6 +26,7 @@ Usage: fping [options] [targets...]
    -l         loop sending pings forever
    -m         ping multiple interfaces on target host
    -n         show targets by name (-d is equivalent)
+   -O n       set the type of service (tos) flag on the ICMP packets
    -p n       interval between ping packets to one target (in millisec)
                 (in looping and counting modes, default 1000)
    -q         quiet (don't show per-target/per-ping results)
@@ -36,7 +37,6 @@ Usage: fping [options] [targets...]
    -t n       individual target initial timeout (in millisec) (default 500)
    -T n       ignored (for compatibility with fping 2.4)
    -u         show targets that are unreachable
-   -O n       set the type of service (tos) flag on the ICMP packets
    -v         show version
    targets    list of targets to check (if no -f specified)
 
index c2c0a5669a5956dda6fccd135853cb4b332d1ea3..ec84817a2efb3c692383a3a6e0d720b8e7ecdf04 100755 (executable)
@@ -1,8 +1,6 @@
 #!/usr/bin/perl -w
 
 use Test::Command tests => 12;
-use Test::More;
-use Time::HiRes qw(gettimeofday tv_interval);
 
 #  -c n       count of pings to send to each target (default 1)
 #  -C n       same as -c, report results in verbose format
index 7ca7e8c3a06cbe31cb179263a58cc7b21cf913b2..6168b5a8c497261b4339dafc0f0ff37bb746a411 100755 (executable)
@@ -1,8 +1,6 @@
 #!/usr/bin/perl -w
 
 use Test::Command tests => 15;
-use Test::More;
-use Time::HiRes qw(gettimeofday tv_interval);
 use File::Temp;
 
 #  -f file    read list of targets from a file ( - means stdin) (only if no -g specified)
index 0cfe2d3497adbaa07f894738a5e09626206ccff4..74ab9f2cc7f5d34ce34e40a6c95ef7d9c6709a75 100755 (executable)
@@ -1,9 +1,6 @@
 #!/usr/bin/perl -w
 
 use Test::Command tests => 7;
-use Test::More;
-use Time::HiRes qw(gettimeofday tv_interval);
-use File::Temp;
 
 #  -i n       interval between sending ping packets (in millisec) (default 25)
 #  -l         loop sending pings forever
index 28e599fc9317783158c91d81c377cc04feb8c459..2737dd39024b8e024b7fabbfc89c0fe787b74ecc 100755 (executable)
@@ -1,11 +1,9 @@
 #!/usr/bin/perl -w
 
-use Test::Command tests => 9;
-use Test::More;
-use Time::HiRes qw(gettimeofday tv_interval);
-use File::Temp;
+use Test::Command tests => 12;
 
 #  -n         show targets by name (-d is equivalent)
+#  -O n       set the type of service (tos) flag on the ICMP packets
 #  -p n       interval between ping packets to one target (in millisec)
 #               (in looping and counting modes, default 1000)
 #  -q         quiet (don't show per-target/per-ping results)
@@ -19,6 +17,14 @@ $cmd->stdout_is_eq("google-public-dns-a.google.com is alive\n");
 $cmd->stderr_is_eq("");
 }
 
+# fping -O
+{
+my $cmd = Test::Command->new(cmd => "fping -O 2 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 -q
 {
 my $cmd = Test::Command->new(cmd => "fping -q -p 100 -c 3 127.0.0.1");
index 3b30d1fea6dae5917b214b58bb8c9c9fdd8a9684..1d16a7fd99925ace85214ae725208dc036edc327 100755 (executable)
@@ -1,9 +1,6 @@
 #!/usr/bin/perl -w
 
 use Test::Command tests => 6;
-use Test::More;
-use Time::HiRes qw(gettimeofday tv_interval);
-use File::Temp;
 
 #  -r n       number of retries (default 3)
 #  -s         print final stats
index 92154f10773e414ca77866c37170a312140774bc..62370900e02dbf9c370d4bd20ccc279f817955d5 100644 (file)
@@ -2693,6 +2693,7 @@ void usage(int is_error)
     fprintf(out, "   -l         loop sending pings forever\n" );
     fprintf(out, "   -m         ping multiple interfaces on target host\n" );
     fprintf(out, "   -n         show targets by name (-d is equivalent)\n" );
+    fprintf(out, "   -O n       set the type of service (tos) flag on the ICMP packets\n" );
     fprintf(out, "   -p n       interval between ping packets to one target (in millisec)\n" );
     fprintf(out, "                (in looping and counting modes, default %d)\n", perhost_interval / 100 );
     fprintf(out, "   -q         quiet (don't show per-target/per-ping results)\n" );
@@ -2703,7 +2704,6 @@ void usage(int is_error)
     fprintf(out, "   -t n       individual target initial timeout (in millisec) (default %d)\n", timeout / 100 );
     fprintf(out, "   -T n       ignored (for compatibility with fping 2.4)\n");
     fprintf(out, "   -u         show targets that are unreachable\n" );
-    fprintf(out, "   -O n       set the type of service (tos) flag on the ICMP packets\n" );
     fprintf(out, "   -v         show version\n" );
     fprintf(out, "   targets    list of targets to check (if no -f specified)\n" );
     fprintf(out, "\n");