|
|
@ -1,6 +1,6 @@
|
|
|
|
#!/usr/bin/perl -w
|
|
|
|
#!/usr/bin/perl -w
|
|
|
|
|
|
|
|
|
|
|
|
use Test::Command tests => 33;
|
|
|
|
use Test::Command tests => 24;
|
|
|
|
|
|
|
|
|
|
|
|
# fping -i 0
|
|
|
|
# fping -i 0
|
|
|
|
my $cmd1 = Test::Command->new(cmd => "fping -i 0 -T10 -g 127.0.0.1/29");
|
|
|
|
my $cmd1 = Test::Command->new(cmd => "fping -i 0 -T10 -g 127.0.0.1/29");
|
|
|
@ -8,34 +8,16 @@ $cmd1->exit_is_num(1);
|
|
|
|
$cmd1->stdout_is_eq("");
|
|
|
|
$cmd1->stdout_is_eq("");
|
|
|
|
$cmd1->stderr_is_eq(<<END);
|
|
|
|
$cmd1->stderr_is_eq(<<END);
|
|
|
|
fping: these options are too risky for mere mortals.
|
|
|
|
fping: these options are too risky for mere mortals.
|
|
|
|
fping: You need i >= 1, p >= 20, r < 20, and t >= 50
|
|
|
|
fping: You need -i >= 1 and -p >= 10
|
|
|
|
END
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
|
|
# fping -p 15
|
|
|
|
# fping -p 9
|
|
|
|
my $cmd2 = Test::Command->new(cmd => "fping -c3 -p 15 127.0.0.1");
|
|
|
|
my $cmd2 = Test::Command->new(cmd => "fping -c3 -p 9 127.0.0.1");
|
|
|
|
$cmd2->exit_is_num(1);
|
|
|
|
$cmd2->exit_is_num(1);
|
|
|
|
$cmd2->stdout_is_eq("");
|
|
|
|
$cmd2->stdout_is_eq("");
|
|
|
|
$cmd2->stderr_is_eq(<<END);
|
|
|
|
$cmd2->stderr_is_eq(<<END);
|
|
|
|
fping: these options are too risky for mere mortals.
|
|
|
|
fping: these options are too risky for mere mortals.
|
|
|
|
fping: You need i >= 1, p >= 20, r < 20, and t >= 50
|
|
|
|
fping: You need -i >= 1 and -p >= 10
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# fping -r 30
|
|
|
|
|
|
|
|
my $cmd3 = Test::Command->new(cmd => "fping -r 30 127.0.0.1");
|
|
|
|
|
|
|
|
$cmd3->exit_is_num(1);
|
|
|
|
|
|
|
|
$cmd3->stdout_is_eq("");
|
|
|
|
|
|
|
|
$cmd3->stderr_is_eq(<<END);
|
|
|
|
|
|
|
|
fping: these options are too risky for mere mortals.
|
|
|
|
|
|
|
|
fping: You need i >= 1, p >= 20, r < 20, and t >= 50
|
|
|
|
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# fping -t 40
|
|
|
|
|
|
|
|
my $cmd4 = Test::Command->new(cmd => "fping -t 40 127.0.0.1");
|
|
|
|
|
|
|
|
$cmd4->exit_is_num(1);
|
|
|
|
|
|
|
|
$cmd4->stdout_is_eq("");
|
|
|
|
|
|
|
|
$cmd4->stderr_is_eq(<<END);
|
|
|
|
|
|
|
|
fping: these options are too risky for mere mortals.
|
|
|
|
|
|
|
|
fping: You need i >= 1, p >= 20, r < 20, and t >= 50
|
|
|
|
|
|
|
|
END
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
|
|
# fping -H 300
|
|
|
|
# fping -H 300
|
|
|
@ -74,9 +56,3 @@ $cmd10->exit_is_num(1);
|
|
|
|
$cmd10->stdout_is_eq("");
|
|
|
|
$cmd10->stdout_is_eq("");
|
|
|
|
$cmd10->stderr_is_eq("fping: backoff factor 5.1 not valid, must be between 1.0 and 5.0\n");
|
|
|
|
$cmd10->stderr_is_eq("fping: backoff factor 5.1 not valid, must be between 1.0 and 5.0\n");
|
|
|
|
|
|
|
|
|
|
|
|
# fping -C 11000
|
|
|
|
|
|
|
|
my $cmd11 = Test::Command->new(cmd => "fping -C 11000 127.0.0.1");
|
|
|
|
|
|
|
|
$cmd11->exit_is_num(1);
|
|
|
|
|
|
|
|
$cmd11->stdout_is_eq("");
|
|
|
|
|
|
|
|
$cmd11->stderr_is_eq("fping: count 11000 not valid, must be less than 10000\n");
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|