]> git.gsnw.org Git - fping.git/commitdiff
test help output during normal option parsing
authorErik Auerswald <auerswal@unix-ag.uni-kl.de>
Sun, 19 May 2024 15:42:31 +0000 (17:42 +0200)
committerDavid Schweikert <david@schweikert.ch>
Sun, 9 Jun 2024 07:07:20 +0000 (09:07 +0200)
The existing test for "fping -h" triggers the special code path
for only one option, either -h or --help, that is handled before
normal option parsing.

ci/test-02-help.pl

index 19c6741bcf45ceb75590c995feca7f3041bfc470..5a146fb8886b42ede220dd02099e784a8443a01d 100755 (executable)
@@ -1,11 +1,11 @@
 #!/usr/bin/perl -w
 
-use Test::Command tests => 9;
+use Test::Command tests => 12;
 
 my $I_HELP = "   -I, --iface=IFACE  bind to a particular interface\n";
 $I_HELP = '' if $^O eq 'darwin';
 
-# fping -h
+# fping -h (special pre-parse code path)
 my $cmd1 = Test::Command->new(cmd => "fping -h");
 $cmd1->exit_is_num(0);
 $cmd1->stdout_like(qr{Usage: fping \[options\] \[targets\.\.\.\]
@@ -16,6 +16,17 @@ Probing options:
 }s);
 $cmd1->stderr_is_eq("");
 
+# fping -4 -h (normal option parsing code path)
+my $cmd4 = Test::Command->new(cmd => "fping -4 -h");
+$cmd4->exit_is_num(0);
+$cmd4->stdout_like(qr{Usage: fping \[options\] \[targets\.\.\.\]
+
+Probing options:
+.*
+   -v, --version      show version
+}s);
+$cmd4->stderr_is_eq("");
+
 # fping -v
 my $cmd2 = Test::Command->new(cmd => "fping -v");
 $cmd2->exit_is_num(0);