rainlance
/
amiga-fping
mirror of https://frontier.innolan.net/rainlance/amiga-fping.git
1
0
Fork 0
Code Releases 1 Activity

more tests

This commit is contained in:
David Schweikert 2014-05-04 21:41:31 +02:00
parent 7b8899043d
commit a07e244a57
1 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
ci/test-9-option-r-t.pl
View File

@ -1,6 +1,6 @@
#!/usr/bin/perl -w
use Test::Command tests => 9;
use Test::Command tests => 12;
# -r n number of retries (default 3)
# -s print final stats
@ -33,6 +33,29 @@ $cmd->stderr_like(qr{\s*
});
}
# fping -s (no host reachable)
{
my $cmd = Test::Command->new(cmd => "fping -r0 -t100 -s 8.8.0.0");
$cmd->exit_is_num(1);
$cmd->stdout_is_eq("8.8.0.0 is unreachable\n");
$cmd->stderr_like(qr{\s*
\s*1 targets
\s*0 alive
\s*1 unreachable
\s*0 unknown addresses
\s*
\s*1 timeouts \(waiting for response\)
\s*1 ICMP Echos sent
\s*0 ICMP Echo Replies received
\s*0 other ICMP received
\s*0.\d+ ms \(min round trip time\)
\s*0.\d+ ms \(avg round trip time\)
\s*0.\d+ ms \(max round trip time\)
\s*0.\d+ sec \(elapsed real time\)
});
}
# fping -S
{
my $cmd = Test::Command->new(cmd => "fping -S 127.0.0.1 127.0.0.1");