test-14-ping-internet-hosts.pl (fping-5.0) | : | test-14-ping-internet-hosts.pl (fping-5.1) | ||
---|---|---|---|---|
skipping to change at line 18 | skipping to change at line 18 | |||
plan skip_all => 'Can\'t resolve www.google.com -> no internet?'; | plan skip_all => 'Can\'t resolve www.google.com -> no internet?'; | |||
exit 0; | exit 0; | |||
} | } | |||
plan tests => 30; | plan tests => 30; | |||
my $re_num = qr{\d+(?:\.\d+)?}; | my $re_num = qr{\d+(?:\.\d+)?}; | |||
# fping | # fping | |||
{ | { | |||
my $cmd = Test::Command->new(cmd => "fping -q -i 10 -p 20 -c 3 -t200 8.8.8.8 4. 2.2.5 www.france-telecom.fr www.google.com"); | my $cmd = Test::Command->new(cmd => "fping -q -i 10 -p 20 -c 3 -t200 8.8.8.8 ww w.france-telecom.fr www.google.com"); | |||
$cmd->exit_is_num(0); | $cmd->exit_is_num(0); | |||
$cmd->stdout_is_eq(""); | $cmd->stdout_is_eq(""); | |||
$cmd->stderr_like(qr{8\.8\.8\.8\s*: xmt/rcv/%loss = [123]/3/\d+%, min/avg/max = | $cmd->stderr_like(qr{8\.8\.8\.8\s*: xmt/rcv/%loss = [123]/[123]/\d+%, min/avg/ma | |||
$re_num/$re_num/$re_num | x = $re_num/$re_num/$re_num | |||
4\.2\.2\.5\s*: xmt/rcv/%loss = [123]/3/\d+%, min/avg/max = $re_num/$re_num/$re_n | www\.france-telecom\.fr\s*: xmt/rcv/%loss = [123]/[123]/\d+%, min/avg/max = $re_ | |||
um | num/$re_num/$re_num | |||
www\.france-telecom\.fr\s*: xmt/rcv/%loss = [123]/3/\d+%, min/avg/max = $re_num/ | www\.google\.com\s*: xmt/rcv/%loss = [123]/[123]/\d+%, min/avg/max = $re_num/$re | |||
$re_num/$re_num | _num/$re_num | |||
www\.google\.com\s*: xmt/rcv/%loss = [123]/3/\d+%, min/avg/max = $re_num/$re_num | ||||
/$re_num | ||||
}); | }); | |||
} | } | |||
# fping -A -n | # fping -A -n | |||
{ | { | |||
my $cmd = Test::Command->new(cmd => "fping -A -n 8.8.8.8"); | my $cmd = Test::Command->new(cmd => "fping -A -n 8.8.8.8"); | |||
$cmd->exit_is_num(0); | $cmd->exit_is_num(0); | |||
$cmd->stdout_is_eq("dns.google (8.8.8.8) is alive\n"); | $cmd->stdout_is_eq("dns.google (8.8.8.8) is alive\n"); | |||
$cmd->stderr_is_eq(""); | $cmd->stderr_is_eq(""); | |||
} | } | |||
End of changes. 2 change blocks. | ||||
9 lines changed or deleted | 7 lines changed or added |