|
|
@ -1,6 +1,6 @@
|
|
|
|
#!/usr/bin/perl -w
|
|
|
|
#!/usr/bin/perl -w
|
|
|
|
|
|
|
|
|
|
|
|
use Test::Command tests => 51;
|
|
|
|
use Test::Command tests => 12;
|
|
|
|
|
|
|
|
|
|
|
|
# -c n count of pings to send to each target (default 1)
|
|
|
|
# -c n count of pings to send to each target (default 1)
|
|
|
|
# -C n same as -c, report results in verbose format
|
|
|
|
# -C n same as -c, report results in verbose format
|
|
|
@ -22,46 +22,6 @@ $cmd->stderr_like(qr{localhost : xmt/rcv/%loss = 2/2/0%, min/avg/max = \d\.\d+/\
|
|
|
|
});
|
|
|
|
});
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
# fping -c n -q
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
my $cmd = Test::Command->new(cmd => "fping -q -c 2 -p 100 localhost 127.0.0.1");
|
|
|
|
|
|
|
|
$cmd->exit_is_num(0);
|
|
|
|
|
|
|
|
$cmd->stdout_is_eq("");
|
|
|
|
|
|
|
|
$cmd->stderr_like(qr{localhost : xmt/rcv/%loss = 2/2/0%, min/avg/max = \d\.\d+/\d\.\d+/\d\.\d+
|
|
|
|
|
|
|
|
127\.0\.0\.1 : xmt/rcv/%loss = 2/2/0%, min/avg/max = \d\.\d+/\d\.\d+/\d\.\d+
|
|
|
|
|
|
|
|
});
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# fping -c n -a (-a is ignored)
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
my $cmd = Test::Command->new(cmd => "fping -a -c 2 -p 100 localhost 127.0.0.1");
|
|
|
|
|
|
|
|
$cmd->exit_is_num(0);
|
|
|
|
|
|
|
|
$cmd->stdout_like(qr{localhost : \[0\], 64 bytes, \d\.\d+ ms \(\d\.\d+ avg, 0% loss\)
|
|
|
|
|
|
|
|
127\.0\.0\.1 : \[0\], 64 bytes, \d\.\d+ ms \(\d\.\d+ avg, 0% loss\)
|
|
|
|
|
|
|
|
localhost : \[1\], 64 bytes, \d\.\d+ ms \(\d\.\d+ avg, 0% loss\)
|
|
|
|
|
|
|
|
127\.0\.0\.1 : \[1\], 64 bytes, \d\.\d+ ms \(\d\.\d+ avg, 0% loss\)
|
|
|
|
|
|
|
|
});
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
$cmd->stderr_like(qr{localhost : xmt/rcv/%loss = 2/2/0%, min/avg/max = \d\.\d+/\d\.\d+/\d\.\d+
|
|
|
|
|
|
|
|
127\.0\.0\.1 : xmt/rcv/%loss = 2/2/0%, min/avg/max = \d\.\d+/\d\.\d+/\d\.\d+
|
|
|
|
|
|
|
|
});
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# fping -c n -u (-u is ignored)
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
my $cmd = Test::Command->new(cmd => "fping -u -c 2 -p 100 localhost 127.0.0.1");
|
|
|
|
|
|
|
|
$cmd->exit_is_num(0);
|
|
|
|
|
|
|
|
$cmd->stdout_like(qr{localhost : \[0\], 64 bytes, \d\.\d+ ms \(\d\.\d+ avg, 0% loss\)
|
|
|
|
|
|
|
|
127\.0\.0\.1 : \[0\], 64 bytes, \d\.\d+ ms \(\d\.\d+ avg, 0% loss\)
|
|
|
|
|
|
|
|
localhost : \[1\], 64 bytes, \d\.\d+ ms \(\d\.\d+ avg, 0% loss\)
|
|
|
|
|
|
|
|
127\.0\.0\.1 : \[1\], 64 bytes, \d\.\d+ ms \(\d\.\d+ avg, 0% loss\)
|
|
|
|
|
|
|
|
});
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
$cmd->stderr_like(qr{localhost : xmt/rcv/%loss = 2/2/0%, min/avg/max = \d\.\d+/\d\.\d+/\d\.\d+
|
|
|
|
|
|
|
|
127\.0\.0\.1 : xmt/rcv/%loss = 2/2/0%, min/avg/max = \d\.\d+/\d\.\d+/\d\.\d+
|
|
|
|
|
|
|
|
});
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# fping -C n
|
|
|
|
# fping -C n
|
|
|
|
{
|
|
|
|
{
|
|
|
|
my $cmd = Test::Command->new(cmd => "fping -4 -C 2 -p 100 localhost 127.0.0.1");
|
|
|
|
my $cmd = Test::Command->new(cmd => "fping -4 -C 2 -p 100 localhost 127.0.0.1");
|
|
|
@ -77,55 +37,6 @@ $cmd->stderr_like(qr{localhost : \d\.\d+ \d\.\d+
|
|
|
|
});
|
|
|
|
});
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
# fping -C n -q
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
my $cmd = Test::Command->new(cmd => "fping -C 5 -q -p 100 localhost");
|
|
|
|
|
|
|
|
$cmd->exit_is_num(0);
|
|
|
|
|
|
|
|
$cmd->stdout_is_eq("");
|
|
|
|
|
|
|
|
$cmd->stderr_like(qr{localhost :( \d\.\d+){5}
|
|
|
|
|
|
|
|
});
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# fping -C n -a (-a is ignored)
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
my $cmd = Test::Command->new(cmd => "fping -a -C 2 -p 100 localhost 127.0.0.1");
|
|
|
|
|
|
|
|
$cmd->exit_is_num(0);
|
|
|
|
|
|
|
|
$cmd->stdout_like(qr{localhost : \[0\], 64 bytes, \d\.\d+ ms \(\d\.\d+ avg, 0% loss\)
|
|
|
|
|
|
|
|
127\.0\.0\.1 : \[0\], 64 bytes, \d\.\d+ ms \(\d\.\d+ avg, 0% loss\)
|
|
|
|
|
|
|
|
localhost : \[1\], 64 bytes, \d\.\d+ ms \(\d\.\d+ avg, 0% loss\)
|
|
|
|
|
|
|
|
127\.0\.0\.1 : \[1\], 64 bytes, \d\.\d+ ms \(\d\.\d+ avg, 0% loss\)
|
|
|
|
|
|
|
|
});
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
$cmd->stderr_like(qr{localhost : \d\.\d+ \d\.\d+
|
|
|
|
|
|
|
|
127\.0\.0\.1 : \d\.\d+ \d\.\d+
|
|
|
|
|
|
|
|
});
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# fping -C n -u (-u is ignored)
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
my $cmd = Test::Command->new(cmd => "fping -u -C 2 -p 100 localhost 127.0.0.1");
|
|
|
|
|
|
|
|
$cmd->exit_is_num(0);
|
|
|
|
|
|
|
|
$cmd->stdout_like(qr{localhost : \[0\], 64 bytes, \d\.\d+ ms \(\d\.\d+ avg, 0% loss\)
|
|
|
|
|
|
|
|
127\.0\.0\.1 : \[0\], 64 bytes, \d\.\d+ ms \(\d\.\d+ avg, 0% loss\)
|
|
|
|
|
|
|
|
localhost : \[1\], 64 bytes, \d\.\d+ ms \(\d\.\d+ avg, 0% loss\)
|
|
|
|
|
|
|
|
127\.0\.0\.1 : \[1\], 64 bytes, \d\.\d+ ms \(\d\.\d+ avg, 0% loss\)
|
|
|
|
|
|
|
|
});
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
$cmd->stderr_like(qr{localhost : \d\.\d+ \d\.\d+
|
|
|
|
|
|
|
|
127\.0\.0\.1 : \d\.\d+ \d\.\d+
|
|
|
|
|
|
|
|
});
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# fping -C n -i -q
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
my $cmd = Test::Command->new(cmd => "fping --quiet --interval=1 --vcount=20 --period=50 127.0.0.1 127.0.0.2");
|
|
|
|
|
|
|
|
$cmd->exit_is_num(0);
|
|
|
|
|
|
|
|
$cmd->stdout_is_eq("");
|
|
|
|
|
|
|
|
$cmd->stderr_like(qr{127\.0\.0\.1 :( \d\.\d+){20}
|
|
|
|
|
|
|
|
127\.0\.0\.2 :( \d\.\d+){20}
|
|
|
|
|
|
|
|
});
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# fping -D
|
|
|
|
# fping -D
|
|
|
|
{
|
|
|
|
{
|
|
|
|
my $cmd = Test::Command->new(cmd => "fping -D -c 2 -p 100 127.0.0.1");
|
|
|
|
my $cmd = Test::Command->new(cmd => "fping -D -c 2 -p 100 127.0.0.1");
|
|
|
@ -138,69 +49,6 @@ $cmd->stderr_like(qr{127\.0\.0\.1 : xmt/rcv/%loss = 2/2/0%, min/avg/max = \d\.\d
|
|
|
|
});
|
|
|
|
});
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
# fping -D (timestamp not before 2001-09-09)
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
my $cmd = Test::Command->new(cmd => "fping -D -c 2 -p 100 127.0.0.1");
|
|
|
|
|
|
|
|
$cmd->exit_is_num(0);
|
|
|
|
|
|
|
|
$cmd->stdout_like(qr{\[[1-9]\d{9,}\.\d+\] 127\.0\.0\.1 : \[0\], 64 bytes, \d\.\d+ ms \(\d\.\d+ avg, 0% loss\)
|
|
|
|
|
|
|
|
\[[1-9]\d{9,}\.\d+\] 127\.0\.0\.1 : \[1\], 64 bytes, \d\.\d+ ms \(\d\.\d+ avg, 0% loss\)
|
|
|
|
|
|
|
|
});
|
|
|
|
|
|
|
|
$cmd->stderr_like(qr{127\.0\.0\.1 : xmt/rcv/%loss = 2/2/0%, min/avg/max = \d\.\d+/\d\.\d+/\d\.\d+
|
|
|
|
|
|
|
|
});
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# fping -D --timestamp-format=ctime
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
my $cmd = Test::Command->new(cmd => "fping -D --timestamp-format=ctime -c 2 -p 100 127.0.0.1");
|
|
|
|
|
|
|
|
$cmd->exit_is_num(0);
|
|
|
|
|
|
|
|
$cmd->stdout_like(qr{\[\w+\s\w+\s+\d+\s[\d+:]+\s\d+\] 127\.0\.0\.1 : \[0\], 64 bytes, \d\.\d+ ms \(\d\.\d+ avg, 0% loss\)
|
|
|
|
|
|
|
|
\[\w+\s\w+\s+\d+\s[\d+:]+\s\d+\] 127\.0\.0\.1 : \[1\], 64 bytes, \d\.\d+ ms \(\d\.\d+ avg, 0% loss\)
|
|
|
|
|
|
|
|
});
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
$cmd->stderr_like(qr{127\.0\.0\.1 : xmt/rcv/%loss = 2/2/0%, min/avg/max = \d\.\d+/\d\.\d+/\d\.\d+
|
|
|
|
|
|
|
|
});
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# fping -D --timestamp-format=iso
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
my $cmd = Test::Command->new(cmd => "fping -D --timestamp-format=iso -c 2 -p 100 127.0.0.1");
|
|
|
|
|
|
|
|
$cmd->exit_is_num(0);
|
|
|
|
|
|
|
|
$cmd->stdout_like(qr{\[[\d+-]+T[\d+:]+\+\d+\] 127\.0\.0\.1 : \[0\], 64 bytes, \d\.\d+ ms \(\d\.\d+ avg, 0% loss\)
|
|
|
|
|
|
|
|
\[[\d+-]+T[\d+:]+\+\d+\] 127\.0\.0\.1 : \[1\], 64 bytes, \d\.\d+ ms \(\d\.\d+ avg, 0% loss\)
|
|
|
|
|
|
|
|
});
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
$cmd->stderr_like(qr{127\.0\.0\.1 : xmt/rcv/%loss = 2/2/0%, min/avg/max = \d\.\d+/\d\.\d+/\d\.\d+
|
|
|
|
|
|
|
|
});
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# fping -D --timestamp-format=rfc3339
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
my $cmd = Test::Command->new(cmd => "fping -D --timestamp-format=rfc3339 -c 2 -p 100 127.0.0.1");
|
|
|
|
|
|
|
|
$cmd->exit_is_num(0);
|
|
|
|
|
|
|
|
$cmd->stdout_like(qr{\[[\d+-]+\s[\d+:]+\] 127\.0\.0\.1 : \[0\], 64 bytes, \d\.\d+ ms \(\d\.\d+ avg, 0% loss\)
|
|
|
|
|
|
|
|
\[[\d+-]+\s[\d+:]+\] 127\.0\.0\.1 : \[1\], 64 bytes, \d\.\d+ ms \(\d\.\d+ avg, 0% loss\)
|
|
|
|
|
|
|
|
});
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
$cmd->stderr_like(qr{127\.0\.0\.1 : xmt/rcv/%loss = 2/2/0%, min/avg/max = \d\.\d+/\d\.\d+/\d\.\d+
|
|
|
|
|
|
|
|
});
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# fping -D --timestamp-format
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
my $cmd = Test::Command->new(cmd => "fping -D --timestamp-format -c 2 -p 100 127.0.0.1");
|
|
|
|
|
|
|
|
$cmd->exit_is_num(1);
|
|
|
|
|
|
|
|
$cmd->stdout_is_eq("");
|
|
|
|
|
|
|
|
$cmd->stderr_like(qr{Usage:});
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# fping -D --timestamp-format="%Y-%m-%d %H:%M:%S"
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
my $cmd = Test::Command->new(cmd => "fping -D --timestamp-format=\"%Y-%m-%d %H:%M:%S\" -c 2 -p 100 127.0.0.1");
|
|
|
|
|
|
|
|
$cmd->exit_is_num(1);
|
|
|
|
|
|
|
|
$cmd->stdout_is_eq("");
|
|
|
|
|
|
|
|
$cmd->stderr_like(qr{Usage:});
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# fping -e
|
|
|
|
# fping -e
|
|
|
|
{
|
|
|
|
{
|
|
|
|
my $cmd = Test::Command->new(cmd => "fping -e 127.0.0.1");
|
|
|
|
my $cmd = Test::Command->new(cmd => "fping -e 127.0.0.1");
|
|
|
|