test help output during normal option parsing

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.
pull/321/head
Erik Auerswald 7 months ago committed by David Schweikert
parent 90ad83fbd0
commit 79e274d4b8

@ -1,11 +1,11 @@
#!/usr/bin/perl -w #!/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"; my $I_HELP = " -I, --iface=IFACE bind to a particular interface\n";
$I_HELP = '' if $^O eq 'darwin'; $I_HELP = '' if $^O eq 'darwin';
# fping -h # fping -h (special pre-parse code path)
my $cmd1 = Test::Command->new(cmd => "fping -h"); my $cmd1 = Test::Command->new(cmd => "fping -h");
$cmd1->exit_is_num(0); $cmd1->exit_is_num(0);
$cmd1->stdout_like(qr{Usage: fping \[options\] \[targets\.\.\.\] $cmd1->stdout_like(qr{Usage: fping \[options\] \[targets\.\.\.\]
@ -16,6 +16,17 @@ Probing options:
}s); }s);
$cmd1->stderr_is_eq(""); $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 # fping -v
my $cmd2 = Test::Command->new(cmd => "fping -v"); my $cmd2 = Test::Command->new(cmd => "fping -v");
$cmd2->exit_is_num(0); $cmd2->exit_is_num(0);

Loading…
Cancel
Save