@ -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 ) ;