5g-team
/
fping
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

travis tuning

Browse Source
pull/67/head
David Schweikert 11 years ago
parent 540057dfd9
commit f9c68a6dc7
1 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File

21
ci/test-1.pl
Unescape Escape View File

@ -1,9 +1,28 @@
#!/usr/bin/perl -w
use Test::Command tests => 3;
use Test::Command tests => 9;
my $fping_bin = '/opt/fping/sbin/fping';
my $fping6_bin = '/opt/fping/sbin/fping6';
#my $fping_bin = '/home/dws/checkouts/fping/src/fping';
#my $fping6_bin = '/home/dws/checkouts/fping/src/fping6';
# ping 127.0.0.1
my $cmd1 = Test::Command->new(cmd => "sudo $fping_bin 127.0.0.1");
$cmd1->exit_is_num(0);
$cmd1->stdout_is_eq("127.0.0.1 is alive\n");
$cmd1->stderr_is_eq("");
# ping ::1
my $cmd2 = Test::Command->new(cmd => "sudo $fping6_bin ::1");
$cmd2->exit_is_num(0);
$cmd2->stdout_is_eq("::1 is alive\n");
$cmd2->stderr_is_eq("");
# ping 3 times 127.0.0.1
my $cmd3 = Test::Command->new(cmd => "sudo $fping_bin -p 100 -C3 127.0.0.1");
$cmd3->exit_is_num(0);
$cmd3->stdout_like(qr{127\.0\.0\.1 : \[0\], 84 bytes, 0\.\d+ ms \(0\.\d+ avg, 0% loss\)
127\.0\.0\.1 : \[1\], 84 bytes, 0\.\d+ ms \(0.\d+ avg, 0% loss\)
127\.0\.0\.1 : \[2\], 84 bytes, 0\.\d+ ms \(0.\d+ avg, 0% loss\)
});
$cmd3->stderr_like(qr{127\.0\.0\.1 : 0\.\d+ 0\.\d+ 0\.\d+\n});

Write Preview
Loading…
Cancel
Save