Merge pull request #235 from schweikert/travis-fix

make travis testing more robust
pull/217/head
David Schweikert 3 years ago committed by GitHub
commit df5f072ddd
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

@ -1,3 +1,6 @@
fping 5.1 (UNRELEASED)
======================
fping 5.0 (2020-08-05) fping 5.0 (2020-08-05)
====================== ======================

@ -94,5 +94,5 @@ $cmd->stderr_like(qr{^(|(8.8.8.7: error while sending ping: No route to host\n)+
my $elapsed = tv_interval($t0); my $elapsed = tv_interval($t0);
# 0.1 + 0.2 + 0.4 + 0.8 = 1.5 # 0.1 + 0.2 + 0.4 + 0.8 = 1.5
cmp_ok($elapsed, '>=', 1.5); cmp_ok($elapsed, '>=', 1.5);
cmp_ok($elapsed, '<', 1.8); cmp_ok($elapsed, '<', 1.9);
} }

@ -15,11 +15,10 @@ 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 www.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 = $re_num/$re_num/$re_num $cmd->stderr_like(qr{8\.8\.8\.8\s*: xmt/rcv/%loss = [123]/3/\d+%, min/avg/max = $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_num
www\.france-telecom\.fr\s*: xmt/rcv/%loss = [123]/3/\d+%, min/avg/max = $re_num/$re_num/$re_num www\.france-telecom\.fr\s*: xmt/rcv/%loss = [123]/3/\d+%, min/avg/max = $re_num/$re_num/$re_num
www\.google\.com\s*: xmt/rcv/%loss = [123]/3/\d+%, min/avg/max = $re_num/$re_num/$re_num www\.google\.com\s*: xmt/rcv/%loss = [123]/3/\d+%, min/avg/max = $re_num/$re_num/$re_num
}); });

@ -9,19 +9,19 @@ plan tests => 3;
{ {
my $cmd = Test::Command->new(cmd => "fping -c 2 -Q 1 -N 127.0.0.1"); my $cmd = Test::Command->new(cmd => "fping -c 2 -Q 1 -N 127.0.0.1");
$cmd->exit_is_num(0); $cmd->exit_is_num(0);
$cmd->stdout_like(qr{CHART fping\.127_0_0_1_packets '' 'FPing Packets for host 127\.0\.0\.1' packets '127_0_0_1' fping\.packets line 110020 1 $cmd->stdout_like(qr{CHART fping\.127_0_0_1_packets '' 'FPing Packets for host 127\.0\.0\.1' packets '127.0.0.1' fping\.packets line 110020 1
DIMENSION xmt sent absolute 1 1 DIMENSION xmt sent absolute 1 1
DIMENSION rcv received absolute 1 1 DIMENSION rcv received absolute 1 1
BEGIN fping\.127_0_0_1_packets BEGIN fping\.127_0_0_1_packets
SET xmt = 1 SET xmt = 1
SET rcv = 1 SET rcv = 1
END END
CHART fping\.127_0_0_1_quality '' 'FPing Quality for host 127\.0\.0\.1' percentage '127_0_0_1' fping\.quality area 110010 1 CHART fping\.127_0_0_1_quality '' 'FPing Quality for host 127\.0\.0\.1' percentage '127.0.0.1' fping\.quality area 110010 1
DIMENSION returned '' absolute 1 1 DIMENSION returned '' absolute 1 1
BEGIN fping\.127_0_0_1_quality BEGIN fping\.127_0_0_1_quality
SET returned = 100 SET returned = 100
END END
CHART fping\.127_0_0_1_latency '' 'FPing Latency for host 127\.0\.0\.1' ms '127_0_0_1' fping\.latency area 110000 1 CHART fping\.127_0_0_1_latency '' 'FPing Latency for host 127\.0\.0\.1' ms '127.0.0.1' fping\.latency area 110000 1
DIMENSION min minimum absolute 1 1000000 DIMENSION min minimum absolute 1 1000000
DIMENSION max maximum absolute 1 1000000 DIMENSION max maximum absolute 1 1000000
DIMENSION avg average absolute 1 1000000 DIMENSION avg average absolute 1 1000000

Loading…
Cancel
Save