You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
25 lines
771 B
Perl
25 lines
771 B
Perl
11 years ago
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
11 years ago
|
use Test::Command tests => 9;
|
||
|
11 years ago
|
|
||
|
11 years ago
|
# ping 127.0.0.1
|
||
|
11 years ago
|
my $cmd1 = Test::Command->new(cmd => "fping 127.0.0.1");
|
||
|
11 years ago
|
$cmd1->exit_is_num(0);
|
||
|
|
$cmd1->stdout_is_eq("127.0.0.1 is alive\n");
|
||
|
|
$cmd1->stderr_is_eq("");
|
||
|
11 years ago
|
|
||
|
|
# ping ::1
|
||
|
11 years ago
|
my $cmd2 = Test::Command->new(cmd => "fping6 ::1");
|
||
|
11 years ago
|
$cmd2->exit_is_num(0);
|
||
|
|
$cmd2->stdout_is_eq("::1 is alive\n");
|
||
|
|
$cmd2->stderr_is_eq("");
|
||
|
|
|
||
|
|
# ping 3 times 127.0.0.1
|
||
|
11 years ago
|
my $cmd3 = Test::Command->new(cmd => "fping -p 100 -C3 127.0.0.1");
|
||
|
11 years ago
|
$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});
|